1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
|
/* $OpenBSD: pass1.h,v 1.6 2007/12/22 22:56:31 stefan Exp $ */
/*
* Copyright(C) Caldera International Inc. 2001-2002. All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
*
* Redistributions of source code and documentation must retain the above
* copyright notice, this list of conditions and the following disclaimer.
* Redistributions in binary form must reproduce the above copyright
* notice, this list of conditionsand the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed or owned by Caldera
* International, Inc.
* Neither the name of Caldera International, Inc. nor the names of other
* contributors may be used to endorse or promote products derived from
* this software without specific prior written permission.
*
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
* INTERNATIONAL, INC. AND CONTRIBUTORS ``AS IS'' AND ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
* DISCLAIMED. IN NO EVENT SHALL CALDERA INTERNATIONAL, INC. BE LIABLE
* FOR ANY DIRECT, INDIRECT INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OFLIABILITY, WHETHER IN CONTRACT,
* STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
* IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
* POSSIBILITY OF SUCH DAMAGE.
*/
#include <sys/types.h>
#include <stdarg.h>
#include "manifest.h"
#include "protos.h"
#include "ccconfig.h"
/*
* Storage classes
*/
#define SNULL 0
#define AUTO 1
#define EXTERN 2
#define STATIC 3
#define REGISTER 4
#define EXTDEF 5
/* #define LABEL 6*/
/* #define ULABEL 7*/
#define MOS 8
#define PARAM 9
#define STNAME 10
#define MOU 11
#define UNAME 12
#define TYPEDEF 13
#define FORTRAN 14
#define ENAME 15
#define MOE 16
#define UFORTRAN 17
#define USTATIC 18
#define ILABEL 19
/* field size is ORed in */
#define FIELD 0100
#define FLDSIZ 077
extern char *scnames(int);
/*
* Symbol table flags
*/
#define SNORMAL 0
#define STAGNAME 01
#define SLBLNAME 02
#define SMOSNAME 03
#define SSTRING 04
#define NSTYPES 05
#define SMASK 07
#define SSET 00010
#define SREF 00020
#define SNOCREAT 00040
#define STEMP 00100
#define SDYNARRAY 00200
#define SINLINE 00400
#define STNODE 01000
#ifdef GCC_COMPAT
#define SRENAME 02000 /* Node is renamed */
#endif
#define SASG 04000
#ifndef FIXDEF
#define FIXDEF(p)
#endif
/* alignment of initialized quantities */
#ifndef AL_INIT
#define AL_INIT ALINT
#endif
struct rstack;
struct symtab;
union arglist;
/*
* Dimension/prototype information.
* ddim > 0 holds the dimension of an array.
* ddim < 0 is a dynamic array and refers to a tempnode.
*/
union dimfun {
int ddim; /* Dimension of an array */
union arglist *dfun; /* Prototype index */
};
/*
* Struct/union/enum definition.
* The first element (size) is used for other types as well.
*/
struct suedef {
int suesize; /* Size of the struct */
struct symtab **suelem;/* points to the list of elements */
int suealign; /* Alignment of this struct */
};
/*
* Argument list member info when storing prototypes.
*/
union arglist {
TWORD type;
union dimfun *df;
struct suedef *sue;
};
#define TNULL INCREF(FARG) /* pointer to FARG -- impossible type */
#define TELLIPSIS INCREF(INCREF(FARG))
/*
* Symbol table definition.
*
* The symtab_hdr struct is used to save label info in NAME and ICON nodes.
*/
struct symtab_hdr {
struct symtab *h_next; /* link to other symbols in the same scope */
int h_offset; /* offset or value */
char h_sclass; /* storage class */
char h_slevel; /* scope level */
short h_sflags; /* flags, see below */
};
struct symtab {
struct symtab_hdr hdr;
char *sname;
TWORD stype; /* type word */
TWORD squal; /* qualifier word */
union dimfun *sdf; /* ptr to the dimension/prototype array */
struct suedef *ssue; /* ptr to the definition table */
int suse; /* line number of last use of the variable */
};
#define snext hdr.h_next
#define soffset hdr.h_offset
#define sclass hdr.h_sclass
#define slevel hdr.h_slevel
#define sflags hdr.h_sflags
#define MKSUE(type) &btdims[type]
extern struct suedef btdims[];
/*
* External definitions
*/
struct swents { /* switch table */
struct swents *next; /* Next struct in linked list */
CONSZ sval; /* case value */
int slab; /* associated label */
};
int mygenswitch(int, TWORD, struct swents **, int);
extern int blevel;
extern int instruct, got_type;
extern int oldstyle;
extern int lineno, nerrors;
extern char *ftitle;
extern struct symtab *cftnsp;
extern int autooff, maxautooff, argoff, strucoff;
extern int brkflag;
extern int lastloc;
extern OFFSZ inoff;
extern int reached;
extern int isinlining;
/* tunnel to buildtree for name id's */
extern struct symtab *spname;
extern int sdebug, idebug, pdebug;
/* various labels */
extern int brklab;
extern int contlab;
extern int flostat;
extern int retlab;
/*
* Flags used in structures/unions
*/
#define INSTRUCT 02
#define INUNION 04
/*
* Flags used in the (elementary) flow analysis ...
*/
#define FBRK 02
#define FCONT 04
#define FDEF 010
#define FLOOP 020
/* mark an offset which is undefined */
#define NOOFFSET (-10201)
/* declarations of various functions */
extern NODE
*buildtree(int, NODE *l, NODE *r),
*mkty(unsigned, union dimfun *, struct suedef *),
*rstruct(char *, int),
*dclstruct(struct rstack *, int),
*strend(char *),
*wstrend(char *),
*tymerge(NODE *typ, NODE *idp),
*stref(NODE *),
*offcon(OFFSZ, TWORD, union dimfun *, struct suedef *),
*bcon(int),
*bpsize(NODE *),
*convert(NODE *, int),
*pconvert(NODE *),
*oconvert(NODE *),
*ptmatch(NODE *),
*tymatch(NODE *),
*makety(NODE *, TWORD, TWORD, union dimfun *, struct suedef *),
*block(int, NODE *, NODE *r, TWORD, union dimfun *, struct suedef *),
*doszof(NODE *),
*talloc(void),
*optim(NODE *),
*clocal(NODE *),
*ccopy(NODE *),
*btsize(TWORD, union dimfun *, struct suedef *),
*tempnode(int, TWORD type, union dimfun *df, struct suedef *sue),
*doacall(NODE *f, NODE *a);
NODE *intprom(NODE *);
OFFSZ tsize(TWORD, union dimfun *, struct suedef *),
psize(NODE *);
NODE * typenode(NODE *new);
void spalloc(NODE *, NODE *, OFFSZ);
char *exname(char *);
int oalloc(struct symtab *p, int *poff);
void deflabel(char *);
void deflab1(int);
void setloc1(int);
void gotolabel(char *);
unsigned int esccon(char **sptr);
void inline_start(char *name);
void inline_end(void);
void inline_addarg(struct interpass *);
void inline_ref(char *);
void inline_prtout(void);
void ftnarg(NODE *);
struct rstack *bstruct(char *, int);
void moedef(char *);
void beginit(struct symtab *);
void simpleinit(struct symtab *, NODE *);
struct symtab *lookup(char *name, int s);
struct symtab *getsymtab(char *name, int flags);
char *addstring(char *);
char *addname(char *);
char *newstring(char *, int len);
void symclear(int level);
void schedremove(struct symtab *p);
struct symtab *hide(struct symtab *p);
int talign(unsigned int, struct suedef *);
void bfcode(struct symtab **, int);
int chkftn(union arglist *, union arglist *);
void branch(int);
void cbranch(NODE *p, NODE *q);
void extdec(struct symtab *);
void commdec(struct symtab *);
void lcommdec(struct symtab *);
int falloc(struct symtab *p, int w, int new, NODE *pty);
TWORD ctype(TWORD);
void ninval(CONSZ off, int fsz, NODE *);
void infld(CONSZ off, int fsz, CONSZ);
void zbits(CONSZ off, int fsz);
void indata(CONSZ, int);
void instring(char *);
void defnam(struct symtab *);
void plabel(int lab);
void bjobcode(void);
void ejobcode(int);
void calldec(NODE *, NODE *);
int cisreg(TWORD);
char *tmpsprintf(char *fmt, ...);
char *tmpvsprintf(char *fmt, va_list ap);
void asginit(NODE *);
void desinit(NODE *);
void endinit(void);
void ilbrace(void);
void irbrace(void);
void scalinit(NODE *p);
int ftoint(NODE *, CONSZ **);
void p1print(char *fmt, ...);
char *copst(int);
int cdope(int);
void myp2tree(NODE *);
void lcommprint(void);
void lcommdel(struct symtab *);
NODE *funcode(NODE *);
struct symtab *enumhd(char *);
NODE *enumdcl(struct symtab *);
NODE *enumref(char *);
CONSZ icons(NODE *);
#ifdef GCC_COMPAT
void gcc_init(void);
int gcc_keyword(char *, NODE **);
void gcc_rename(struct symtab *sp, char *newname);
char *gcc_findname(struct symtab *sp);
#endif
#ifdef STABS
void stabs_init(void);
void stabs_file(char *);
void stabs_line(int);
void stabs_rbrac(int);
void stabs_lbrac(int);
void stabs_func(struct symtab *);
void stabs_newsym(struct symtab *);
void stabs_chgsym(struct symtab *);
void stabs_struct(struct symtab *p, struct suedef *sue);
#endif
#ifndef CHARCAST
/* to make character constants into character connstants */
/* this is a macro to defend against cross-compilers, etc. */
#define CHARCAST(x) (char)(x)
#endif
/*
* C compiler first pass extra defines.
*/
#define QUALIFIER (MAXOP+1)
#define CLASS (MAXOP+2)
#define RB (MAXOP+3)
#define DOT (MAXOP+4)
#define ELLIPSIS (MAXOP+5)
#define TYPE (MAXOP+6)
#define LB (MAXOP+7)
#define COMOP (MAXOP+8)
#define QUEST (MAXOP+9)
#define COLON (MAXOP+10)
#define ANDAND (MAXOP+11)
#define OROR (MAXOP+12)
#define NOT (MAXOP+13)
#define CAST (MAXOP+14)
/* #define STRING (MAXOP+15) */
/* The following must be in the same order as their NOASG counterparts */
#define PLUSEQ (MAXOP+16)
#define MINUSEQ (MAXOP+17)
#define DIVEQ (MAXOP+18)
#define MODEQ (MAXOP+19)
#define MULEQ (MAXOP+20)
#define ANDEQ (MAXOP+21)
#define OREQ (MAXOP+22)
#define EREQ (MAXOP+23)
#define LSEQ (MAXOP+24)
#define RSEQ (MAXOP+25)
#define UNASG (-(PLUSEQ-PLUS))+
#define INCR (MAXOP+26)
#define DECR (MAXOP+27)
/*
* The following types are only used in pass1.
*/
#define SIGNED (MAXTYPES+1)
#define BOOL (MAXTYPES+2)
#define coptype(o) (cdope(o)&TYFLG)
#define clogop(o) (cdope(o)&LOGFLG)
#define casgop(o) (cdope(o)&ASGFLG)
|
