X-Git-Url: https://oss.titaniummirror.com/gitweb?a=blobdiff_plain;f=gcc%2Ff%2Fstb.h;fp=gcc%2Ff%2Fstb.h;h=0000000000000000000000000000000000000000;hb=6fed43773c9b0ce596dca5686f37ac3fc0fa11c0;hp=a9b3acc586c7748a469d3026342d21d3db446e3c;hpb=27b11d56b743098deb193d510b337ba22dc52e5c;p=msp430-gcc.git diff --git a/gcc/f/stb.h b/gcc/f/stb.h deleted file mode 100644 index a9b3acc5..00000000 --- a/gcc/f/stb.h +++ /dev/null @@ -1,253 +0,0 @@ -/* stb.h -- Private #include File (module.h template V1.0) - Copyright (C) 1995, 1996 Free Software Foundation, Inc. - Contributed by James Craig Burley. - -This file is part of GNU Fortran. - -GNU Fortran is free software; you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 2, or (at your option) -any later version. - -GNU Fortran is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. - -You should have received a copy of the GNU General Public License -along with GNU Fortran; see the file COPYING. If not, write to -the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA -02111-1307, USA. - - Owning Modules: - stb.c - - Modifications: -*/ - -/* Allow multiple inclusion to work. */ - -#ifndef GCC_F_STB_H -#define GCC_F_STB_H - -/* Simple definitions and enumerations. */ - - -/* Typedefs. */ - - -/* Include files needed by this one. */ - -#include "bad.h" -#include "expr.h" -#include "lex.h" -#include "stp.h" -#include "str.h" - -/* Structure definitions. */ - -struct _ffestb_args_ - { - struct - { - const char *badname; - ffeTokenLength len; /* Length of "ENTRY/FUNCTION/SUBROUTINE". */ - bool is_subr; /* TRUE if SUBROUTINE or if ENTRY within - SUBROUTINE. */ - } - dummy; - struct - { - const char *badname; - ffeTokenLength len; /* Length of - "BACKSPACE/ENDFILE/REWIND/UNLOCK". */ - } - beru; - struct - { - ffeTokenLength len; /* Length of keyword including "END". */ - ffestrSecond second; /* Second keyword. */ - } - endxyz; - struct - { - ffestrSecond second; /* Second keyword. */ - } - elsexyz; - struct - { - ffeTokenLength len; /* Length of "STOP/PAUSE". */ - } - halt; -#if FFESTR_F90 - struct - { - const char *badname; - ffeTokenLength len; /* Length of "ALLOCATE/DEALLOCATE". */ - ffeexprContext ctx; /* Either ALLOCATE or DEALLOCATE. */ - } - heap; -#endif - struct - { - const char *badname; - ffeTokenLength len; /* Length of - "EXTERNAL/INTENT/INTRINSIC/OPTIONAL/PUBLIC/ - PRIVATE". */ - } - varlist; -#if FFESTR_VXT - struct - { - const char *badname; - ffeTokenLength len; /* Length of "ENCODE/DECODE". */ - } - vxtcode; -#endif -#if FFESTR_F90 - struct - { - const char *badname; - ffeTokenLength len; /* Length of "ALLOCATABLE/POINTER/TARGET". */ - } - dimlist; -#endif - struct - { - const char *badname; - ffeTokenLength len; /* Length of "DIMENSION/VIRTUAL". */ - } - R524; - struct - { - ffeTokenLength len; /* Length of first keyword. */ - ffestpType type; /* Type of declaration. */ - } - decl; - }; - -/* Global objects accessed by users of this module. */ - -extern struct _ffestb_args_ ffestb_args; - -/* Declare functions with prototypes. */ - -ffelexHandler ffestb_beru (ffelexToken t); -ffelexHandler ffestb_block (ffelexToken t); -ffelexHandler ffestb_blockdata (ffelexToken t); -ffelexHandler ffestb_decl_chartype (ffelexToken t); -ffelexHandler ffestb_construct (ffelexToken t); -ffelexHandler ffestb_decl_dbltype (ffelexToken t); -ffelexHandler ffestb_decl_double (ffelexToken t); -ffelexHandler ffestb_dimlist (ffelexToken t); -ffelexHandler ffestb_do (ffelexToken t); -ffelexHandler ffestb_dowhile (ffelexToken t); -ffelexHandler ffestb_dummy (ffelexToken t); -ffelexHandler ffestb_else (ffelexToken t); -ffelexHandler ffestb_elsexyz (ffelexToken t); -ffelexHandler ffestb_end (ffelexToken t); -ffelexHandler ffestb_endxyz (ffelexToken t); -ffelexHandler ffestb_decl_gentype (ffelexToken t); -ffelexHandler ffestb_goto (ffelexToken t); -ffelexHandler ffestb_halt (ffelexToken t); -#if FFESTR_F90 -ffelexHandler ffestb_heap (ffelexToken t); -#endif -ffelexHandler ffestb_if (ffelexToken t); -ffelexHandler ffestb_let (ffelexToken t); -#if FFESTR_F90 -ffelexHandler ffestb_module (ffelexToken t); -#endif -#if FFESTR_F90 -ffelexHandler ffestb_decl_recursive (ffelexToken t); -#endif -#if FFESTR_F90 -ffelexHandler ffestb_type (ffelexToken t); -#endif -#if FFESTR_F90 -ffelexHandler ffestb_decl_typetype (ffelexToken t); -#endif -ffelexHandler ffestb_varlist (ffelexToken t); -#if FFESTR_VXT -ffelexHandler ffestb_vxtcode (ffelexToken t); -#endif -#if FFESTR_F90 -ffelexHandler ffestb_where (ffelexToken t); -#endif -#if HARD_F90 -ffelexHandler ffestb_R423B (ffelexToken t); -#endif -ffelexHandler ffestb_R522 (ffelexToken t); -ffelexHandler ffestb_R524 (ffelexToken t); -ffelexHandler ffestb_R528 (ffelexToken t); -ffelexHandler ffestb_R537 (ffelexToken t); -ffelexHandler ffestb_decl_R539 (ffelexToken t); -ffelexHandler ffestb_R542 (ffelexToken t); -ffelexHandler ffestb_R544 (ffelexToken t); -ffelexHandler ffestb_R547 (ffelexToken t); -#if FFESTR_F90 -ffelexHandler ffestb_R624 (ffelexToken t); -#endif -ffelexHandler ffestb_R809 (ffelexToken t); -ffelexHandler ffestb_R810 (ffelexToken t); -ffelexHandler ffestb_R834 (ffelexToken t); -ffelexHandler ffestb_R835 (ffelexToken t); -ffelexHandler ffestb_R838 (ffelexToken t); -ffelexHandler ffestb_R840 (ffelexToken t); -ffelexHandler ffestb_R841 (ffelexToken t); -ffelexHandler ffestb_R904 (ffelexToken t); -ffelexHandler ffestb_R907 (ffelexToken t); -ffelexHandler ffestb_R909 (ffelexToken t); -ffelexHandler ffestb_R910 (ffelexToken t); -ffelexHandler ffestb_R911 (ffelexToken t); -ffelexHandler ffestb_R923 (ffelexToken t); -ffelexHandler ffestb_R1001 (ffelexToken t); -ffelexHandler ffestb_R1102 (ffelexToken t); -#if FFESTR_F90 -ffelexHandler ffestb_R1107 (ffelexToken t); -#endif -#if FFESTR_F90 -ffelexHandler ffestb_R1202 (ffelexToken t); -#endif -ffelexHandler ffestb_R1212 (ffelexToken t); -ffelexHandler ffestb_R1227 (ffelexToken t); -#if FFESTR_F90 -ffelexHandler ffestb_R1228 (ffelexToken t); -#endif -ffelexHandler ffestb_R1229 (ffelexToken t); -ffelexHandler ffestb_S3P4 (ffelexToken t); -#if FFESTR_VXT -ffelexHandler ffestb_V003 (ffelexToken t); -ffelexHandler ffestb_V009 (ffelexToken t); -ffelexHandler ffestb_V012 (ffelexToken t); -#endif -ffelexHandler ffestb_V014 (ffelexToken t); -#if FFESTR_VXT -ffelexHandler ffestb_V016 (ffelexToken t); -ffelexHandler ffestb_V018 (ffelexToken t); -ffelexHandler ffestb_V019 (ffelexToken t); -#endif -ffelexHandler ffestb_V020 (ffelexToken t); -#if FFESTR_VXT -ffelexHandler ffestb_V021 (ffelexToken t); -ffelexHandler ffestb_V025 (ffelexToken t); -ffelexHandler ffestb_V026 (ffelexToken t); -#endif -ffelexHandler ffestb_V027 (ffelexToken t); - -/* Define macros. */ - -#define ffestb_init_0() -#define ffestb_init_1() -#define ffestb_init_2() -#define ffestb_init_3() -#define ffestb_init_4() -#define ffestb_terminate_0() -#define ffestb_terminate_1() -#define ffestb_terminate_2() -#define ffestb_terminate_3() -#define ffestb_terminate_4() - -/* End of #include file. */ - -#endif /* ! GCC_F_STB_H */