Quick Search:

View

Revision:
Expand:  
Changeset: MAIN:plunky:20121022090322

Diff

Diff from 1.254 to:

Annotations

Annotate by Age | Author | Mixed | None
/fisheye/browse/pcc/pcc/cc/ccom/pass1.h

Annotated File View

plunky
1.254
1 /*      $Id: pass1.h,v 1.254 2012/10/22 09:03:22 plunky Exp $   */
ragge
1.71
2 /*
3  * Copyright(C) Caldera International Inc. 2001-2002. All rights reserved.
4  *
5  * Redistribution and use in source and binary forms, with or without
6  * modification, are permitted provided that the following conditions
7  * are met:
8  *
9  * Redistributions of source code and documentation must retain the above
10  * copyright notice, this list of conditions and the following disclaimer.
11  * Redistributions in binary form must reproduce the above copyright
12  * notice, this list of conditionsand the following disclaimer in the
13  * documentation and/or other materials provided with the distribution.
14  * All advertising materials mentioning features or use of this software
15  * must display the following acknowledgement:
16  *      This product includes software developed or owned by Caldera
17  *      International, Inc.
18  * Neither the name of Caldera International, Inc. nor the names of other
19  * contributors may be used to endorse or promote products derived from
20  * this software without specific prior written permission.
21  *
22  * USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
23  * INTERNATIONAL, INC. AND CONTRIBUTORS ``AS IS'' AND ANY EXPRESS OR
24  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
25  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
26  * DISCLAIMED.  IN NO EVENT SHALL CALDERA INTERNATIONAL, INC. BE LIABLE
27  * FOR ANY DIRECT, INDIRECT INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30  * HOWEVER CAUSED AND ON ANY THEORY OFLIABILITY, WHETHER IN CONTRACT,
31  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
32  * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 
33  * POSSIBILITY OF SUCH DAMAGE.
34  */
ragge
1.1
35
gmcgarry
1.141
36 #include "config.h"
37
ragge
1.11
38 #include <sys/types.h>
ragge
1.113
39 #include <stdarg.h>
mickey
1.155
40 #include <string.h>
gmcgarry
1.141
41 #ifdef HAVE_STDINT_H
stefan
1.134
42 #include <stdint.h>
gmcgarry
1.141
43 #endif
ragge
1.11
44
mickey
1.155
45 #ifndef MKEXT
46 #include "external.h"
47 #else
48 typedef unsigned int bittype/* XXX - for basicblock */
49 #endif
ragge
1.1
50 #include "manifest.h"
51
ragge
1.71
52 /*
53  * Storage classes
54  */
55 #define SNULL           0
56 #define AUTO            1
57 #define EXTERN          2
58 #define STATIC          3
59 #define REGISTER        4
60 #define EXTDEF          5
61 /* #define LABEL        6*/
62 /* #define ULABEL       7*/
63 #define MOS             8
64 #define PARAM           9
65 #define STNAME          10
66 #define MOU             11
67 #define UNAME           12
68 #define TYPEDEF         13
ragge
1.206
69 /* #define FORTRAN              14 */
ragge
1.71
70 #define ENAME           15
71 #define MOE             16
ragge
1.206
72 /* #define UFORTRAN     17 */
ragge
1.71
73 #define USTATIC         18
74
75         /* field size is ORed in */
ragge
1.210
76 #define FIELD           0200
77 #define FLDSIZ          0177
ragge
1.71
78 extern  char *scnames(int);
79
80 /*
81  * Symbol table flags
82  */
83 #define SNORMAL         0
84 #define STAGNAME        01
85 #define SLBLNAME        02
86 #define SMOSNAME        03
87 #define SSTRING         04
88 #define NSTYPES         05
89 #define SMASK           07
90
ragge
1.229
91 #define STLS            00010   /* Thread Local Support variable */
ragge
1.239
92 #define SINSYS          00020   /* Declared in system header */
ragge
1.148
93 #define SNOCREAT        00040   /* don't create a symbol in lookup() */
94 #define STEMP           00100   /* Allocate symtab from temp or perm mem */
95 #define SDYNARRAY       00200   /* symbol is dynamic array on stack */
96 #define SINLINE         00400   /* function is of type inline */
97 #define STNODE          01000   /* symbol shall be a temporary node */
ragge
1.242
98 #define SBUILTIN        02000   /* this is a builtin function */
ragge
1.148
99 #define SASG            04000   /* symbol is assigned to already */
ragge
1.138
100 #define SLOCAL1         010000
101 #define SLOCAL2         020000
102 #define SLOCAL3         040000
ragge
1.71
103
104         /* alignment of initialized quantities */
105 #ifndef AL_INIT
106 #define AL_INIT ALINT
107 #endif
108
ragge
1.37
109 struct rstack;
110 struct symtab;
ragge
1.45
111 union arglist;
ragge
1.168
112 #ifdef GCC_COMPAT
113 struct gcc_attr_pack;
114 #endif
ragge
1.102
115
ragge
1.37
116 /*
ragge
1.44
117  * Dimension/prototype information.
ragge
1.125
118  *      ddim > 0 holds the dimension of an array.
119  *      ddim < 0 is a dynamic array and refers to a tempnode.
ragge
1.208
120  *      ...unless:
121  *              ddim == NOOFFSET, an array without dimenston, "[]"
122  *              ddim == -1, dynamic array while building before defid.
ragge
1.44
123  */
124 union dimfun {
125         int     ddim;           /* Dimension of an array */
ragge
1.45
126         union arglist *dfun;    /* Prototype index */
ragge
1.44
127 };
128
129 /*
ragge
1.102
130  * Argument list member info when storing prototypes.
131  */
132 union arglist {
133         TWORD type;
134         union dimfun *df;
ragge
1.204
135         struct attr *sap;
ragge
1.102
136 };
ragge
1.128
137 #define TNULL           INCREF(FARG) /* pointer to FARG -- impossible type */
138 #define TELLIPSIS       INCREF(INCREF(FARG))
ragge
1.102
139
140 /*
ragge
1.1
141  * Symbol table definition.
142  */
143 struct  symtab {
ragge
1.164
144         struct  symtab *snext;  /* link to other symbols in the same scope */
145         int     soffset;        /* offset or value */
146         char    sclass;         /* storage class */
147         char    slevel;         /* scope level */
148         short   sflags;         /* flags, see below */
ragge
1.132
149         char    *sname;         /* Symbol name */
150         char    *soname;        /* Written-out name */
ragge
1.1
151         TWORD   stype;          /* type word */
ragge
1.74
152         TWORD   squal;          /* qualifier word */
ragge
1.44
153         union   dimfun *sdf;    /* ptr to the dimension/prototype array */
ragge
1.204
154         struct  attr *sap;      /* the base type attribute list */
155 };
156
157 #define ISSOU(ty)   ((ty) == STRTY || (ty) == UNIONTY)
ragge
1.37
158
ragge
1.1
159 /*
160  * External definitions
161  */
ragge
1.49
162 struct swents {                 /* switch table */
163         struct swents *next;    /* Next struct in linked list */
164         CONSZ   sval;           /* case value */
165         int     slab;           /* associated label */
ragge
1.1
166 };
stefan
1.129
167 int mygenswitch(intTWORDstruct swents **, int);
ragge
1.49
168
ragge
1.1
169 extern  int blevel;
ragge
1.48
170 extern  int oldstyle;
ragge
1.1
171
ragge
1.239
172 extern  int linenonerrorsissyshdr;
ragge
1.1
173
ragge
1.56
174 extern  char *ftitle;
ragge
1.29
175 extern  struct symtab *cftnsp;
plunky
1.253
176 extern  int autooffmaxautooffargoff;
ragge
1.1
177
178 extern  OFFSZ inoff;
179
180 extern  int reached;
ragge
1.18
181 extern  int isinlining;
ragge
1.235
182 extern  int xinlinexgnu89xgnu99;
plunky
1.237
183 extern  int bdebugddebugedebugidebugndebug;
184 extern  int odebugpdebugsdebugtdebugxdebug;
ragge
1.1
185
186 /* various labels */
187 extern  int brklab;
188 extern  int contlab;
189 extern  int flostat;
190 extern  int retlab;
ragge
1.220
191 extern  int doing_initstatinit;
ragge
1.225
192 extern  short sztable[];
193 extern  char *astypnames[];
ragge
1.1
194
ragge
1.132
195 /* pragma globals */
gmcgarry
1.152
196 extern int pragma_allpackedpragma_packedpragma_aligned;
ragge
1.132
197
ragge
1.71
198 /*
199  * Flags used in the (elementary) flow analysis ...
200  */
201 #define FBRK            02
202 #define FCONT           04
203 #define FDEF            010
204 #define FLOOP           020
205
ragge
1.228
206 /*
207  * Location counters
208  */
209 #define NOSEG           -1
210 #define PROG            0               /* (ro) program segment */
211 #define DATA            1               /* (rw) data segment */
212 #define RDATA           2               /* (ro) data segment */
213 #define LDATA           3               /* (rw) local data */
214 #define UDATA           4               /* (rw) uninitialized data */
215 #define STRNG           5               /* (ro) string segment */
216 #define PICDATA         6               /* (rw) relocatable data segment */
217 #define PICRDATA        7               /* (ro) relocatable data segment */
218 #define PICLDATA        8               /* (rw) local relocatable data */
219 #define TLSDATA         9               /* (rw) TLS data segment */
220 #define TLSUDATA        10              /* (rw) TLS uninitialized segment */
221 #define CTORS           11              /* constructor */
222 #define DTORS           12              /* destructor */
223 #define NMSEG           13              /* other (named) segment */
224
plunky
1.254
225 extern int lastloc;
ragge
1.228
226 void locctr(int typestruct symtab *sp);
227 void setseg(int typechar *name);
228 void defalign(int al);
229 void symdirec(struct symtab *sp);
230
ragge
1.71
231 /*      mark an offset which is undefined */
232
233 #define NOOFFSET        (-10201)
234
ragge
1.1
235 /* declarations of various functions */
236 extern  NODE
gmcgarry
1.143
237         *buildtree(intNODE *, NODE *r),
ragge
1.204
238         *mkty(unsignedunion dimfun *, struct attr *),
ragge
1.29
239         *rstruct(char *, int),
ragge
1.169
240         *dclstruct(struct rstack *),
ragge
1.133
241         *strend(int gtypechar *),
gmcgarry
1.143
242         *tymerge(NODE *, NODE *),
ragge
1.2
243         *stref(NODE *),
ragge
1.222
244 #ifdef WORD_ADDRESSED
ragge
1.204
245         *offcon(OFFSZTWORDunion dimfun *, struct attr *),
ragge
1.222
246 #endif
ragge
1.2
247         *bcon(int),
stefan
1.131
248         *xbcon(CONSZstruct symtab *, TWORD),
ragge
1.2
249         *bpsize(NODE *),
250         *convert(NODE *, int),
251         *pconvert(NODE *),
252         *oconvert(NODE *),
253         *ptmatch(NODE *),
ragge
1.204
254         *makety(NODE *, TWORDTWORDunion dimfun *, struct attr *),
255         *block(intNODE *, NODE *, TWORDunion dimfun *, struct attr *),
ragge
1.2
256         *doszof(NODE *),
257         *talloc(void),
258         *optim(NODE *),
ragge
1.47
259         *clocal(NODE *),
ragge
1.77
260         *ccopy(NODE *),
ragge
1.204
261         *tempnode(intTWORDunion dimfun *, struct attr *),
ragge
1.162
262         *eve(NODE *),
ragge
1.156
263         *doacall(struct symtab *, NODE *, NODE *);
stefan
1.129
264 NODE    *intprom(NODE *);
ragge
1.204
265 OFFSZ   tsize(TWORDunion dimfun *, struct attr *),
ragge
1.2
266         psize(NODE *);
ragge
1.12
267 NODE *  typenode(NODE *new);
ragge
1.25
268 void    spalloc(NODE *, NODE *, OFFSZ);
ragge
1.2
269 char    *exname(char *);
ragge
1.153
270 NODE    *floatcon(char *);
271 NODE    *fhexcon(char *);
ragge
1.174
272 NODE    *bdty(int op, ...);
ragge
1.136
273 extern struct rstack *rpole;
ragge
1.15
274
gmcgarry
1.143
275 int oalloc(struct symtab *, int *);
ragge
1.209
276 void deflabel(char *, NODE *);
ragge
1.29
277 void gotolabel(char *);
gmcgarry
1.143
278 unsigned int esccon(char **);
ragge
1.247
279 void inline_start(struct symtab *, int class);
ragge
1.18
280 void inline_end(void);
ragge
1.58
281 void inline_addarg(struct interpass *);
gmcgarry
1.143
282 void inline_ref(struct symtab *);
ragge
1.18
283 void inline_prtout(void);
ragge
1.156
284 void inline_args(struct symtab **, int);
285 NODE *inlinetree(struct symtab *, NODE *, NODE *);
ragge
1.46
286 void ftnarg(NODE *);
ragge
1.170
287 struct rstack *bstruct(char *, intNODE *);
ragge
1.29
288 void moedef(char *);
ragge
1.117
289 void beginit(struct symtab *);
290 void simpleinit(struct symtab *, NODE *);
gmcgarry
1.143
291 struct symtab *lookup(char *, int);
292 struct symtab *getsymtab(char *, int);
ragge
1.31
293 char *addstring(char *);
294 char *addname(char *);
gmcgarry
1.143
295 void symclear(int);
296 struct symtab *hide(struct symtab *);
ragge
1.135
297 void soumemb(NODE *, char *, int);
ragge
1.204
298 int talign(unsigned intstruct attr *);
ragge
1.38
299 void bfcode(struct symtab **, int);
ragge
1.48
300 int chkftn(union arglist *, union arglist *);
ragge
1.53
301 void branch(int);
gmcgarry
1.143
302 void cbranch(NODE *, NODE *);
ragge
1.105
303 void extdec(struct symtab *);
ragge
1.133
304 void defzero(struct symtab *);
ragge
1.179
305 int falloc(struct symtab *, intNODE *);
ragge
1.88
306 TWORD ctype(TWORD);  
ragge
1.225
307 void inval(CONSZintNODE *);
308 int ninval(CONSZintNODE *);
gmcgarry
1.143
309 void infld(CONSZintCONSZ);
310 void zbits(CONSZint);
311 void instring(struct symtab *);
312 void inwstring(struct symtab *);
313 void plabel(int);
ragge
1.100
314 void bjobcode(void);
315 void ejobcode(int);
ragge
1.105
316 void calldec(NODE *, NODE *);
ragge
1.110
317 int cisreg(TWORD);
gmcgarry
1.143
318 char *tmpsprintf(char *, ...);
319 char *tmpvsprintf(char *, va_list);
ragge
1.121
320 void asginit(NODE *);
321 void desinit(NODE *);
ragge
1.228
322 void endinit(int);
ragge
1.181
323 void endictx(void);
gmcgarry
1.144
324 void sspinit(void);
325 void sspstart(void);
326 void sspend(void);
ragge
1.117
327 void ilbrace(void);
328 void irbrace(void);
ragge
1.181
329 CONSZ scalinit(NODE *);
gmcgarry
1.143
330 void p1print(char *, ...);
ragge
1.69
331 char *copst(int);
332 int cdope(int);
ragge
1.70
333 void myp2tree(NODE *);
ragge
1.125
334 void lcommprint(void);
335 void lcommdel(struct symtab *);
ragge
1.127
336 NODE *funcode(NODE *);
ragge
1.128
337 struct symtab *enumhd(char *);
338 NODE *enumdcl(struct symtab *);
339 NODE *enumref(char *);
ragge
1.130
340 CONSZ icons(NODE *);
ragge
1.200
341 CONSZ valcast(CONSZ vTWORD t);
ragge
1.212
342 int mypragma(char *);
ragge
1.215
343 char *pragtok(char *);
ragge
1.214
344 int eat(int);
ragge
1.132
345 void fixdef(struct symtab *);
gmcgarry
1.143
346 int cqual(TWORDTWORD);
ragge
1.133
347 void defloc(struct symtab *);
gmcgarry
1.143
348 int fldchk(int);
ragge
1.137
349 int nncon(NODE *);
gmcgarry
1.143
350 void cunput(char);
ragge
1.145
351 NODE *nametree(struct symtab *sp);
ragge
1.147
352 void *inlalloc(int size);
ragge
1.204
353 void *blkalloc(int size);
gmcgarry
1.151
354 void pass1_lastchance(struct interpass *);
ragge
1.150
355 void fldty(struct symtab *p);
ragge
1.158
356 int getlab(void);
ragge
1.170
357 struct suedef *sueget(struct suedef *p);
ragge
1.177
358 void complinit(void);
359 NODE *structref(NODE *pint fchar *name);
360 NODE *cxop(int opNODE *lNODE *r);
ragge
1.178
361 NODE *imop(int opNODE *lNODE *r);
362 NODE *cxelem(int opNODE *p);
363 NODE *cxconj(NODE *p);
ragge
1.252
364 NODE *cxcast(NODE *p1NODE *p2);
ragge
1.178
365 NODE *cxret(NODE *pNODE *q);
ragge
1.187
366 NODE *cast(NODE *pTWORD tTWORD q);
ragge
1.204
367 NODE *ccast(NODE *pTWORD tTWORD uunion dimfun *dfstruct attr *sue);
ragge
1.202
368 int andable(NODE *);
369 int conval(NODE *, intNODE *);
370 int ispow2(CONSZ);
371 void defid(NODE *qint class);
ragge
1.241
372 void defid2(NODE *qint classchar *astr);
ragge
1.202
373 void efcode(void);
374 void ecomp(NODE *p);
375 int upoff(int sizeint alignmentint *poff);
376 void nidcl(NODE *pint class);
ragge
1.241
377 void nidcl2(NODE *pint classchar *astr);
ragge
1.202
378 void eprint(NODE *, intint *, int *);
379 int uclass(int class);
380 int notlval(NODE *);
381 void ecode(NODE *p);
382 void ftnend(void);
383 void dclargs(void);
ragge
1.204
384 int suemeq(struct attr *s1struct attr *s2);
385 struct symtab *strmemb(struct attr *ap);
mickey
1.203
386 int yylex(void);
387 void yyerror(char *);
ragge
1.213
388 int pragmas_gcc(char *t);
ragge
1.217
389 NODE *cstknode(TWORD tunion dimfun *dfstruct attr *ap);
ragge
1.221
390 int concast(NODE *pTWORD t);
ragge
1.238
391 #ifdef WORD_ADDRESSED
392 #define rmpconv(p) (p)
393 #else
ragge
1.233
394 NODE *rmpconv(NODE *);
ragge
1.238
395 #endif
396 NODE *optloop(NODE *);
ragge
1.235
397 NODE *nlabel(int label);
398
ragge
1.153
399 #ifdef SOFTFLOAT
400 typedef struct softfloat SF;
401 SF soft_neg(SF);
402 SF soft_cast(CONSZ vTWORD);
403 SF soft_plus(SFSF);
404 SF soft_minus(SFSF);
405 SF soft_mul(SFSF);
406 SF soft_div(SFSF);
gmcgarry
1.175
407 int soft_cmp_eq(SFSF);
408 int soft_cmp_ne(SFSF);
409 int soft_cmp_ge(SFSF);
410 int soft_cmp_gt(SFSF);
411 int soft_cmp_le(SFSF);
412 int soft_cmp_lt(SFSF);
ragge
1.153
413 int soft_isz(SF);
414 CONSZ soft_val(SF);
415 #define FLOAT_NEG(sf)           soft_neg(sf)
416 #define FLOAT_CAST(v,t)         soft_cast(v, t)
417 #define FLOAT_PLUS(x1,x2)       soft_plus(x1, x2)
418 #define FLOAT_MINUS(x1,x2)      soft_minus(x1, x2)
419 #define FLOAT_MUL(x1,x2)        soft_mul(x1, x2)
420 #define FLOAT_DIV(x1,x2)        soft_div(x1, x2)
421 #define FLOAT_ISZERO(sf)        soft_isz(sf)
422 #define FLOAT_VAL(sf)           soft_val(sf)
gmcgarry
1.175
423 #define FLOAT_EQ(x1,x2)         soft_cmp_eq(x1, x2)
424 #define FLOAT_NE(x1,x2)         soft_cmp_ne(x1, x2)
425 #define FLOAT_GE(x1,x2)         soft_cmp_ge(x1, x2)
426 #define FLOAT_GT(x1,x2)         soft_cmp_gt(x1, x2)
427 #define FLOAT_LE(x1,x2)         soft_cmp_le(x1, x2)
428 #define FLOAT_LT(x1,x2)         soft_cmp_lt(x1, x2)
ragge
1.153
429 #else
430 #define FLOAT_NEG(p)            -(p)
431 #define FLOAT_CAST(p,v)         (ISUNSIGNED(v) ? \
432                 (long double)(U_CONSZ)(p) : (long double)(CONSZ)(p))
433 #define FLOAT_PLUS(x1,x2)       (x1) + (x2)
434 #define FLOAT_MINUS(x1,x2)      (x1) - (x2)
435 #define FLOAT_MUL(x1,x2)        (x1) * (x2)
436 #define FLOAT_DIV(x1,x2)        (x1) / (x2)
437 #define FLOAT_ISZERO(p)         (p) == 0.0
438 #define FLOAT_VAL(p)            (CONSZ)(p)
gmcgarry
1.175
439 #define FLOAT_EQ(x1,x2)         (x1) == (x2)
440 #define FLOAT_NE(x1,x2)         (x1) != (x2)
441 #define FLOAT_GE(x1,x2)         (x1) >= (x2)
442 #define FLOAT_GT(x1,x2)         (x1) > (x2)
443 #define FLOAT_LE(x1,x2)         (x1) <= (x2)
444 #define FLOAT_LT(x1,x2)         (x1) < (x2)
ragge
1.153
445 #endif
446
ragge
1.204
447 enum {  ATTR_NONE,
448
449         /* PCC used attributes */
450         ATTR_COMPLEX,   /* Internal definition of complex */
ragge
1.216
451         xxxATTR_BASETYP,        /* Internal; see below */
ragge
1.204
452         ATTR_QUALTYP,   /* Internal; const/volatile, see below */
453         ATTR_STRUCT,    /* Internal; element list */
454 #define ATTR_MAX ATTR_STRUCT
455
ragge
1.85
456 #ifdef GCC_COMPAT
ragge
1.171
457         /* type attributes */
458         GCC_ATYP_ALIGNED,
459         GCC_ATYP_PACKED,
460         GCC_ATYP_SECTION,
461         GCC_ATYP_TRANSP_UNION,
462         GCC_ATYP_UNUSED,
463         GCC_ATYP_DEPRECATED,
464         GCC_ATYP_MAYALIAS,
465
ragge
1.184
466         /* variable attributes */
467         GCC_ATYP_MODE,
468
ragge
1.171
469         /* function attributes */
470         GCC_ATYP_NORETURN,
471         GCC_ATYP_FORMAT,
472         GCC_ATYP_NONNULL,
473         GCC_ATYP_SENTINEL,
ragge
1.172
474         GCC_ATYP_WEAK,
ragge
1.176
475         GCC_ATYP_FORMATARG,
ragge
1.180
476         GCC_ATYP_GNU_INLINE,
ragge
1.182
477         GCC_ATYP_MALLOC,
ragge
1.183
478         GCC_ATYP_NOTHROW,
ragge
1.185
479         GCC_ATYP_CONST,
480         GCC_ATYP_PURE,
ragge
1.188
481         GCC_ATYP_CONSTRUCTOR,
482         GCC_ATYP_DESTRUCTOR,
ragge
1.189
483         GCC_ATYP_VISIBILITY,
ragge
1.192
484         GCC_ATYP_STDCALL,
485         GCC_ATYP_CDECL,
ragge
1.193
486         GCC_ATYP_WARN_UNUSED_RESULT,
ragge
1.194
487         GCC_ATYP_USED,
ragge
1.196
488         GCC_ATYP_NO_INSTR_FUN,
489         GCC_ATYP_NOINLINE,
ragge
1.197
490         GCC_ATYP_ALIAS,
ragge
1.198
491         GCC_ATYP_WEAKREF,
ragge
1.199
492         GCC_ATYP_ALLOCSZ,
ragge
1.201
493         GCC_ATYP_ALW_INL,
ragge
1.211
494         GCC_ATYP_TLSMODEL,
ragge
1.212
495         GCC_ATYP_ALIASWEAK,
plunky
1.236
496         GCC_ATYP_RETURNS_TWICE,
ragge
1.240
497         GCC_ATYP_WARNING,
ragge
1.250
498         GCC_ATYP_NOCLONE,
ragge
1.171
499
500         /* other stuff */
501         GCC_ATYP_BOUNDED,       /* OpenBSD extra boundary checks */
502
503         GCC_ATYP_MAX
ragge
1.204
504 #endif
ragge
1.171
505 };
506
ragge
1.202
507
ragge
1.204
508 /*
ragge
1.216
509 #ifdef notdef
ragge
1.204
510  * ATTR_BASETYP has the following layout:
511  * aa[0].iarg has size
512  * aa[1].iarg has alignment
ragge
1.216
513 #endif
ragge
1.204
514  * ATTR_QUALTYP has the following layout:
515  * aa[0].iarg has CON/VOL + FUN/ARY/PTR
516  * Not defined yet...
517  * aa[3].iarg is dimension for arrays (XXX future)
518  * aa[3].varg is function defs for functions.
519  */
ragge
1.216
520 #ifdef notdef
ragge
1.204
521 #define atypsz  aa[0].iarg
522 #define aalign  aa[1].iarg
ragge
1.216
523 #endif
ragge
1.204
524
525 /*
526  * ATTR_STRUCT member list.
527  */
528 #define amlist  aa[0].varg
ragge
1.216
529 #define amsize  aa[1].iarg
ragge
1.204
530 #define strattr(x)      (attr_find(x, ATTR_STRUCT))
531
532 #define iarg(x) aa[x].iarg
533 #define sarg(x) aa[x].sarg
534 #define varg(x) aa[x].varg
ragge
1.168
535
ragge
1.85
536 void gcc_init(void);
ragge
1.93
537 int gcc_keyword(char *, NODE **);
ragge
1.204
538 struct attr *gcc_attr_parse(NODE *);
539 void gcc_tcattrfix(NODE *);
ragge
1.170
540 struct gcc_attrib *gcc_get_attr(struct suedef *, int);
ragge
1.204
541 void dump_attr(struct attr *gap);
ragge
1.243
542 void gcc_modefix(NODE *);
543 NODE *gcc_eval_timode(int opNODE *, NODE *);
ragge
1.246
544 NODE *gcc_eval_ticast(int opNODE *, NODE *);
ragge
1.244
545 NODE *gcc_eval_tiuni(int opNODE *);
ragge
1.249
546 struct attr *isti(NODE *p);
547
ragge
1.204
548
549 struct attr *attr_add(struct attr *origstruct attr *new);
550 struct attr *attr_new(intint);
551 struct attr *attr_find(struct attr *, int);
552 struct attr *attr_copy(struct attr *srcstruct attr *dstint nelem);
553 struct attr *attr_dup(struct attr *apint n);
ragge
1.85
554
ragge
1.242
555 #ifndef NO_C_BUILTINS
556 struct bitable {
557         char *name;
558         NODE *(*fun)(const struct bitable *, NODE *a);
559         short flags;
560 #define BTNOPROTO       001
561 #define BTNORVAL        002
562 #define BTNOEVE         004
ragge
1.245
563 #define BTGNUONLY       010
ragge
1.242
564         short narg;
565         TWORD *tp;
566         TWORD rt;
567 };
568
569 NODE *builtin_check(struct symtab *, NODE *a);
570 void builtin_init(void);
ragge
1.251
571
572 /* Some builtins targets need to implement */
573 NODE *builtin_frame_address(const struct bitable *btNODE *a);
574 NODE *builtin_return_address(const struct bitable *btNODE *a);
575 NODE *builtin_cfa(const struct bitable *btNODE *a);
ragge
1.242
576 #endif
577
578
ragge
1.94
579 #ifdef STABS
ragge
1.95
580 void stabs_init(void);
581 void stabs_file(char *);
gmcgarry
1.161
582 void stabs_efile(char *);
ragge
1.95
583 void stabs_line(int);
584 void stabs_rbrac(int);
585 void stabs_lbrac(int);
586 void stabs_func(struct symtab *);
587 void stabs_newsym(struct symtab *);
588 void stabs_chgsym(struct symtab *);
ragge
1.204
589 void stabs_struct(struct symtab *, struct attr *);
ragge
1.94
590 #endif
591
ragge
1.1
592 #ifndef CHARCAST
593 /* to make character constants into character connstants */
594 /* this is a macro to defend against cross-compilers, etc. */
595 #define CHARCAST(x) (char)(x)
596 #endif
ragge
1.27
597
ragge
1.195
598 /* sometimes int is smaller than pointers */
599 #if SZPOINT(CHAR) <= SZINT
600 #define INTPTR  INT
601 #elif SZPOINT(CHAR) <= SZLONG
602 #define INTPTR  LONG
603 #elif SZPOINT(CHAR) <= SZLONGLONG
604 #define INTPTR  LONGLONG
605 #else
606 #error int size unknown
607 #endif
608
ragge
1.227
609 /* Generate a bitmask from a given type size */
610 #define SZMASK(y) ((((1LL << ((y)-1))-1) << 1) | 1)
611
ragge
1.27
612 /*
613  * C compiler first pass extra defines.
614  */
615 #define QUALIFIER       (MAXOP+1)
616 #define CLASS           (MAXOP+2)
617 #define RB              (MAXOP+3)
618 #define DOT             (MAXOP+4)
619 #define ELLIPSIS        (MAXOP+5)
ragge
1.69
620 #define TYPE            (MAXOP+6)
621 #define LB              (MAXOP+7)
622 #define COMOP           (MAXOP+8)
623 #define QUEST           (MAXOP+9)
624 #define COLON           (MAXOP+10)
625 #define ANDAND          (MAXOP+11)
626 #define OROR            (MAXOP+12)
627 #define NOT             (MAXOP+13)
ragge
1.80
628 #define CAST            (MAXOP+14)
ragge
1.160
629 #define STRING          (MAXOP+15)
ragge
1.81
630
ragge
1.82
631 /* The following must be in the same order as their NOASG counterparts */
ragge
1.81
632 #define PLUSEQ          (MAXOP+16)
633 #define MINUSEQ         (MAXOP+17)
634 #define DIVEQ           (MAXOP+18)
635 #define MODEQ           (MAXOP+19)
636 #define MULEQ           (MAXOP+20)
637 #define ANDEQ           (MAXOP+21)
638 #define OREQ            (MAXOP+22)
639 #define EREQ            (MAXOP+23)
640 #define LSEQ            (MAXOP+24)
641 #define RSEQ            (MAXOP+25)
ragge
1.82
642
643 #define UNASG           (-(PLUSEQ-PLUS))+
ragge
1.69
644
ragge
1.115
645 #define INCR            (MAXOP+26)
646 #define DECR            (MAXOP+27)
ragge
1.160
647 #define SZOF            (MAXOP+28)
ragge
1.167
648 #define CLOP            (MAXOP+29)
ragge
1.168
649 #define ATTRIB          (MAXOP+30)
ragge
1.178
650 #define XREAL           (MAXOP+31)
651 #define XIMAG           (MAXOP+32)
ragge
1.207
652 #define TYMERGE         (MAXOP+33)
ragge
1.234
653 #define LABEL           (MAXOP+34)
ragge
1.248
654 #define BIQUEST         (MAXOP+35)
ragge
1.160
655
656
ragge
1.122
657 /*
658  * The following types are only used in pass1.
659  */
660 #define SIGNED          (MAXTYPES+1)
ragge
1.231
661 #define FARG            (MAXTYPES+2)
ragge
1.178
662 #define FIMAG           (MAXTYPES+3)
663 #define IMAG            (MAXTYPES+4)
664 #define LIMAG           (MAXTYPES+5)
665 #define FCOMPLEX        (MAXTYPES+6)
666 #define COMPLEX         (MAXTYPES+7)
667 #define LCOMPLEX        (MAXTYPES+8)
ragge
1.173
668 #define ENUMTY          (MAXTYPES+9)
669
670 #define ISFTY(x)        ((x) >= FLOAT && (x) <= LDOUBLE)
671 #define ISCTY(x)        ((x) >= FCOMPLEX && (x) <= LCOMPLEX)
672 #define ISITY(x)        ((x) >= FIMAG && (x) <= LIMAG)
ragge
1.204
673 #define ANYCX(p) (p->n_type == STRTY && attr_find(p->n_ap, ATTR_COMPLEX))
ragge
1.115
674
ragge
1.69
675 #define coptype(o)      (cdope(o)&TYFLG)
676 #define clogop(o)       (cdope(o)&LOGFLG)
677 #define casgop(o)       (cdope(o)&ASGFLG)
678
FishEye: Open Source License registered to PCC.
Atlassian FishEye, CVS analysis. (Version:1.6.3 Build:build-336 2008-11-04) - Administration - Page generated 2014-12-21 07:54 +0100