Quick Search:

View

Revision:
Expand:  
Changeset: MAIN:ragge:20110623134125

Diff

Diff from 1.229 to:

Annotations

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

Annotated File View

ragge
1.229
1 /*      $Id: pass1.h,v 1.229 2011/06/23 13:41:25 ragge 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.148
92 /* #define SREF         00020 */
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 */
98 #define SASG            04000   /* symbol is assigned to already */
ragge
1.138
99 #define SLOCAL1         010000
100 #define SLOCAL2         020000
101 #define SLOCAL3         040000
ragge
1.71
102
103         /* alignment of initialized quantities */
104 #ifndef AL_INIT
105 #define AL_INIT ALINT
106 #endif
107
ragge
1.37
108 struct rstack;
109 struct symtab;
ragge
1.45
110 union arglist;
ragge
1.168
111 #ifdef GCC_COMPAT
112 struct gcc_attr_pack;
113 #endif
ragge
1.102
114
ragge
1.37
115 /*
ragge
1.44
116  * Dimension/prototype information.
ragge
1.125
117  *      ddim > 0 holds the dimension of an array.
118  *      ddim < 0 is a dynamic array and refers to a tempnode.
ragge
1.208
119  *      ...unless:
120  *              ddim == NOOFFSET, an array without dimenston, "[]"
121  *              ddim == -1, dynamic array while building before defid.
ragge
1.44
122  */
123 union dimfun {
124         int     ddim;           /* Dimension of an array */
ragge
1.45
125         union arglist *dfun;    /* Prototype index */
ragge
1.44
126 };
127
128 /*
ragge
1.102
129  * Argument list member info when storing prototypes.
130  */
131 union arglist {
132         TWORD type;
133         union dimfun *df;
ragge
1.204
134         struct attr *sap;
ragge
1.102
135 };
ragge
1.128
136 #define TNULL           INCREF(FARG) /* pointer to FARG -- impossible type */
137 #define TELLIPSIS       INCREF(INCREF(FARG))
ragge
1.102
138
139 /*
ragge
1.1
140  * Symbol table definition.
141  */
142 struct  symtab {
ragge
1.164
143         struct  symtab *snext;  /* link to other symbols in the same scope */
144         int     soffset;        /* offset or value */
145         char    sclass;         /* storage class */
146         char    slevel;         /* scope level */
147         short   sflags;         /* flags, see below */
ragge
1.132
148         char    *sname;         /* Symbol name */
149         char    *soname;        /* Written-out name */
ragge
1.1
150         TWORD   stype;          /* type word */
ragge
1.74
151         TWORD   squal;          /* qualifier word */
ragge
1.44
152         union   dimfun *sdf;    /* ptr to the dimension/prototype array */
ragge
1.204
153         struct  attr *sap;      /* the base type attribute list */
154 };
155
156 #define ISSOU(ty)   ((ty) == STRTY || (ty) == UNIONTY)
ragge
1.37
157
ragge
1.1
158 /*
159  * External definitions
160  */
ragge
1.49
161 struct swents {                 /* switch table */
162         struct swents *next;    /* Next struct in linked list */
163         CONSZ   sval;           /* case value */
164         int     slab;           /* associated label */
ragge
1.1
165 };
stefan
1.129
166 int mygenswitch(intTWORDstruct swents **, int);
ragge
1.49
167
ragge
1.1
168 extern  int blevel;
ragge
1.30
169 extern  int instructgot_type;
ragge
1.48
170 extern  int oldstyle;
mickey
1.186
171 extern  int oflag;
ragge
1.1
172
173 extern  int linenonerrors;
174
ragge
1.56
175 extern  char *ftitle;
ragge
1.29
176 extern  struct symtab *cftnsp;
ragge
1.108
177 extern  int autooffmaxautooffargoffstrucoff;
ragge
1.1
178 extern  int brkflag;
179
180 extern  OFFSZ inoff;
181
182 extern  int reached;
ragge
1.18
183 extern  int isinlining;
ragge
1.154
184 extern  int xinline;
ragge
1.1
185
ragge
1.124
186 extern  int sdebugidebugpdebug;
ragge
1.1
187
188 /* various labels */
189 extern  int brklab;
190 extern  int contlab;
191 extern  int flostat;
192 extern  int retlab;
ragge
1.220
193 extern  int doing_initstatinit;
ragge
1.225
194 extern  short sztable[];
195 extern  char *astypnames[];
ragge
1.1
196
ragge
1.132
197 /* pragma globals */
gmcgarry
1.152
198 extern int pragma_allpackedpragma_packedpragma_aligned;
ragge
1.132
199 extern char *pragma_renamed;
200
ragge
1.71
201 /*
202  * Flags used in the (elementary) flow analysis ...
203  */
204 #define FBRK            02
205 #define FCONT           04
206 #define FDEF            010
207 #define FLOOP           020
208
ragge
1.228
209 /*
210  * Location counters
211  */
212 #define NOSEG           -1
213 #define PROG            0               /* (ro) program segment */
214 #define DATA            1               /* (rw) data segment */
215 #define RDATA           2               /* (ro) data segment */
216 #define LDATA           3               /* (rw) local data */
217 #define UDATA           4               /* (rw) uninitialized data */
218 #define STRNG           5               /* (ro) string segment */
219 #define PICDATA         6               /* (rw) relocatable data segment */
220 #define PICRDATA        7               /* (ro) relocatable data segment */
221 #define PICLDATA        8               /* (rw) local relocatable data */
222 #define TLSDATA         9               /* (rw) TLS data segment */
223 #define TLSUDATA        10              /* (rw) TLS uninitialized segment */
224 #define CTORS           11              /* constructor */
225 #define DTORS           12              /* destructor */
226 #define NMSEG           13              /* other (named) segment */
227
228 extern int lastlocnextloc;
229 void locctr(int typestruct symtab *sp);
230 void setseg(int typechar *name);
231 void defalign(int al);
232 void symdirec(struct symtab *sp);
233
ragge
1.71
234 /*      mark an offset which is undefined */
235
236 #define NOOFFSET        (-10201)
237
ragge
1.1
238 /* declarations of various functions */
239 extern  NODE
gmcgarry
1.143
240         *buildtree(intNODE *, NODE *r),
ragge
1.204
241         *mkty(unsignedunion dimfun *, struct attr *),
ragge
1.29
242         *rstruct(char *, int),
ragge
1.169
243         *dclstruct(struct rstack *),
ragge
1.133
244         *strend(int gtypechar *),
gmcgarry
1.143
245         *tymerge(NODE *, NODE *),
ragge
1.2
246         *stref(NODE *),
ragge
1.222
247 #ifdef WORD_ADDRESSED
ragge
1.204
248         *offcon(OFFSZTWORDunion dimfun *, struct attr *),
ragge
1.222
249 #endif
ragge
1.2
250         *bcon(int),
stefan
1.131
251         *xbcon(CONSZstruct symtab *, TWORD),
ragge
1.2
252         *bpsize(NODE *),
253         *convert(NODE *, int),
254         *pconvert(NODE *),
255         *oconvert(NODE *),
256         *ptmatch(NODE *),
257         *tymatch(NODE *),
ragge
1.204
258         *makety(NODE *, TWORDTWORDunion dimfun *, struct attr *),
259         *block(intNODE *, NODE *, TWORDunion dimfun *, struct attr *),
ragge
1.2
260         *doszof(NODE *),
261         *talloc(void),
262         *optim(NODE *),
ragge
1.47
263         *clocal(NODE *),
ragge
1.77
264         *ccopy(NODE *),
ragge
1.204
265         *tempnode(intTWORDunion dimfun *, struct attr *),
ragge
1.162
266         *eve(NODE *),
ragge
1.156
267         *doacall(struct symtab *, NODE *, NODE *);
stefan
1.129
268 NODE    *intprom(NODE *);
ragge
1.204
269 OFFSZ   tsize(TWORDunion dimfun *, struct attr *),
ragge
1.2
270         psize(NODE *);
ragge
1.12
271 NODE *  typenode(NODE *new);
ragge
1.25
272 void    spalloc(NODE *, NODE *, OFFSZ);
ragge
1.2
273 char    *exname(char *);
ragge
1.153
274 NODE    *floatcon(char *);
275 NODE    *fhexcon(char *);
ragge
1.174
276 NODE    *bdty(int op, ...);
ragge
1.136
277 extern struct rstack *rpole;
ragge
1.15
278
gmcgarry
1.143
279 int oalloc(struct symtab *, int *);
ragge
1.209
280 void deflabel(char *, NODE *);
ragge
1.29
281 void gotolabel(char *);
gmcgarry
1.143
282 unsigned int esccon(char **);
283 void inline_start(struct symtab *);
ragge
1.18
284 void inline_end(void);
ragge
1.58
285 void inline_addarg(struct interpass *);
gmcgarry
1.143
286 void inline_ref(struct symtab *);
ragge
1.18
287 void inline_prtout(void);
ragge
1.156
288 void inline_args(struct symtab **, int);
289 NODE *inlinetree(struct symtab *, NODE *, NODE *);
ragge
1.46
290 void ftnarg(NODE *);
ragge
1.170
291 struct rstack *bstruct(char *, intNODE *);
ragge
1.29
292 void moedef(char *);
ragge
1.117
293 void beginit(struct symtab *);
294 void simpleinit(struct symtab *, NODE *);
gmcgarry
1.143
295 struct symtab *lookup(char *, int);
296 struct symtab *getsymtab(char *, int);
ragge
1.31
297 char *addstring(char *);
298 char *addname(char *);
gmcgarry
1.143
299 void symclear(int);
300 struct symtab *hide(struct symtab *);
ragge
1.135
301 void soumemb(NODE *, char *, int);
ragge
1.204
302 int talign(unsigned intstruct attr *);
ragge
1.38
303 void bfcode(struct symtab **, int);
ragge
1.48
304 int chkftn(union arglist *, union arglist *);
ragge
1.53
305 void branch(int);
gmcgarry
1.143
306 void cbranch(NODE *, NODE *);
ragge
1.105
307 void extdec(struct symtab *);
ragge
1.133
308 void defzero(struct symtab *);
ragge
1.179
309 int falloc(struct symtab *, intNODE *);
ragge
1.88
310 TWORD ctype(TWORD);  
ragge
1.225
311 void inval(CONSZintNODE *);
312 int ninval(CONSZintNODE *);
gmcgarry
1.143
313 void infld(CONSZintCONSZ);
314 void zbits(CONSZint);
315 void instring(struct symtab *);
316 void inwstring(struct symtab *);
317 void plabel(int);
ragge
1.100
318 void bjobcode(void);
319 void ejobcode(int);
ragge
1.105
320 void calldec(NODE *, NODE *);
ragge
1.110
321 int cisreg(TWORD);
gmcgarry
1.143
322 char *tmpsprintf(char *, ...);
323 char *tmpvsprintf(char *, va_list);
ragge
1.121
324 void asginit(NODE *);
325 void desinit(NODE *);
ragge
1.228
326 void endinit(int);
ragge
1.181
327 void endictx(void);
gmcgarry
1.144
328 void sspinit(void);
329 void sspstart(void);
330 void sspend(void);
ragge
1.117
331 void ilbrace(void);
332 void irbrace(void);
ragge
1.181
333 CONSZ scalinit(NODE *);
gmcgarry
1.143
334 void p1print(char *, ...);
ragge
1.69
335 char *copst(int);
336 int cdope(int);
ragge
1.70
337 void myp2tree(NODE *);
ragge
1.125
338 void lcommprint(void);
339 void lcommdel(struct symtab *);
ragge
1.127
340 NODE *funcode(NODE *);
ragge
1.128
341 struct symtab *enumhd(char *);
342 NODE *enumdcl(struct symtab *);
343 NODE *enumref(char *);
ragge
1.130
344 CONSZ icons(NODE *);
ragge
1.200
345 CONSZ valcast(CONSZ vTWORD t);
ragge
1.212
346 int mypragma(char *);
ragge
1.215
347 char *pragtok(char *);
ragge
1.214
348 int eat(int);
ragge
1.132
349 void fixdef(struct symtab *);
gmcgarry
1.143
350 int cqual(TWORDTWORD);
ragge
1.133
351 void defloc(struct symtab *);
gmcgarry
1.143
352 int fldchk(int);
ragge
1.137
353 int nncon(NODE *);
gmcgarry
1.143
354 void cunput(char);
ragge
1.145
355 NODE *nametree(struct symtab *sp);
ragge
1.147
356 void *inlalloc(int size);
ragge
1.204
357 void *blkalloc(int size);
gmcgarry
1.151
358 void pass1_lastchance(struct interpass *);
ragge
1.150
359 void fldty(struct symtab *p);
ragge
1.158
360 int getlab(void);
ragge
1.170
361 struct suedef *sueget(struct suedef *p);
ragge
1.177
362 void complinit(void);
363 NODE *structref(NODE *pint fchar *name);
364 NODE *cxop(int opNODE *lNODE *r);
ragge
1.178
365 NODE *imop(int opNODE *lNODE *r);
366 NODE *cxelem(int opNODE *p);
367 NODE *cxconj(NODE *p);
368 NODE *cxret(NODE *pNODE *q);
ragge
1.187
369 NODE *cast(NODE *pTWORD tTWORD q);
ragge
1.204
370 NODE *ccast(NODE *pTWORD tTWORD uunion dimfun *dfstruct attr *sue);
ragge
1.202
371 int andable(NODE *);
372 int conval(NODE *, intNODE *);
373 int ispow2(CONSZ);
374 void defid(NODE *qint class);
375 void efcode(void);
376 void ecomp(NODE *p);
377 int upoff(int sizeint alignmentint *poff);
378 void nidcl(NODE *pint class);
379 void eprint(NODE *, intint *, int *);
380 int uclass(int class);
381 int notlval(NODE *);
382 void ecode(NODE *p);
383 void ftnend(void);
384 void dclargs(void);
ragge
1.204
385 int suemeq(struct attr *s1struct attr *s2);
386 struct symtab *strmemb(struct attr *ap);
mickey
1.203
387 int yylex(void);
388 void yyerror(char *);
ragge
1.213
389 int pragmas_gcc(char *t);
ragge
1.217
390 NODE *cstknode(TWORD tunion dimfun *dfstruct attr *ap);
ragge
1.221
391 int concast(NODE *pTWORD t);
ragge
1.190
392 NODE *builtin_check(NODE *fNODE *a);
ragge
1.187
393
ragge
1.153
394 #ifdef SOFTFLOAT
395 typedef struct softfloat SF;
396 SF soft_neg(SF);
397 SF soft_cast(CONSZ vTWORD);
398 SF soft_plus(SFSF);
399 SF soft_minus(SFSF);
400 SF soft_mul(SFSF);
401 SF soft_div(SFSF);
gmcgarry
1.175
402 int soft_cmp_eq(SFSF);
403 int soft_cmp_ne(SFSF);
404 int soft_cmp_ge(SFSF);
405 int soft_cmp_gt(SFSF);
406 int soft_cmp_le(SFSF);
407 int soft_cmp_lt(SFSF);
ragge
1.153
408 int soft_isz(SF);
409 CONSZ soft_val(SF);
410 #define FLOAT_NEG(sf)           soft_neg(sf)
411 #define FLOAT_CAST(v,t)         soft_cast(v, t)
412 #define FLOAT_PLUS(x1,x2)       soft_plus(x1, x2)
413 #define FLOAT_MINUS(x1,x2)      soft_minus(x1, x2)
414 #define FLOAT_MUL(x1,x2)        soft_mul(x1, x2)
415 #define FLOAT_DIV(x1,x2)        soft_div(x1, x2)
416 #define FLOAT_ISZERO(sf)        soft_isz(sf)
417 #define FLOAT_VAL(sf)           soft_val(sf)
gmcgarry
1.175
418 #define FLOAT_EQ(x1,x2)         soft_cmp_eq(x1, x2)
419 #define FLOAT_NE(x1,x2)         soft_cmp_ne(x1, x2)
420 #define FLOAT_GE(x1,x2)         soft_cmp_ge(x1, x2)
421 #define FLOAT_GT(x1,x2)         soft_cmp_gt(x1, x2)
422 #define FLOAT_LE(x1,x2)         soft_cmp_le(x1, x2)
423 #define FLOAT_LT(x1,x2)         soft_cmp_lt(x1, x2)
ragge
1.153
424 #else
425 #define FLOAT_NEG(p)            -(p)
426 #define FLOAT_CAST(p,v)         (ISUNSIGNED(v) ? \
427                 (long double)(U_CONSZ)(p) : (long double)(CONSZ)(p))
428 #define FLOAT_PLUS(x1,x2)       (x1) + (x2)
429 #define FLOAT_MINUS(x1,x2)      (x1) - (x2)
430 #define FLOAT_MUL(x1,x2)        (x1) * (x2)
431 #define FLOAT_DIV(x1,x2)        (x1) / (x2)
432 #define FLOAT_ISZERO(p)         (p) == 0.0
433 #define FLOAT_VAL(p)            (CONSZ)(p)
gmcgarry
1.175
434 #define FLOAT_EQ(x1,x2)         (x1) == (x2)
435 #define FLOAT_NE(x1,x2)         (x1) != (x2)
436 #define FLOAT_GE(x1,x2)         (x1) >= (x2)
437 #define FLOAT_GT(x1,x2)         (x1) > (x2)
438 #define FLOAT_LE(x1,x2)         (x1) <= (x2)
439 #define FLOAT_LT(x1,x2)         (x1) < (x2)
ragge
1.153
440 #endif
441
ragge
1.204
442 enum {  ATTR_NONE,
443
444         /* PCC used attributes */
445         ATTR_COMPLEX,   /* Internal definition of complex */
ragge
1.216
446         xxxATTR_BASETYP,        /* Internal; see below */
ragge
1.204
447         ATTR_QUALTYP,   /* Internal; const/volatile, see below */
448         ATTR_STRUCT,    /* Internal; element list */
449 #define ATTR_MAX ATTR_STRUCT
450
ragge
1.85
451 #ifdef GCC_COMPAT
ragge
1.171
452         /* type attributes */
453         GCC_ATYP_ALIGNED,
454         GCC_ATYP_PACKED,
455         GCC_ATYP_SECTION,
456         GCC_ATYP_TRANSP_UNION,
457         GCC_ATYP_UNUSED,
458         GCC_ATYP_DEPRECATED,
459         GCC_ATYP_MAYALIAS,
460
ragge
1.184
461         /* variable attributes */
462         GCC_ATYP_MODE,
463
ragge
1.171
464         /* function attributes */
465         GCC_ATYP_NORETURN,
466         GCC_ATYP_FORMAT,
467         GCC_ATYP_NONNULL,
468         GCC_ATYP_SENTINEL,
ragge
1.172
469         GCC_ATYP_WEAK,
ragge
1.176
470         GCC_ATYP_FORMATARG,
ragge
1.180
471         GCC_ATYP_GNU_INLINE,
ragge
1.182
472         GCC_ATYP_MALLOC,
ragge
1.183
473         GCC_ATYP_NOTHROW,
ragge
1.185
474         GCC_ATYP_CONST,
475         GCC_ATYP_PURE,
ragge
1.188
476         GCC_ATYP_CONSTRUCTOR,
477         GCC_ATYP_DESTRUCTOR,
ragge
1.189
478         GCC_ATYP_VISIBILITY,
ragge
1.192
479         GCC_ATYP_STDCALL,
480         GCC_ATYP_CDECL,
ragge
1.193
481         GCC_ATYP_WARN_UNUSED_RESULT,
ragge
1.194
482         GCC_ATYP_USED,
ragge
1.196
483         GCC_ATYP_NO_INSTR_FUN,
484         GCC_ATYP_NOINLINE,
ragge
1.197
485         GCC_ATYP_ALIAS,
ragge
1.198
486         GCC_ATYP_WEAKREF,
ragge
1.199
487         GCC_ATYP_ALLOCSZ,
ragge
1.201
488         GCC_ATYP_ALW_INL,
ragge
1.211
489         GCC_ATYP_TLSMODEL,
ragge
1.212
490         GCC_ATYP_ALIASWEAK,
ragge
1.171
491
492         /* other stuff */
493         GCC_ATYP_BOUNDED,       /* OpenBSD extra boundary checks */
494
495         GCC_ATYP_MAX
ragge
1.204
496 #endif
ragge
1.171
497 };
498
ragge
1.202
499
ragge
1.204
500 /*
ragge
1.216
501 #ifdef notdef
ragge
1.204
502  * ATTR_BASETYP has the following layout:
503  * aa[0].iarg has size
504  * aa[1].iarg has alignment
ragge
1.216
505 #endif
ragge
1.204
506  * ATTR_QUALTYP has the following layout:
507  * aa[0].iarg has CON/VOL + FUN/ARY/PTR
508  * Not defined yet...
509  * aa[3].iarg is dimension for arrays (XXX future)
510  * aa[3].varg is function defs for functions.
511  */
ragge
1.216
512 #ifdef notdef
ragge
1.204
513 #define atypsz  aa[0].iarg
514 #define aalign  aa[1].iarg
ragge
1.216
515 #endif
ragge
1.204
516
517 /*
518  * ATTR_STRUCT member list.
519  */
520 #define amlist  aa[0].varg
ragge
1.216
521 #define amsize  aa[1].iarg
ragge
1.204
522 #define strattr(x)      (attr_find(x, ATTR_STRUCT))
523
524 #define iarg(x) aa[x].iarg
525 #define sarg(x) aa[x].sarg
526 #define varg(x) aa[x].varg
ragge
1.168
527
ragge
1.85
528 void gcc_init(void);
ragge
1.93
529 int gcc_keyword(char *, NODE **);
ragge
1.204
530 struct attr *gcc_attr_parse(NODE *);
531 void gcc_tcattrfix(NODE *);
ragge
1.170
532 struct gcc_attrib *gcc_get_attr(struct suedef *, int);
ragge
1.204
533 void dump_attr(struct attr *gap);
534
535 struct attr *attr_add(struct attr *origstruct attr *new);
536 struct attr *attr_new(intint);
537 struct attr *attr_find(struct attr *, int);
538 struct attr *attr_copy(struct attr *srcstruct attr *dstint nelem);
539 struct attr *attr_dup(struct attr *apint n);
ragge
1.85
540
ragge
1.94
541 #ifdef STABS
ragge
1.95
542 void stabs_init(void);
543 void stabs_file(char *);
gmcgarry
1.161
544 void stabs_efile(char *);
ragge
1.95
545 void stabs_line(int);
546 void stabs_rbrac(int);
547 void stabs_lbrac(int);
548 void stabs_func(struct symtab *);
549 void stabs_newsym(struct symtab *);
550 void stabs_chgsym(struct symtab *);
ragge
1.204
551 void stabs_struct(struct symtab *, struct attr *);
ragge
1.94
552 #endif
553
ragge
1.1
554 #ifndef CHARCAST
555 /* to make character constants into character connstants */
556 /* this is a macro to defend against cross-compilers, etc. */
557 #define CHARCAST(x) (char)(x)
558 #endif
ragge
1.27
559
ragge
1.195
560 /* sometimes int is smaller than pointers */
561 #if SZPOINT(CHAR) <= SZINT
562 #define INTPTR  INT
563 #elif SZPOINT(CHAR) <= SZLONG
564 #define INTPTR  LONG
565 #elif SZPOINT(CHAR) <= SZLONGLONG
566 #define INTPTR  LONGLONG
567 #else
568 #error int size unknown
569 #endif
570
ragge
1.227
571 /* Generate a bitmask from a given type size */
572 #define SZMASK(y) ((((1LL << ((y)-1))-1) << 1) | 1)
573
ragge
1.27
574 /*
575  * C compiler first pass extra defines.
576  */
577 #define QUALIFIER       (MAXOP+1)
578 #define CLASS           (MAXOP+2)
579 #define RB              (MAXOP+3)
580 #define DOT             (MAXOP+4)
581 #define ELLIPSIS        (MAXOP+5)
ragge
1.69
582 #define TYPE            (MAXOP+6)
583 #define LB              (MAXOP+7)
584 #define COMOP           (MAXOP+8)
585 #define QUEST           (MAXOP+9)
586 #define COLON           (MAXOP+10)
587 #define ANDAND          (MAXOP+11)
588 #define OROR            (MAXOP+12)
589 #define NOT             (MAXOP+13)
ragge
1.80
590 #define CAST            (MAXOP+14)
ragge
1.160
591 #define STRING          (MAXOP+15)
ragge
1.81
592
ragge
1.82
593 /* The following must be in the same order as their NOASG counterparts */
ragge
1.81
594 #define PLUSEQ          (MAXOP+16)
595 #define MINUSEQ         (MAXOP+17)
596 #define DIVEQ           (MAXOP+18)
597 #define MODEQ           (MAXOP+19)
598 #define MULEQ           (MAXOP+20)
599 #define ANDEQ           (MAXOP+21)
600 #define OREQ            (MAXOP+22)
601 #define EREQ            (MAXOP+23)
602 #define LSEQ            (MAXOP+24)
603 #define RSEQ            (MAXOP+25)
ragge
1.82
604
605 #define UNASG           (-(PLUSEQ-PLUS))+
ragge
1.69
606
ragge
1.115
607 #define INCR            (MAXOP+26)
608 #define DECR            (MAXOP+27)
ragge
1.160
609 #define SZOF            (MAXOP+28)
ragge
1.167
610 #define CLOP            (MAXOP+29)
ragge
1.168
611 #define ATTRIB          (MAXOP+30)
ragge
1.178
612 #define XREAL           (MAXOP+31)
613 #define XIMAG           (MAXOP+32)
ragge
1.207
614 #define TYMERGE         (MAXOP+33)
ragge
1.160
615
616
ragge
1.122
617 /*
618  * The following types are only used in pass1.
619  */
620 #define SIGNED          (MAXTYPES+1)
621 #define BOOL            (MAXTYPES+2)
ragge
1.178
622 #define FIMAG           (MAXTYPES+3)
623 #define IMAG            (MAXTYPES+4)
624 #define LIMAG           (MAXTYPES+5)
625 #define FCOMPLEX        (MAXTYPES+6)
626 #define COMPLEX         (MAXTYPES+7)
627 #define LCOMPLEX        (MAXTYPES+8)
ragge
1.173
628 #define ENUMTY          (MAXTYPES+9)
629
630 #define ISFTY(x)        ((x) >= FLOAT && (x) <= LDOUBLE)
631 #define ISCTY(x)        ((x) >= FCOMPLEX && (x) <= LCOMPLEX)
632 #define ISITY(x)        ((x) >= FIMAG && (x) <= LIMAG)
ragge
1.204
633 #define ANYCX(p) (p->n_type == STRTY && attr_find(p->n_ap, ATTR_COMPLEX))
ragge
1.115
634
ragge
1.69
635 #define coptype(o)      (cdope(o)&TYFLG)
636 #define clogop(o)       (cdope(o)&LOGFLG)
637 #define casgop(o)       (cdope(o)&ASGFLG)
638
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 10:18 +0200