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
401
402
|
/* $OpenBSD: pass1.h,v 1.10 2008/08/17 18:40:13 ragge 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 "config.h"
#include <sys/types.h>
#include <stdarg.h>
#ifdef HAVE_STDINT_H
#include <stdint.h>
#endif
#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 /* don't create a symbol in lookup() */
#define STEMP 00100 /* Allocate symtab from temp or perm mem */
#define SDYNARRAY 00200 /* symbol is dynamic array on stack */
#define SINLINE 00400 /* function is of type inline */
#define STNODE 01000 /* symbol shall be a temporary node */
#define SASG 04000 /* symbol is assigned to already */
#define SLOCAL1 010000
#define SLOCAL2 020000
#define SLOCAL3 040000
/* 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 *sylnk; /* 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; /* Symbol name */
char *soname; /* Written-out name */
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 */
};
#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 OFFSZ inoff;
extern int reached;
extern int isinlining;
extern int sdebug, idebug, pdebug;
/* various labels */
extern int brklab;
extern int contlab;
extern int flostat;
extern int retlab;
/* pragma globals */
extern int pragma_allpacked, pragma_packed, pragma_aligned;
extern char *pragma_renamed;
/*
* 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 *, NODE *r),
*mkty(unsigned, union dimfun *, struct suedef *),
*rstruct(char *, int),
*dclstruct(struct rstack *),
*strend(int gtype, char *),
*tymerge(NODE *, NODE *),
*stref(NODE *),
*offcon(OFFSZ, TWORD, union dimfun *, struct suedef *),
*bcon(int),
*xbcon(CONSZ, struct symtab *, TWORD),
*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 *, TWORD, union dimfun *, struct suedef *),
*doszof(NODE *),
*talloc(void),
*optim(NODE *),
*clocal(NODE *),
*ccopy(NODE *),
*tempnode(int, TWORD, union dimfun *, struct suedef *),
*doacall(NODE *, NODE *);
NODE *intprom(NODE *);
OFFSZ tsize(TWORD, union dimfun *, struct suedef *),
psize(NODE *);
NODE * typenode(NODE *new);
void spalloc(NODE *, NODE *, OFFSZ);
char *exname(char *);
extern struct rstack *rpole;
int oalloc(struct symtab *, int *);
void deflabel(char *);
void gotolabel(char *);
unsigned int esccon(char **);
void inline_start(struct symtab *);
void inline_end(void);
void inline_addarg(struct interpass *);
void inline_ref(struct symtab *);
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 *, int);
struct symtab *getsymtab(char *, int);
char *addstring(char *);
char *addname(char *);
void symclear(int);
struct symtab *hide(struct symtab *);
void soumemb(NODE *, char *, int);
int talign(unsigned int, struct suedef *);
void bfcode(struct symtab **, int);
int chkftn(union arglist *, union arglist *);
void branch(int);
void cbranch(NODE *, NODE *);
void extdec(struct symtab *);
void defzero(struct symtab *);
int falloc(struct symtab *, int, int, NODE *);
TWORD ctype(TWORD);
void ninval(CONSZ, int, NODE *);
void infld(CONSZ, int, CONSZ);
void zbits(CONSZ, int);
void instring(struct symtab *);
void inwstring(struct symtab *);
void plabel(int);
void bjobcode(void);
void ejobcode(int);
void calldec(NODE *, NODE *);
int cisreg(TWORD);
char *tmpsprintf(char *, ...);
char *tmpvsprintf(char *, va_list);
void asginit(NODE *);
void desinit(NODE *);
void endinit(void);
void sspinit(void);
void sspstart(void);
void sspend(void);
void ilbrace(void);
void irbrace(void);
void scalinit(NODE *);
void p1print(char *, ...);
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 *);
int mypragma(char **);
void fixdef(struct symtab *);
int cqual(TWORD, TWORD);
void defloc(struct symtab *);
int fldchk(int);
int nncon(NODE *);
void cunput(char);
NODE *nametree(struct symtab *sp);
void *inlalloc(int size);
void pass1_lastchance(struct interpass *);
void fldty(struct symtab *p);
#ifdef GCC_COMPAT
void gcc_init(void);
int gcc_keyword(char *, NODE **);
#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 *, struct suedef *);
#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 FCOMPLEX (MAXTYPES+3)
#define COMPLEX (MAXTYPES+4)
#define LCOMPLEX (MAXTYPES+5)
#define coptype(o) (cdope(o)&TYFLG)
#define clogop(o) (cdope(o)&LOGFLG)
#define casgop(o) (cdope(o)&ASGFLG)
|
