![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to pass1.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass2|
Return to pass1.h CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass2 |
1.1 root 1: /* pass1.h 4.1 85/03/19 */
2:
3: #ifndef _PASS1_
4: #define _PASS1_
5:
6: #include "macdefs.h"
7: #include "manifest.h"
8:
9: /*
10: * Symbol table definition.
11: */
12: struct symtab {
13: #ifndef FLEXNAMES
14: char sname[NCHNAM];
15: #else
16: char *sname;
17: #endif
18: TWORD stype; /* type word */
19: char sclass; /* storage class */
20: char slevel; /* scope level */
21: char sflags; /* flags, see below */
22: int offset; /* offset or value */
23: short dimoff; /* offset into the dimension table */
24: short sizoff; /* offset into the size table */
25: short suse; /* line number of last use of the variable */
26: };
27:
28: /*
29: * Storage classes
30: */
31: #define SNULL 0 /* initial value */
32: #define AUTO 1 /* automatic (on stack) */
33: #define EXTERN 2 /* external reference */
34: #define STATIC 3 /* static scope */
35: #define REGISTER 4 /* register requested */
36: #define EXTDEF 5 /* external definition */
37: #define LABEL 6 /* label definition */
38: #define ULABEL 7 /* undefined label reference */
39: #define MOS 8 /* member of structure */
40: #define PARAM 9 /* parameter */
41: #define STNAME 10 /* structure name */
42: #define MOU 11 /* member of union */
43: #define UNAME 12 /* union name */
44: #define TYPEDEF 13 /* typedef name */
45: #define FORTRAN 14 /* fortran function */
46: #define ENAME 15 /* enumeration name */
47: #define MOE 16 /* member of enumeration */
48: #define UFORTRAN 17 /* undefined fortran reference */
49: #define USTATIC 18 /* undefined static reference */
50:
51: /* field size is ORed in */
52: #define FIELD 0100
53: #define FLDSIZ 077
54: #ifndef BUG1
55: extern char *scnames();
56: #endif
57:
58: /*
59: * Symbol table flags
60: */
61: #define SMOS 01 /* member of structure */
62: #define SHIDDEN 02 /* hidden in current scope */
63: #define SHIDES 04 /* hides symbol in outer scope */
64: #define SSET 010 /* symbol assigned to */
65: #define SREF 020 /* symbol referenced */
66: #define SNONUNIQ 040 /* non-unique structure member */
67: #define STAG 0100 /* structure tag name */
68:
69: /*
70: * Location counters
71: */
72: #define PROG 0 /* program segment */
73: #define DATA 1 /* data segment */
74: #define ADATA 2 /* array data segment */
75: #define STRNG 3 /* string data segment */
76: #define ISTRNG 4 /* initialized string segment */
77: #define STAB 5 /* symbol table segment */
78:
79:
80: #ifndef ONEPASS
81: #include "ndu.h"
82: #endif
83:
84:
85: #ifndef FIXDEF
86: #define FIXDEF(p)
87: #endif
88: #ifndef FIXARG
89: #define FIXARG(p)
90: #endif
91: #ifndef FIXSTRUCT
92: #define FIXSTRUCT(a,b)
93: #endif
94:
95: /* alignment of initialized quantities */
96: #ifndef AL_INIT
97: #define AL_INIT ALINT
98: #endif
99:
100: /*
101: * External definitions
102: */
103: struct sw { /* switch table */
104: CONSZ sval; /* case value */
105: int slab; /* associated label */
106: };
107: extern struct sw swtab[];
108: extern struct sw *swp;
109: extern int swx;
110:
111: extern int ftnno;
112: extern int blevel;
113: extern int instruct, stwart;
114:
115: extern int lineno, nerrors;
116:
117: extern CONSZ lastcon;
118: extern float fcon;
119: extern double dcon;
120:
121: extern char ftitle[];
122: extern char ititle[];
123: extern struct symtab stab[];
124: extern int curftn;
125: extern int curclass;
126: extern int curdim;
127: extern int dimtab[];
128: extern int paramstk[];
129: extern int paramno;
130: extern int autooff, argoff, strucoff;
131: extern int regvar;
132: extern int minrvar;
133: extern int brkflag;
134: typedef union {
135: int intval;
136: NODE * nodep;
137: } YYSTYPE;
138: extern YYSTYPE yylval;
139: extern char yytext[];
140:
141: extern int strflg;
142:
143: extern OFFSZ inoff;
144:
145: extern int reached;
146:
147: /* tunnel to buildtree for name id's */
148: extern int idname;
149:
150: extern NODE node[];
151: extern NODE *lastfree;
152:
153: extern int cflag, hflag, pflag;
154:
155: /* various labels */
156: extern int brklab;
157: extern int contlab;
158: extern int flostat;
159: extern int retlab;
160: extern int retstat;
161: extern int asavbc[], *psavbc;
162:
163: /* declarations of various functions */
164: extern NODE
165: *buildtree(),
166: *bdty(),
167: *mkty(),
168: *rstruct(),
169: *dclstruct(),
170: *getstr(),
171: *tymerge(),
172: *stref(),
173: *offcon(),
174: *bcon(),
175: *bpsize(),
176: *convert(),
177: *pconvert(),
178: *oconvert(),
179: *ptmatch(),
180: *tymatch(),
181: *makety(),
182: *block(),
183: *doszof(),
184: *talloc(),
185: *optim(),
186: *fixargs(),
187: *clocal();
188: OFFSZ tsize(),
189: psize();
190: TWORD types();
191: double atof();
192: char *exname(), *exdcon();
193:
194: #define checkst(x)
195:
196: #ifndef CHARCAST
197: /* to make character constants into character connstants */
198: /* this is a macro to defend against cross-compilers, etc. */
199: #define CHARCAST(x) (char)(x)
200: #endif
201: #endif
202:
203: /*
204: * Flags used in structures/unions
205: */
206: #define SEENAME 01
207: #define INSTRUCT 02
208: #define INUNION 04
209: #define FUNNYNAME 010
210: #define TAGNAME 020
211:
212: /*
213: * Flags used in the (elementary) flow analysis ...
214: */
215: #define FBRK 02
216: #define FCONT 04
217: #define FDEF 010
218: #define FLOOP 020
219:
220: /*
221: * Flags used for return status
222: */
223: #define RETVAL 1
224: #define NRETVAL 2
225:
226: #define NONAME 040000 /* marks constant w/o name field */
227: #define NOOFFSET (-10201) /* mark an offset which is undefined */
228:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.