Quick Search:

View

Revision:
Expand:  
Changeset: MAIN:ragge:20110605101924

Diff

Diff from 1.93 to:

Annotations

Annotate by Age | Author | Mixed | None
/fisheye/browse/pcc/pcc/mip/manifest.h

Annotated File View

ragge
1.93
1 /*      $Id: manifest.h,v 1.93 2011/06/05 10:19:25 ragge Exp $  */
ragge
1.28
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
ragge
1.31
36 #ifndef MANIFEST
37 #define MANIFEST
ragge
1.1
38
39 #include <stdio.h>
stefan
1.64
40 #include <string.h>
ragge
1.71
41 #include "config.h"
ragge
1.29
42 #include "macdefs.h"
ragge
1.11
43 #include "node.h"
ragge
1.62
44 #include "compat.h"
ragge
1.1
45
46 /*
47  * Node types
48  */
49 #define LTYPE   02              /* leaf */
50 #define UTYPE   04              /* unary */
51 #define BITYPE  010             /* binary */
52
53 /*
ragge
1.28
54  * DSIZE is the size of the dope array
55  */
56 #define DSIZE   (MAXOP+1)
57
58 /*
59  * Type names, used in symbol table building.
60  * The order of the integer types are important.
ragge
1.39
61  * Signed types must have bit 0 unset, unsigned types set (used below).
ragge
1.28
62  */
ragge
1.30
63 #define UNDEF           0       /* free symbol table entry */
ragge
1.28
64 #define FARG            1       /* function argument */
65 #define CHAR            2
66 #define UCHAR           3
67 #define SHORT           4
68 #define USHORT          5
69 #define INT             6
70 #define UNSIGNED        7
71 #define LONG            8
72 #define ULONG           9      
73 #define LONGLONG        10
74 #define ULONGLONG       11
75 #define FLOAT           12
76 #define DOUBLE          13
77 #define LDOUBLE         14
78 #define STRTY           15
79 #define UNIONTY         16
ragge
1.91
80 #define XTYPE           17      /* Extended target-specific type */
ragge
1.66
81 /* #define      MOETY           18 */   /* member of enum */
ragge
1.28
82 #define VOID            19
83
ragge
1.57
84 #define MAXTYPES        19      /* highest type+1 to be used by lang code */
ragge
1.28
85 /*
86  * Various flags
87  */
88 #define NOLAB   (-1)
89
90 /* 
91  * Type modifiers.
ragge
1.1
92  */
ragge
1.31
93 #define PTR             0x20
94 #define FTN             0x40
95 #define ARY             0x60
96 #define CON             0x20
97 #define VOL             0x40
ragge
1.1
98
99 /*
100  * Type packing constants
101  */
ragge
1.31
102 #define TMASK   0x060
103 #define TMASK1  0x180
104 #define TMASK2  0x1e0
105 #define BTMASK  0x1f
106 #define BTSHIFT 5
107 #define TSHIFT  2
ragge
1.1
108
109 /*
ragge
1.28
110  * Macros
ragge
1.1
111  */
112 #define MODTYPE(x,y)    x = ((x)&(~BTMASK))|(y) /* set basic type of x to y */
113 #define BTYPE(x)        ((x)&BTMASK)            /* basic type of x */
ragge
1.9
114 #define ISLONGLONG(x)   ((x) == LONGLONG || (x) == ULONGLONG)
ragge
1.34
115 #define ISUNSIGNED(x)   (((x) <= ULONGLONG) && (((x) & 1) == (UNSIGNED & 1)))
ragge
1.24
116 #define UNSIGNABLE(x)   (((x)<=ULONGLONG&&(x)>=CHAR) && !ISUNSIGNED(x))
ragge
1.39
117 #define ENUNSIGN(x)     ((x)|1)
118 #define DEUNSIGN(x)     ((x)&~1)
stefan
1.70
119 #define ISINTEGER(x)    (((x) >= CHAR && (x) <= ULONGLONG) || (x) == BOOL)
ragge
1.1
120 #define ISPTR(x)        (((x)&TMASK)==PTR)
ragge
1.31
121 #define ISFTN(x)        (((x)&TMASK)==FTN)      /* is x a function type? */
122 #define ISARY(x)        (((x)&TMASK)==ARY)      /* is x an array type? */
ragge
1.37
123 #define ISCON(x)        (((x)&CON)==CON)        /* is x const? */
124 #define ISVOL(x)        (((x)&VOL)==VOL)        /* is x volatile? */
ragge
1.1
125 #define INCREF(x)       ((((x)&~BTMASK)<<TSHIFT)|PTR|((x)&BTMASK))
ragge
1.32
126 #define INCQAL(x)       ((((x)&~BTMASK)<<TSHIFT)|((x)&BTMASK))
127 #define DECREF(x)       ((((x)>>TSHIFT)&~BTMASK)|((x)&BTMASK))
128 #define DECQAL(x)       ((((x)>>TSHIFT)&~BTMASK)|((x)&BTMASK))
ragge
1.33
129 #define SETOFF(x,y)     { if ((x)%(y) != 0) (x) = (((x)/(y) + 1) * (y)); }
ragge
1.28
130                 /* advance x to a multiple of y */
ragge
1.1
131 #define NOFIT(x,y,z)    (((x)%(z) + (y)) > (z))
ragge
1.28
132                 /* can y bits be added to x without overflowing z */
ragge
1.35
133
ragge
1.93
134 /* Endianness.  Target is expected to TARGET_ENDIAN to one of these  */
135 #define TARGET_LE       1
136 #define TARGET_BE       2
137 #define TARGET_PDP      3
138 #define TARGET_ANY      4
139
ragge
1.35
140 #ifndef SPECIAL_INTEGERS
141 #define ASGLVAL(lval, val)
142 #endif
ragge
1.1
143
144 /*
145  * Pack and unpack field descriptors (size and offset)
146  */
ragge
1.90
147 #define PKFIELD(s,o)    (((o)<<7)| (s))
148 #define UPKFSZ(v)       ((v)&0177)
149 #define UPKFOFF(v)      ((v)>>7)
ragge
1.1
150
151 /*
152  * Operator information
153  */
154 #define TYFLG   016
155 #define ASGFLG  01
156 #define LOGFLG  020
157
158 #define SIMPFLG 040
159 #define COMMFLG 0100
160 #define DIVFLG  0200
161 #define FLOFLG  0400
162 #define LTYFLG  01000
163 #define CALLFLG 02000
164 #define MULFLG  04000
165 #define SHFFLG  010000
166 #define ASGOPFLG 020000
167
168 #define SPFLG   040000
169
ragge
1.8
170 /*
ragge
1.21
171  * Location counters
172  */
ragge
1.41
173 #define PROG            0               /* (ro) program segment */
174 #define DATA            1               /* (rw) data segment */
175 #define RDATA           2               /* (ro) data segment */
176 #define STRNG           3               /* (ro) string segment */
ragge
1.73
177 #define UDATA           4               /* (rw) uninitialized data */
ragge
1.21
178
179
ragge
1.69
180 #define regno(p)        ((p)->n_rval)   /* register number */
181
ragge
1.21
182 /*
ragge
1.44
183  * 
184  */
ragge
1.58
185 extern int bdebugtdebugedebug;
ragge
1.44
186 extern int ddebugxdebugf2debug;
ragge
1.63
187 extern int iTflagoTflagkflag;
gmcgarry
1.72
188 extern int sflagnflaggflagpflag;
gmcgarry
1.75
189 extern int funsigned_char;
190 extern int sspflag;
ragge
1.81
191 extern int xssaflagxtailcallflagxtempsxdeljumpsxdce;
ragge
1.44
192
193 int yyparse(void);
194 void yyaccpt(void);
195
196 /*
197  * List handling macros, similar to those in 4.4BSD.
198  * The double-linked list is insque-style.
199  */
200 /* Double-linked list macros */
201 #define DLIST_INIT(h,f)         { (h)->f.q_forw = (h); (h)->f.q_back = (h); }
202 #define DLIST_ENTRY(t)          struct { struct t *q_forw, *q_back; }
203 #define DLIST_NEXT(h,f)         (h)->f.q_forw
204 #define DLIST_PREV(h,f)         (h)->f.q_back
ragge
1.46
205 #define DLIST_ISEMPTY(h,f)      ((h)->f.q_forw == (h))
ragge
1.60
206 #define DLIST_ENDMARK(h)        (h)
ragge
1.44
207 #define DLIST_FOREACH(v,h,f) \
208         for ((v) = (h)->f.q_forw; (v) != (h); (v) = (v)->f.q_forw)
ragge
1.50
209 #define DLIST_FOREACH_REVERSE(v,h,f) \
210         for ((v) = (h)->f.q_back; (v) != (h); (v) = (v)->f.q_back)
ragge
1.44
211 #define DLIST_INSERT_BEFORE(h,e,f) {    \
212         (e)->f.q_forw = (h);            \
213         (e)->f.q_back = (h)->f.q_back;  \
214         (e)->f.q_back->f.q_forw = (e);  \
215         (h)->f.q_back = (e);            \
216 }
217 #define DLIST_INSERT_AFTER(h,e,f) {     \
218         (e)->f.q_forw = (h)->f.q_forw;  \
219         (e)->f.q_back = (h);            \
220         (e)->f.q_forw->f.q_back = (e);  \
221         (h)->f.q_forw = (e);            \
222 }
223 #define DLIST_REMOVE(e,f) {                      \
224         (e)->f.q_forw->f.q_back = (e)->f.q_back; \
225         (e)->f.q_back->f.q_forw = (e)->f.q_forw; \
226 }
227
228 /* Single-linked list */
229 #define SLIST_INIT(h)   \
230         { (h)->q_forw = NULL; (h)->q_last = &(h)->q_forw; }
ragge
1.87
231 #define SLIST_SETUP(h) { NULL, &(h)->q_forw }
ragge
1.44
232 #define SLIST_ENTRY(t)  struct { struct t *q_forw; }
233 #define SLIST_HEAD(n,t) struct n { struct t *q_forw, **q_last; }
ragge
1.87
234 #define SLIST_ISEMPTY(h) ((h)->q_last == &(h)->q_forw)
ragge
1.56
235 #define SLIST_FIRST(h)  ((h)->q_forw)
ragge
1.44
236 #define SLIST_FOREACH(v,h,f) \
237         for ((v) = (h)->q_forw; (v) != NULL; (v) = (v)->f.q_forw)
ragge
1.83
238 #define SLIST_INSERT_FIRST(h,e,f) {             \
239         if ((h)->q_last == &(h)->q_forw)        \
240                 (h)->q_last = &(e)->f.q_forw;   \
241         (e)->f.q_forw = (h)->q_forw;            \
242         (h)->q_forw = (e);                      \
243 }
ragge
1.44
244 #define SLIST_INSERT_LAST(h,e,f) {      \
245         (e)->f.q_forw = NULL;           \
246         *(h)->q_last = (e);             \
247         (h)->q_last = &(e)->f.q_forw;   \
248 }
249
mickey
1.82
250 #ifndef MKEXT
ragge
1.44
251 /*
252  * Functions for inter-pass communication.
253  *
254  */
255 struct interpass {
256         DLIST_ENTRY(interpassqelem;
257         int type;
258         int lineno;
259         union {
260                 NODE *_p;
261                 int _locctr;
262                 int _label;
263                 int _curoff;
264                 char *_name;
265         } _un;
266 };
267
268 /*
269  * Special struct for prologue/epilogue.
ragge
1.49
270  * - ip_lblnum contains the lowest/highest+1 label used
271  * - ip_lbl is set before/after all code and after/before the prolog/epilog.
ragge
1.44
272  */
273 struct interpass_prolog {
274         struct interpass ipp_ip;
275         char *ipp_name;         /* Function name */
276         int ipp_vis;            /* Function visibility */
277         TWORD ipp_type;         /* Function type */
mickey
1.82
278 #define NIPPREGS        BIT2BYTE(MAXREGS)/sizeof(bittype)
279         bittype ipp_regs[NIPPREGS];
280                                 /* Bitmask of registers to save */
ragge
1.51
281         int ipp_autos;          /* Size on stack needed */
ragge
1.44
282         int ip_tmpnum;          /* # allocated temp nodes so far */
ragge
1.47
283         int ip_lblnum;          /* # used labels so far */
gmcgarry
1.80
284 #ifdef TARGET_IPP_MEMBERS
285         TARGET_IPP_MEMBERS
286 #endif
ragge
1.44
287 };
mickey
1.82
288 #else
ragge
1.84
289 struct interpass { int dummy; };
mickey
1.82
290 struct interpass_prolog;
291 #endif /* !MKEXT */
ragge
1.44
292
293 /*
294  * Epilog/prolog takes following arguments (in order):
295  * - type
296  * - regs
297  * - autos
298  * - name
299  * - type
300  * - retlab
301  */
302
303 #define ip_node _un._p
304 #define ip_locc _un._locctr
305 #define ip_lbl  _un._label
306 #define ip_name _un._name
307 #define ip_asm  _un._name
308 #define ip_off  _un._curoff
309
310 /* Types of inter-pass structs */
311 #define IP_NODE         1
312 #define IP_PROLOG       2
313 #define IP_EPILOG       4
ragge
1.48
314 #define IP_DEFLAB       5
315 #define IP_DEFNAM       6
316 #define IP_ASM          7
317 #define MAXIP           7
ragge
1.44
318
319 void send_passt(int type, ...);
320 /*
ragge
1.1
321  * External declarations, typedefs and the like
322  */
323
ragge
1.86
324 /* used for memory allocation */
325 typedef struct mark {
326         void *tmsav;
327         void *tasav;
328         int elem;
329 MARK;
330
ragge
1.29
331 /* memory management stuff */
ragge
1.13
332 void *permalloc(int size);
pj
1.42
333 void *tmpcalloc(int size);
ragge
1.13
334 void *tmpalloc(int size);
335 void tmpfree(void);
ragge
1.29
336 char *newstring(char *, int len);
ragge
1.79
337 char *tmpstrdup(char *str);
ragge
1.86
338 void markset(struct mark *m);
339 void markfree(struct mark *m);
ragge
1.36
340
gmcgarry
1.68
341 /* command-line processing */
342 void mflags(char *);
343
ragge
1.36
344 void tprint(FILE *, TWORDTWORD);
ragge
1.13
345
ragge
1.19
346 /* pass t communication subroutines */
ragge
1.20
347 void topt_compile(struct interpass *);
ragge
1.19
348
349 /* pass 2 communication subroutines */
ragge
1.20
350 void pass2_compile(struct interpass *);
ragge
1.18
351
ragge
1.22
352 /* node routines */
ragge
1.38
353 NODE *nfree(NODE *);
ragge
1.85
354 void tfree(NODE *);
ragge
1.61
355 NODE *tcopy(NODE *);
ragge
1.85
356 void walkf(NODE *, void (*f)(NODE *, void *), void *);
ragge
1.54
357 void fwalk(NODE *tvoid (*f)(NODE *, intint *, int *), int down);
ragge
1.74
358 void flist(NODE *pvoid (*f)(NODE *, void *), void *);
359 void listf(NODE *pvoid (*f)(NODE *));
360 NODE *listarg(NODE *pint nint *cnt);
ragge
1.85
361 void cerror(char *s, ...);
362 void werror(char *s, ...);
363 void uerror(char *s, ...);
ragge
1.89
364 void mkdope(void);
365 void tcheck(void);
ragge
1.22
366
ragge
1.1
367 extern  int nerrors;            /* number of errors seen so far */
gmcgarry
1.72
368 extern  int warniserr;          /* treat warnings as errors */
ragge
1.92
369
370 /* gcc warning stuff */
371 #define Wtruncate                       0
372 #define Wstrict_prototypes              1
373 #define Wmissing_prototypes             2
374 #define Wimplicit_int                   3
375 #define Wimplicit_function_declaration  4
376 #define Wshadow                         5
377 #define Wpointer_sign                   6
378 #define Wsign_compare                   7
379 #define Wunknown_pragmas                8
380 #define Wunreachable_code               9
381 #define NUMW                            10
382
383 void warner(int type, ...);
384 void Wflags(char *str);
385
ragge
1.1
386 #endif
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-18 19:23 +0100