1 /* global.h -- Public #include File (module.h template V1.0)
2 Copyright (C) 1995, 1997 Free Software Foundation, Inc.
3 Contributed by James Craig Burley (burley@gnu.org).
5 This file is part of GNU Fortran.
7 GNU Fortran is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 GNU Fortran is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Fortran; see the file COPYING. If not, write to
19 the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
28 /* Allow multiple inclusion to work. */
33 /* Simple definitions and enumerations. */
39 FFEGLOBAL_typeEXT, /* EXTERNAL is all we know. */
44 FFEGLOBAL_typeANY, /* Confusion reigns, so just ignore. */
50 FFEGLOBAL_argsummaryNONE, /* No arg present. */
51 FFEGLOBAL_argsummaryVAL, /* Pass-by-value. */
52 FFEGLOBAL_argsummaryREF, /* Pass-by-reference. */
53 FFEGLOBAL_argsummaryDESCR, /* Pass-by-descriptor. */
54 FFEGLOBAL_argsummaryPROC, /* Procedure (intrinsic, external). */
55 FFEGLOBAL_argsummarySUBR, /* Subroutine (intrinsic, external). */
56 FFEGLOBAL_argsummaryFUNC, /* Function (intrinsic, external). */
57 FFEGLOBAL_argsummaryALTRTN, /* Alternate-return (label). */
58 FFEGLOBAL_argsummaryPTR, /* Pointer (%LOC, LOC()). */
59 FFEGLOBAL_argsummaryANY,
61 } ffeglobalArgSummary;
65 typedef struct _ffeglobal_arginfo_ *ffeglobalArgInfo_;
66 typedef struct _ffeglobal_ *ffeglobal;
68 /* Include files needed by this one. */
77 /* Structure definitions. */
79 struct _ffeglobal_arginfo_
81 ffelexToken t; /* Different from master token when difference is important. */
82 char *name; /* Name of dummy arg, or NULL if not yet known. */
83 ffeglobalArgSummary as;
93 #ifdef FFECOM_globalHOOK
96 ffeCounter tick; /* Recent transition in this progunit. */
98 bool intrinsic; /* Known as intrinsic? */
99 bool explicit_intrinsic; /* Explicit intrinsic? */
102 ffelexToken initt; /* First initial value. */
103 bool have_pad; /* Padding info avail for COMMON? */
104 ffetargetAlign pad; /* Initial padding for COMMON. */
105 ffewhereLine pad_where_line;
106 ffewhereColumn pad_where_col;
107 bool have_save; /* Save info avail for COMMON? */
108 bool save; /* Save info for COMMON. */
109 ffewhereLine save_where_line;
110 ffewhereColumn save_where_col;
111 bool have_size; /* Size info avail for COMMON? */
112 long size; /* Size info for COMMON. */
113 bool blank; /* TRUE if blank COMMON. */
116 bool defined; /* Seen actual code yet? */
117 ffeinfoBasictype bt; /* NONE for non-function. */
118 ffeinfoKindtype kt; /* NONE for non-function. */
119 ffetargetCharacterSize sz;
120 int n_args; /* 0 for main/blockdata. */
121 ffelexToken other_t; /* Location of reference. */
122 ffeglobalArgInfo_ arg_info; /* Info on each argument. */
127 /* Global objects accessed by users of this module. */
130 /* Declare functions with prototypes. */
132 void ffeglobal_drive (ffeglobal (*fn) ());
133 void ffeglobal_init_1 (void);
134 void ffeglobal_init_common (ffesymbol s, ffelexToken t);
135 void ffeglobal_new_progunit_ (ffesymbol s, ffelexToken t, ffeglobalType type);
136 void ffeglobal_new_common (ffesymbol s, ffelexToken t, bool blank);
137 void ffeglobal_pad_common (ffesymbol s, ffetargetAlign pad, ffewhereLine wl,
139 void ffeglobal_proc_def_arg (ffesymbol s, int argno, char *name, ffeglobalArgSummary as,
140 ffeinfoBasictype bt, ffeinfoKindtype kt,
142 void ffeglobal_proc_def_nargs (ffesymbol s, int n_args);
143 bool ffeglobal_proc_ref_arg (ffesymbol s, int argno, ffeglobalArgSummary as,
144 ffeinfoBasictype bt, ffeinfoKindtype kt,
145 bool array, ffelexToken t);
146 bool ffeglobal_proc_ref_nargs (ffesymbol s, int n_args, ffelexToken t);
147 ffeglobal ffeglobal_promoted (ffesymbol s);
148 void ffeglobal_ref_intrinsic (ffesymbol s, ffelexToken t, bool explicit);
149 bool ffeglobal_ref_progunit_ (ffesymbol s, ffelexToken t, ffeglobalType type);
150 void ffeglobal_save_common (ffesymbol s, bool save, ffewhereLine wl,
152 bool ffeglobal_size_common (ffesymbol s, long size);
153 void ffeglobal_terminate_1 (void);
157 #if FFECOM_targetCURRENT == FFECOM_targetFFE
158 #define FFEGLOBAL_ENABLED 0
159 #elif FFECOM_targetCURRENT == FFECOM_targetGCC
160 #define FFEGLOBAL_ENABLED 1
165 #define ffeglobal_common_init(g) ((g)->tick != 0)
166 #define ffeglobal_common_have_pad(g) ((g)->u.common.have_pad)
167 #define ffeglobal_common_have_size(g) ((g)->u.common.have_size)
168 #define ffeglobal_common_size(g) ((g)->u.common.size)
169 #define ffeglobal_hook(g) ((g)->hook)
170 #define ffeglobal_init_0()
171 #define ffeglobal_init_2()
172 #define ffeglobal_init_3()
173 #define ffeglobal_init_4()
174 #define ffeglobal_new_blockdata(s,t) \
175 ffeglobal_new_progunit_(s,t,FFEGLOBAL_typeBDATA)
176 #define ffeglobal_new_function(s,t) \
177 ffeglobal_new_progunit_(s,t,FFEGLOBAL_typeFUNC)
178 #define ffeglobal_new_program(s,t) \
179 ffeglobal_new_progunit_(s,t,FFEGLOBAL_typeMAIN)
180 #define ffeglobal_new_subroutine(s,t) \
181 ffeglobal_new_progunit_(s,t,FFEGLOBAL_typeSUBR)
182 #define ffeglobal_pad(g) ((g)->pad)
183 #define ffeglobal_ref_blockdata(s,t) \
184 ffeglobal_ref_progunit_(s,t,FFEGLOBAL_typeBDATA)
185 #define ffeglobal_ref_external(s,t) \
186 ffeglobal_ref_progunit_(s,t,FFEGLOBAL_typeEXT)
187 #define ffeglobal_ref_function(s,t) \
188 ffeglobal_ref_progunit_(s,t,FFEGLOBAL_typeFUNC)
189 #define ffeglobal_ref_subroutine(s,t) \
190 ffeglobal_ref_progunit_(s,t,FFEGLOBAL_typeSUBR)
191 #define ffeglobal_set_hook(g,h) ((g)->hook = (h))
192 #define ffeglobal_terminate_0()
193 #define ffeglobal_terminate_2()
194 #define ffeglobal_terminate_3()
195 #define ffeglobal_terminate_4()
196 #define ffeglobal_text(g) ffename_text((g)->n)
197 #define ffeglobal_type(g) ((g)->type)
199 /* End of #include file. */