diff options
Diffstat (limited to 'contrib/gcc/f/com.h')
-rw-r--r-- | contrib/gcc/f/com.h | 27 |
1 files changed, 11 insertions, 16 deletions
diff --git a/contrib/gcc/f/com.h b/contrib/gcc/f/com.h index b58e5ba..d23db66 100644 --- a/contrib/gcc/f/com.h +++ b/contrib/gcc/f/com.h @@ -1,5 +1,6 @@ /* com.h -- Public #include File (module.h template V1.0) - Copyright (C) 1995, 1996, 1997, 2000 Free Software Foundation, Inc. + Copyright (C) 1995, 1996, 1997, 2000, 2003, 2004 + Free Software Foundation, Inc. Contributed by James Craig Burley. This file is part of GNU Fortran. @@ -128,17 +129,11 @@ typedef enum #endif typedef tree ffecomConstant; -#define FFECOM_constantHOOK typedef tree ffecomNonter; -#define FFECOM_nonterHOOK typedef tree ffecomLabel; -#define FFECOM_globalHOOK typedef tree ffecomGlobal; -#define FFECOM_labelHOOK typedef tree ffecomStorage; -#define FFECOM_storageHOOK typedef struct _ffecom_symbol_ ffecomSymbol; -#define FFECOM_symbolHOOK struct _ffecom_symbol_ { @@ -157,13 +152,13 @@ struct _ffecom_symbol_ #include "storag.h" #include "symbol.h" -extern int global_bindings_p PARAMS ((void)); -extern tree getdecls PARAMS ((void)); -extern void pushlevel PARAMS ((int)); -extern tree poplevel PARAMS ((int,int, int)); -extern void insert_block PARAMS ((tree)); -extern void set_block PARAMS ((tree)); -extern tree pushdecl PARAMS ((tree)); +extern int global_bindings_p (void); +extern tree getdecls (void); +extern void pushlevel (int); +extern tree poplevel (int,int, int); +extern void insert_block (tree); +extern void set_block (tree); +extern tree pushdecl (tree); /* Global objects accessed by users of this module. */ @@ -218,7 +213,7 @@ tree ffecom_const_expr (ffebld expr); tree ffecom_decl_field (tree context, tree prevfield, const char *name, tree type); void ffecom_close_include (FILE *f); -int ffecom_decode_include_option (char *spec); +void ffecom_decode_include_option (const char *dir); tree ffecom_end_compstmt (void); void ffecom_end_transition (void); void ffecom_exec_transition (void); @@ -233,7 +228,7 @@ void ffecom_finish_decl (tree decl, tree init, bool is_top_level); void ffecom_finish_progunit (void); tree ffecom_get_invented_identifier (const char *pattern, ...) ATTRIBUTE_PRINTF_1; -ffeinfoKindtype ffecom_gfrt_basictype (ffecomGfrt ix); +ffeinfoBasictype ffecom_gfrt_basictype (ffecomGfrt ix); ffeinfoKindtype ffecom_gfrt_kindtype (ffecomGfrt ix); void ffecom_init_0 (void); void ffecom_init_2 (void); |