Quick Search:

View

Revision:
Expand:  
Changeset: MAIN:plunky:20121020201543

Diff

Diff from 1.253 to:

Annotations

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

Annotated File View

plunky
1.253
1 /*      $Id: pass1.h,v 1.253 2012/10/20 20:15:43 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;
plunky
1.253
170 extern  int got_type;
ragge
1.48
171 extern  int oldstyle;
ragge
1.1
172
ragge
1.239
173 extern  int linenonerrorsissyshdr;
ragge
1.1
174
ragge
1.56
175 extern  char *ftitle;
ragge
1.29
176 extern  struct symtab *cftnsp;
plunky
1.253
177 extern  int autooffmaxautooffargoff;
ragge
1.1
178
179 extern  OFFSZ inoff;
180
181 extern  int reached;
ragge
1.18
182 extern  int isinlining;
ragge
1.235
183 extern  int xinlinexgnu89xgnu99;
plunky
1.237
184 extern  int bdebugddebugedebugidebugndebug;
185 extern  int odebugpdebugsdebugtdebugxdebug;
ragge
1.1
186
187 /* various labels */
188 extern  int brklab;
189 extern  int contlab;
190 extern  int flostat;
191 extern  int retlab;
ragge
1.220
192 extern  int doing_initstatinit;
ragge
1.225
193 extern  short sztable[];
194 extern  char *astypnames[];
ragge
1.1
195
ragge
1.132
196 /* pragma globals */
gmcgarry
1.152
197 extern int pragma_allpackedpragma_packedpragma_aligned;
ragge
1.132
198 extern char *pragma_renamed;
199
ragge
1.71
200 /*
201  * Flags used in the (elementary) flow analysis ...
202  */
203 #define FBRK            02
204 #define FCONT           04
205 #define FDEF            010
206 #define FLOOP           020
207
ragge
1.228
208 /*
209  * Location counters
210  */
211 #define NOSEG           -1
212 #define PROG            0               /* (ro) program segment */
213 #define DATA            1               /* (rw) data segment */
214 #define RDATA           2               /* (ro) data segment */
215 #define LDATA           3               /* (rw) local data */
216 #define UDATA           4               /* (rw) uninitialized data */
217 #define STRNG           5               /* (ro) string segment */
218 #define PICDATA         6               /* (rw) relocatable data segment */
219 #define PICRDATA        7               /* (ro) relocatable data segment */
220 #define PICLDATA        8               /* (rw) local relocatable data */
221 #define TLSDATA         9               /* (rw) TLS data segment */
222 #define TLSUDATA        10              /* (rw) TLS uninitialized segment */
223 #define CTORS           11              /* constructor */
224 #define DTORS           12              /* destructor */
225 #define NMSEG           13              /* other (named) segment */
226
227 extern int lastlocnextloc;
228 void locctr(int typestruct symtab *sp);
229 void setseg(int typechar *name);
230 void defalign(int al);
231 void symdirec(struct symtab *sp);
232
ragge
1.71
233 /*      mark an offset which is undefined */
234
235 #define NOOFFSET        (-10201)
236
ragge
1.1
237 /* declarations of various functions */
238 extern  NODE
gmcgarry
1.143
239         *buildtree(intNODE *, NODE *r),
ragge
1.204
240         *mkty(unsignedunion dimfun *, struct attr *),
ragge
1.29
241         *rstruct(char *, int),
ragge
1.169
242         *dclstruct(struct rstack *),
ragge
1.133
243         *strend(int gtypechar *),
gmcgarry
1.143
244         *tymerge(NODE *, NODE *),
ragge
1.2
245         *stref(NODE *),
ragge
1.222
246 #ifdef WORD_ADDRESSED
ragge
1.204
247         *offcon(OFFSZTWORDunion dimfun *, struct attr *),
ragge
1.222
248 #endif
ragge
1.2
249         *bcon(int),
stefan
1.131
250         *xbcon(CONSZstruct symtab *, TWORD),
ragge
1.2
251         *bpsize(NODE *),
252         *convert(NODE *, int),
253         *pconvert(NODE *),
254         *oconvert(NODE *),
255         *ptmatch(NODE *),
ragge
1.204
256         *makety(NODE *, TWORDTWORDunion dimfun *, struct attr *),
257         *block(intNODE *, NODE *, TWORDunion dimfun *, struct attr *),
ragge
1.2
258         *doszof(NODE *),
259         *talloc(void),
260         *optim(NODE *),
ragge
1.47
261         *clocal(NODE *),
ragge
1.77
262         *ccopy(NODE *),
ragge
1.204
263         *tempnode(intTWORDunion dimfun *, struct attr *),
ragge
1.162
264         *eve(NODE *),
ragge
1.156
265         *doacall(struct symtab *, NODE *, NODE *);
stefan
1.129
266 NODE    *intprom(NODE *);
ragge
1.204
267 OFFSZ   tsize(TWORDunion dimfun *, struct attr *),
ragge
1.2
268         psize(NODE *);
ragge
1.12
269 NODE *  typenode(NODE *new);
ragge
1.25
270 void    spalloc(NODE *, NODE *, OFFSZ);
ragge
1.2
271 char    *exname(char *);
ragge
1.153
272 NODE    *floatcon(char *);
273 NODE    *fhexcon(char *);
ragge
1.174
274 NODE    *bdty(int op, ...);
ragge
1.136
275 extern struct rstack *rpole;
ragge
1.15
276
gmcgarry
1.143
277 int oalloc(struct symtab *, int *);
ragge
1.209
278 void deflabel(char *, NODE *);
ragge
1.29
279 void gotolabel(char *);
gmcgarry
1.143
280 unsigned int esccon(char **);
ragge
1.247
281 void inline_start(struct symtab *, int class);
ragge
1.18
282 void inline_end(void);
ragge
1.58
283 void inline_addarg(struct interpass *);
gmcgarry
1.143
284 void inline_ref(struct symtab *);
ragge
1.18
285 void inline_prtout(void);
ragge
1.156
286 void inline_args(struct symtab **, int);
287 NODE *inlinetree(struct symtab *, NODE *, NODE *);
ragge
1.46
288 void ftnarg(NODE *);
ragge
1.170
289 struct rstack *bstruct(char *, intNODE *);
ragge
1.29
290 void moedef(char *);
ragge
1.117
291 void beginit(struct symtab *);
292 void simpleinit(struct symtab *, NODE *);
gmcgarry
1.143
293 struct symtab *lookup(char *, int);
294 struct symtab *getsymtab(char *, int);
ragge
1.31
295 char *addstring(char *);
296 char *addname(char *);
gmcgarry
1.143
297 void symclear(int);
298 struct symtab *hide(struct symtab *);
ragge
1.135
299 void soumemb(NODE *, char *, int);
ragge
1.204
300 int talign(unsigned intstruct attr *);
ragge
1.38
301 void bfcode(struct symtab **, int);
ragge
1.48
302 int chkftn(union arglist *, union arglist *);
ragge
1.53
303 void branch(int);
gmcgarry
1.143
304 void cbranch(NODE *, NODE *);
ragge
1.105
305 void extdec(struct symtab *);
ragge
1.133
306 void defzero(struct symtab *);
ragge
1.179
307 int falloc(struct symtab *, intNODE *);
ragge
1.88
308 TWORD ctype(TWORD);  
ragge
1.225
309 void inval(CONSZintNODE *);
310 int ninval(CONSZintNODE *);
gmcgarry
1.143
311 void infld(CONSZintCONSZ);
312 void zbits(CONSZint);
313 void instring(struct symtab *);
314 void inwstring(struct symtab *);
315 void plabel(int);
ragge
1.100
316 void bjobcode(void);
317 void ejobcode(int);
ragge
1.105
318 void calldec(NODE *, NODE *);
ragge
1.110
319 int cisreg(TWORD);
gmcgarry
1.143
320 char *tmpsprintf(char *, ...);
321 char *tmpvsprintf(char *, va_list);
ragge
1.121
322 void asginit(NODE *);
323 void desinit(NODE *);
ragge
1.228
324 void endinit(int);
ragge
1.181
325 void endictx(void);
gmcgarry
1.144
326 void sspinit(void);
327 void sspstart(void);
328 void sspend(void);
ragge
1.117
329 void ilbrace(void);
330 void irbrace(void);
ragge
1.181
331 CONSZ scalinit(NODE *);
gmcgarry
1.143
332 void p1print(char *, ...);
ragge
1.69
333 char *copst(int);
334 int cdope(int);
ragge
1.70
335 void myp2tree(NODE *);
ragge
1.125
336 void lcommprint(void);
337 void lcommdel(struct symtab *);
ragge
1.127
338 NODE *funcode(NODE *);
ragge
1.128
339 struct symtab *enumhd(char *);
340 NODE *enumdcl(struct symtab *);
341 NODE *enumref(char *);
ragge
1.130
342 CONSZ icons(NODE *);
ragge
1.200
343 CONSZ valcast(CONSZ vTWORD t);
ragge
1.212
344 int mypragma(char *);
ragge
1.215
345 char *pragtok(char *);
ragge
1.214
346 int eat(int);
ragge
1.132
347 void fixdef(struct symtab *);
gmcgarry
1.143
348 int cqual(TWORDTWORD);
ragge
1.133
349 void defloc(struct symtab *);
gmcgarry
1.143
350 int fldchk(int);
ragge
1.137
351 int nncon(NODE *);
gmcgarry
1.143
352 void cunput(char);
ragge
1.145
353 NODE *nametree(struct symtab *sp);
ragge
1.147
354 void *inlalloc(int size);
ragge
1.204
355 void *blkalloc(int size);
gmcgarry
1.151
356 void pass1_lastchance(struct interpass *);
ragge
1.150
357 void fldty(struct symtab *p);
ragge
1.158
358 int getlab(void);
ragge
1.170
359 struct suedef *sueget(struct suedef *p);
ragge
1.177
360 void complinit(void);
361 NODE *structref(NODE *pint fchar *name);
362 NODE *cxop(int opNODE *lNODE *r);
ragge
1.178
363 NODE *imop(int opNODE *lNODE *r);
364 NODE *cxelem(int opNODE *p);
365 NODE *cxconj(NODE *p);
ragge
1.252
366 NODE *cxcast(NODE *p1NODE *p2);
ragge
1.178
367 NODE *cxret(NODE *pNODE *q);
ragge
1.187
368 NODE *cast(NODE *pTWORD tTWORD q);
ragge
1.204
369 NODE *ccast(NODE *pTWORD tTWORD uunion dimfun *dfstruct attr *sue);
ragge
1.202
370 int andable(NODE *);
371 int conval(NODE *, intNODE *);
372 int ispow2(CONSZ);
373 void defid(NODE *qint class);
ragge
1.241
374 void defid2(NODE *qint classchar *astr);
ragge
1.202
375 void efcode(void);
376 void ecomp(NODE *p);
377 int upoff(int sizeint alignmentint *poff);
378 void nidcl(NODE *pint class);
ragge
1.241
379 void nidcl2(NODE *pint classchar *astr);
ragge
1.202
380 void eprint(NODE *, intint *, int *);
381 int uclass(int class);
382 int notlval(NODE *);
383 void ecode(NODE *p);
384 void ftnend(void);
385 void dclargs(void);
ragge
1.204
386 int suemeq(struct attr *s1struct attr *s2);
387 struct symtab *strmemb(struct attr *ap);
mickey
1.203
388 int yylex(void);
389 void yyerror(char *);
ragge
1.213
390 int pragmas_gcc(char *t);
ragge
1.217
391 NODE *cstknode(TWORD tunion dimfun *dfstruct attr *ap);
ragge
1.221
392 int concast(NODE *pTWORD t);
ragge
1.238
393 #ifdef WORD_ADDRESSED
394 #define rmpconv(p) (p)
395 #else
ragge
1.233
396 NODE *rmpconv(NODE *);
ragge
1.238
397 #endif
398 NODE *optloop(NODE *);
ragge
1.235
399 NODE *nlabel(int label);
400
ragge
1.153
401 #ifdef SOFTFLOAT
402 typedef struct softfloat SF;
403 SF soft_neg(SF);
404 SF soft_cast(CONSZ vTWORD);
405 SF soft_plus(SFSF);
406 SF soft_minus(SFSF);
407 SF soft_mul(SFSF);
408 SF soft_div(SFSF);
gmcgarry
1.175
409 int soft_cmp_eq(SFSF);
410 int soft_cmp_ne(SFSF);
411 int soft_cmp_ge(SFSF);
412 int soft_cmp_gt(SFSF);
413 int soft_cmp_le(SFSF);
414 int soft_cmp_lt(SFSF);
ragge
1.153
415 int soft_isz(SF);
416 CONSZ soft_val(SF);
417 #define FLOAT_NEG(sf)           soft_neg(sf)
418 #define FLOAT_CAST(v,t)         soft_cast(v, t)
419 #define FLOAT_PLUS(x1,x2)       soft_plus(x1, x2)
420 #define FLOAT_MINUS(x1,x2)      soft_minus(x1, x2)
421 #define FLOAT_MUL(x1,x2)        soft_mul(x1, x2)
422 #define FLOAT_DIV(x1,x2)        soft_div(x1, x2)
423 #define FLOAT_ISZERO(sf)        soft_isz(sf)
424 #define FLOAT_VAL(sf)           soft_val(sf)
gmcgarry
1.175
425 #define FLOAT_EQ(x1,x2)         soft_cmp_eq(x1, x2)
426 #define FLOAT_NE(x1,x2)         soft_cmp_ne(x1, x2)
427 #define FLOAT_GE(x1,x2)         soft_cmp_ge(x1, x2)
428 #define FLOAT_GT(x1,x2)         soft_cmp_gt(x1, x2)
429 #define FLOAT_LE(x1,x2)         soft_cmp_le(x1, x2)
430 #define FLOAT_LT(x1,x2)         soft_cmp_lt(x1, x2)
ragge
1.153
431 #else
432 #define FLOAT_NEG(p)            -(p)
433 #define FLOAT_CAST(p,v)         (ISUNSIGNED(v) ? \
434                 (long double)(U_CONSZ)(p) : (long double)(CONSZ)(p))
435 #define FLOAT_PLUS(x1,x2)       (x1) + (x2)
436 #define FLOAT_MINUS(x1,x2)      (x1) - (x2)
437 #define FLOAT_MUL(x1,x2)        (x1) * (x2)
438 #define FLOAT_DIV(x1,x2)        (x1) / (x2)
439 #define FLOAT_ISZERO(p)         (p) == 0.0
440 #define FLOAT_VAL(p)            (CONSZ)(p)
gmcgarry
1.175
441 #define FLOAT_EQ(x1,x2)         (x1) == (x2)
442 #define FLOAT_NE(x1,x2)         (x1) != (x2)
443 #define FLOAT_GE(x1,x2)         (x1) >= (x2)
444 #define FLOAT_GT(x1,x2)         (x1) > (x2)
445 #define FLOAT_LE(x1,x2)         (x1) <= (x2)
446 #define FLOAT_LT(x1,x2)         (x1) < (x2)
ragge
1.153
447 #endif
448
ragge
1.204
449 enum {  ATTR_NONE,
450
451         /* PCC used attributes */
452         ATTR_COMPLEX,   /* Internal definition of complex */
ragge
1.216
453         xxxATTR_BASETYP,        /* Internal; see below */
ragge
1.204
454         ATTR_QUALTYP,   /* Internal; const/volatile, see below */
455         ATTR_STRUCT,    /* Internal; element list */
456 #define ATTR_MAX ATTR_STRUCT
457
ragge
1.85
458 #ifdef GCC_COMPAT
ragge
1.171
459         /* type attributes */
460         GCC_ATYP_ALIGNED,
461         GCC_ATYP_PACKED,
462         GCC_ATYP_SECTION,
463         GCC_ATYP_TRANSP_UNION,
464         GCC_ATYP_UNUSED,
465         GCC_ATYP_DEPRECATED,
466         GCC_ATYP_MAYALIAS,
467
ragge
1.184
468         /* variable attributes */
469         GCC_ATYP_MODE,
470
ragge
1.171
471         /* function attributes */
472         GCC_ATYP_NORETURN,
473         GCC_ATYP_FORMAT,
474         GCC_ATYP_NONNULL,
475         GCC_ATYP_SENTINEL,
ragge
1.172
476         GCC_ATYP_WEAK,
ragge
1.176
477         GCC_ATYP_FORMATARG,
ragge
1.180
478         GCC_ATYP_GNU_INLINE,
ragge
1.182
479         GCC_ATYP_MALLOC,
ragge
1.183
480         GCC_ATYP_NOTHROW,
ragge
1.185
481         GCC_ATYP_CONST,
482         GCC_ATYP_PURE,
ragge
1.188
483         GCC_ATYP_CONSTRUCTOR,
484         GCC_ATYP_DESTRUCTOR,
ragge
1.189
485         GCC_ATYP_VISIBILITY,
ragge
1.192
486         GCC_ATYP_STDCALL,
487         GCC_ATYP_CDECL,
ragge
1.193
488         GCC_ATYP_WARN_UNUSED_RESULT,
ragge
1.194
489         GCC_ATYP_USED,
ragge
1.196
490         GCC_ATYP_NO_INSTR_FUN,
491         GCC_ATYP_NOINLINE,
ragge
1.197
492         GCC_ATYP_ALIAS,
ragge
1.198
493         GCC_ATYP_WEAKREF,
ragge
1.199
494         GCC_ATYP_ALLOCSZ,
ragge
1.201
495         GCC_ATYP_ALW_INL,
ragge
1.211
496         GCC_ATYP_TLSMODEL,
ragge
1.212
497         GCC_ATYP_ALIASWEAK,
plunky
1.236
498         GCC_ATYP_RETURNS_TWICE,
ragge
1.240
499         GCC_ATYP_WARNING,
ragge
1.250
500         GCC_ATYP_NOCLONE,
ragge
1.171
501
502         /* other stuff */
503         GCC_ATYP_BOUNDED,       /* OpenBSD extra boundary checks */
504
505         GCC_ATYP_MAX
ragge
1.204
506 #endif
ragge
1.171
507 };
508
ragge
1.202
509
ragge
1.204
510 /*
ragge
1.216
511 #ifdef notdef
ragge
1.204
512  * ATTR_BASETYP has the following layout:
513  * aa[0].iarg has size
514  * aa[1].iarg has alignment
ragge
1.216
515 #endif
ragge
1.204
516  * ATTR_QUALTYP has the following layout:
517  * aa[0].iarg has CON/VOL + FUN/ARY/PTR
518  * Not defined yet...
519  * aa[3].iarg is dimension for arrays (XXX future)
520  * aa[3].varg is function defs for functions.
521  */
ragge
1.216
522 #ifdef notdef
ragge
1.204
523 #define atypsz  aa[0].iarg
524 #define aalign  aa[1].iarg
ragge
1.216
525 #endif
ragge
1.204
526
527 /*
528  * ATTR_STRUCT member list.
529  */
530 #define amlist  aa[0].varg
ragge
1.216
531 #define amsize  aa[1].iarg
ragge
1.204
532 #define strattr(x)      (attr_find(x, ATTR_STRUCT))
533
534 #define iarg(x) aa[x].iarg
535 #define sarg(x) aa[x].sarg
536 #define varg(x) aa[x].varg
ragge
1.168
537
ragge
1.85
538 void gcc_init(void);
ragge
1.93
539 int gcc_keyword(char *, NODE **);
ragge
1.204
540 struct attr *gcc_attr_parse(NODE *);
541 void gcc_tcattrfix(NODE *);
ragge
1.170
542 struct gcc_attrib *gcc_get_attr(struct suedef *, int);
ragge
1.204
543 void dump_attr(struct attr *gap);
ragge
1.243
544 void gcc_modefix(NODE *);
545 NODE *gcc_eval_timode(int opNODE *, NODE *);
ragge
1.246
546 NODE *gcc_eval_ticast(int opNODE *, NODE *);
ragge
1.244
547 NODE *gcc_eval_tiuni(int opNODE *);
ragge
1.249
548 struct attr *isti(NODE *p);
549
ragge
1.204
550
551 struct attr *attr_add(struct attr *origstruct attr *new);
552 struct attr *attr_new(intint);
553 struct attr *attr_find(struct attr *, int);
554 struct attr *attr_copy(struct attr *srcstruct attr *dstint nelem);
555 struct attr *attr_dup(struct attr *apint n);
ragge
1.85
556
ragge
1.242
557 #ifndef NO_C_BUILTINS
558 struct bitable {
559         char *name;
560         NODE *(*fun)(const struct bitable *, NODE *a);
561         short flags;
562 #define BTNOPROTO       001
563 #define BTNORVAL        002
564 #define BTNOEVE         004
ragge
1.245
565 #define BTGNUONLY       010
ragge
1.242
566         short narg;
567         TWORD *tp;
568         TWORD rt;
569 };
570
571 NODE *builtin_check(struct symtab *, NODE *a);
572 void builtin_init(void);
ragge
1.251
573
574 /* Some builtins targets need to implement */
575 NODE *builtin_frame_address(const struct bitable *btNODE *a);
576 NODE *builtin_return_address(const struct bitable *btNODE *a);
577 NODE *builtin_cfa(const struct bitable *btNODE *a);
ragge
1.242
578 #endif
579
580
ragge
1.94
581 #ifdef STABS
ragge
1.95
582 void stabs_init(void);
583 void stabs_file(char *);
gmcgarry
1.161
584 void stabs_efile(char *);
ragge
1.95
585 void stabs_line(int);
586 void stabs_rbrac(int);
587 void stabs_lbrac(int);
588 void stabs_func(struct symtab *);
589 void stabs_newsym(struct symtab *);
590 void stabs_chgsym(struct symtab *);
ragge
1.204
591 void stabs_struct(struct symtab *, struct attr *);
ragge
1.94
592 #endif
593
ragge
1.1
594 #ifndef CHARCAST
595 /* to make character constants into character connstants */
596 /* this is a macro to defend against cross-compilers, etc. */
597 #define CHARCAST(x) (char)(x)
598 #endif
ragge
1.27
599
ragge
1.195
600 /* sometimes int is smaller than pointers */
601 #if SZPOINT(CHAR) <= SZINT
602 #define INTPTR  INT
603 #elif SZPOINT(CHAR) <= SZLONG
604 #define INTPTR  LONG
605 #elif SZPOINT(CHAR) <= SZLONGLONG
606 #define INTPTR  LONGLONG
607 #else
608 #error int size unknown
609 #endif
610
ragge
1.227
611 /* Generate a bitmask from a given type size */
612 #define SZMASK(y) ((((1LL << ((y)-1))-1) << 1) | 1)
613
ragge
1.27
614 /*
615  * C compiler first pass extra defines.
616  */
617 #define QUALIFIER       (MAXOP+1)
618 #define CLASS           (MAXOP+2)
619 #define RB              (MAXOP+3)
620 #define DOT             (MAXOP+4)
621 #define ELLIPSIS        (MAXOP+5)
ragge
1.69
622 #define TYPE            (MAXOP+6)
623 #define LB              (MAXOP+7)
624 #define COMOP           (MAXOP+8)
625 #define QUEST           (MAXOP+9)
626 #define COLON           (MAXOP+10)
627 #define ANDAND          (MAXOP+11)
628 #define OROR            (MAXOP+12)
629 #define NOT             (MAXOP+13)
ragge
1.80
630 #define CAST            (MAXOP+14)
ragge
1.160
631 #define STRING          (MAXOP+15)
ragge
1.81
632
ragge
1.82
633 /* The following must be in the same order as their NOASG counterparts */
ragge
1.81
634 #define PLUSEQ          (MAXOP+16)
635 #define MINUSEQ         (MAXOP+17)
636 #define DIVEQ           (MAXOP+18)
637 #define MODEQ           (MAXOP+19)
638 #define MULEQ           (MAXOP+20)
639 #define ANDEQ           (MAXOP+21)
640 #define OREQ            (MAXOP+22)
641 #define EREQ            (MAXOP+23)
642 #define LSEQ            (MAXOP+24)
643 #define RSEQ            (MAXOP+25)
ragge
1.82
644
645 #define UNASG           (-(PLUSEQ-PLUS))+
ragge
1.69
646
ragge
1.115
647 #define INCR            (MAXOP+26)
648 #define DECR            (MAXOP+27)
ragge
1.160
649 #define SZOF            (MAXOP+28)
ragge
1.167
650 #define CLOP            (MAXOP+29)
ragge
1.168
651 #define ATTRIB          (MAXOP+30)
ragge
1.178
652 #define XREAL           (MAXOP+31)
653 #define XIMAG           (MAXOP+32)
ragge
1.207
654 #define TYMERGE         (MAXOP+33)
ragge
1.234
655 #define LABEL           (MAXOP+34)
ragge
1.248
656 #define BIQUEST         (MAXOP+35)
ragge
1.160
657
658
ragge
1.122
659 /*
660  * The following types are only used in pass1.
661  */
662 #define SIGNED          (MAXTYPES+1)
ragge
1.231
663 #define FARG            (MAXTYPES+2)
ragge
1.178
664 #define FIMAG           (MAXTYPES+3)
665 #define IMAG            (MAXTYPES+4)
666 #define LIMAG           (MAXTYPES+5)
667 #define FCOMPLEX        (MAXTYPES+6)
668 #define COMPLEX         (MAXTYPES+7)
669 #define LCOMPLEX        (MAXTYPES+8)
ragge
1.173
670 #define ENUMTY          (MAXTYPES+9)
671
672 #define ISFTY(x)        ((x) >= FLOAT && (x) <= LDOUBLE)
673 #define ISCTY(x)        ((x) >= FCOMPLEX && (x) <= LCOMPLEX)
674 #define ISITY(x)        ((x) >= FIMAG && (x) <= LIMAG)
ragge
1.204
675 #define ANYCX(p) (p->n_type == STRTY && attr_find(p->n_ap, ATTR_COMPLEX))
ragge
1.115
676
ragge
1.69
677 #define coptype(o)      (cdope(o)&TYFLG)
678 #define clogop(o)       (cdope(o)&LOGFLG)
679 #define casgop(o)       (cdope(o)&ASGFLG)
680
FishEye: Open Source License registered to PCC.
Your maintenance has expired. You can renew your license at http://www.atlassian.com/fisheye/renew
Atlassian FishEye, CVS analysis. (Version:1.6.3 Build:build-336 2008-11-04) - Administration - Page generated 2014-08-31 12:16 +0200