Quick Search:

View

Revision:
Expand:  
Changeset: MAIN:ragge:20050514140801

Diff

Diff from 1.44 to:

Annotations

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

Annotated File View

ragge
1.44
1 /*      $Id: manifest.h,v 1.44 2005/05/14 14:08:06 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>
ragge
1.43
40 #include "../config.h"
ragge
1.29
41 #include "macdefs.h"
ragge
1.11
42 #include "node.h"
ragge
1.1
43
44 /*
45  * Node types
46  */
47 #define LTYPE   02              /* leaf */
48 #define UTYPE   04              /* unary */
49 #define BITYPE  010             /* binary */
50
51 /*
ragge
1.28
52  * DSIZE is the size of the dope array
53  */
54 #define DSIZE   (MAXOP+1)
55
56 /*
57  * Type names, used in symbol table building.
58  * The order of the integer types are important.
ragge
1.39
59  * Signed types must have bit 0 unset, unsigned types set (used below).
ragge
1.28
60  */
ragge
1.30
61 #define UNDEF           0       /* free symbol table entry */
ragge
1.28
62 #define FARG            1       /* function argument */
63 #define CHAR            2
64 #define UCHAR           3
65 #define SHORT           4
66 #define USHORT          5
67 #define INT             6
68 #define UNSIGNED        7
69 #define LONG            8
70 #define ULONG           9      
71 #define LONGLONG        10
72 #define ULONGLONG       11
73 #define FLOAT           12
74 #define DOUBLE          13
75 #define LDOUBLE         14
76 #define STRTY           15
77 #define UNIONTY         16
78 #define ENUMTY          17
79 #define MOETY           18      /* member of enum */
80 #define VOID            19
81 /*
ragge
1.32
82  * The following is only used in pass1, for simplicity.
ragge
1.28
83  */
84 #define SIGNED          20
85
ragge
1.40
86 #define MAXTYPES        21      /* highest type+1 used by common code */
ragge
1.28
87 /*
88  * Various flags
89  */
90 #define NOLAB   (-1)
91
92 /* 
93  * Type modifiers.
ragge
1.1
94  */
ragge
1.31
95 #define PTR             0x20
96 #define FTN             0x40
97 #define ARY             0x60
98 #define CON             0x20
99 #define VOL             0x40
ragge
1.1
100
101 /*
102  * Type packing constants
103  */
ragge
1.31
104 #define TMASK   0x060
105 #define TMASK1  0x180
106 #define TMASK2  0x1e0
107 #define BTMASK  0x1f
108 #define BTSHIFT 5
109 #define TSHIFT  2
ragge
1.1
110
111 /*
ragge
1.28
112  * Macros
ragge
1.1
113  */
114 #define MODTYPE(x,y)    x = ((x)&(~BTMASK))|(y) /* set basic type of x to y */
115 #define BTYPE(x)        ((x)&BTMASK)            /* basic type of x */
ragge
1.9
116 #define ISLONGLONG(x)   ((x) == LONGLONG || (x) == ULONGLONG)
ragge
1.34
117 #define ISUNSIGNED(x)   (((x) <= ULONGLONG) && (((x) & 1) == (UNSIGNED & 1)))
ragge
1.24
118 #define UNSIGNABLE(x)   (((x)<=ULONGLONG&&(x)>=CHAR) && !ISUNSIGNED(x))
ragge
1.39
119 #define ENUNSIGN(x)     ((x)|1)
120 #define DEUNSIGN(x)     ((x)&~1)
ragge
1.1
121 #define ISPTR(x)        (((x)&TMASK)==PTR)
ragge
1.31
122 #define ISFTN(x)        (((x)&TMASK)==FTN)      /* is x a function type? */
123 #define ISARY(x)        (((x)&TMASK)==ARY)      /* is x an array type? */
ragge
1.37
124 #define ISCON(x)        (((x)&CON)==CON)        /* is x const? */
125 #define ISVOL(x)        (((x)&VOL)==VOL)        /* is x volatile? */
ragge
1.1
126 #define INCREF(x)       ((((x)&~BTMASK)<<TSHIFT)|PTR|((x)&BTMASK))
ragge
1.32
127 #define INCQAL(x)       ((((x)&~BTMASK)<<TSHIFT)|((x)&BTMASK))
128 #define DECREF(x)       ((((x)>>TSHIFT)&~BTMASK)|((x)&BTMASK))
129 #define DECQAL(x)       ((((x)>>TSHIFT)&~BTMASK)|((x)&BTMASK))
ragge
1.33
130 #define SETOFF(x,y)     { if ((x)%(y) != 0) (x) = (((x)/(y) + 1) * (y)); }
ragge
1.28
131                 /* advance x to a multiple of y */
ragge
1.1
132 #define NOFIT(x,y,z)    (((x)%(z) + (y)) > (z))
ragge
1.28
133                 /* can y bits be added to x without overflowing z */
ragge
1.35
134
135 #ifndef SPECIAL_INTEGERS
136 #define ASGLVAL(lval, val)
137 #endif
ragge
1.1
138
139 /*
140  * Pack and unpack field descriptors (size and offset)
141  */
142 #define PKFIELD(s,o)    (((o)<<6)| (s))
ragge
1.28
143 #define UPKFSZ(v)       ((v)&077)
ragge
1.1
144 #define UPKFOFF(v)      ((v)>>6)
145
146 /*
147  * Operator information
148  */
149 #define TYFLG   016
150 #define ASGFLG  01
151 #define LOGFLG  020
152
153 #define SIMPFLG 040
154 #define COMMFLG 0100
155 #define DIVFLG  0200
156 #define FLOFLG  0400
157 #define LTYFLG  01000
158 #define CALLFLG 02000
159 #define MULFLG  04000
160 #define SHFFLG  010000
161 #define ASGOPFLG 020000
162
163 #define SPFLG   040000
164
ragge
1.8
165 /*
ragge
1.28
166  * Table sizes.
ragge
1.8
167  */
ragge
1.28
168 #define TREESZ  20000           /* space for building parse tree */
ragge
1.1
169
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.21
177
178
179 /*
ragge
1.44
180  * 
181  */
182 extern int idebugbdebugtdebugedebug;
183 extern int ddebugxdebugf2debug;
184 extern int iTflagoTflag;
185 extern int vdebugsflagOflagnflaggflag;
186 extern int Wstrict_prototypesWmissing_prototypesWimplicit_int,
187         Wimplicit_function_declaration;
188 extern int xssaflagxtailcallflagxnewreg;
189
190 int yyparse(void);
191 void yyaccpt(void);
192
193 /*
194  * List handling macros, similar to those in 4.4BSD.
195  * The double-linked list is insque-style.
196  */
197 /* Double-linked list macros */
198 #define DLIST_INIT(h,f)         { (h)->f.q_forw = (h); (h)->f.q_back = (h); }
199 #define DLIST_ENTRY(t)          struct { struct t *q_forw, *q_back; }
200 #define DLIST_NEXT(h,f)         (h)->f.q_forw
201 #define DLIST_PREV(h,f)         (h)->f.q_back
202 #define DLIST_FOREACH(v,h,f) \
203         for ((v) = (h)->f.q_forw; (v) != (h); (v) = (v)->f.q_forw)
204 #define DLIST_INSERT_BEFORE(h,e,f) {    \
205         (e)->f.q_forw = (h);            \
206         (e)->f.q_back = (h)->f.q_back;  \
207         (e)->f.q_back->f.q_forw = (e);  \
208         (h)->f.q_back = (e);            \
209 }
210 #define DLIST_INSERT_AFTER(h,e,f) {     \
211         (e)->f.q_forw = (h)->f.q_forw;  \
212         (e)->f.q_back = (h);            \
213         (e)->f.q_forw->f.q_back = (e);  \
214         (h)->f.q_forw = (e);            \
215 }
216 #define DLIST_REMOVE(e,f) {                      \
217         (e)->f.q_forw->f.q_back = (e)->f.q_back; \
218         (e)->f.q_back->f.q_forw = (e)->f.q_forw; \
219 }
220
221 /* Single-linked list */
222 #define SLIST_INIT(h)   \
223         { (h)->q_forw = NULL; (h)->q_last = &(h)->q_forw; }
224 #define SLIST_ENTRY(t)  struct { struct t *q_forw; }
225 #define SLIST_HEAD(n,t) struct n { struct t *q_forw, **q_last; }
226 #define SLIST_FOREACH(v,h,f) \
227         for ((v) = (h)->q_forw; (v) != NULL; (v) = (v)->f.q_forw)
228 #define SLIST_INSERT_LAST(h,e,f) {      \
229         (e)->f.q_forw = NULL;           \
230         *(h)->q_last = (e);             \
231         (h)->q_last = &(e)->f.q_forw;   \
232 }
233
234 /*
235  * Functions for inter-pass communication.
236  *
237  */
238 struct interpass {
239         DLIST_ENTRY(interpassqelem;
240         int type;
241         int lineno;
242         union {
243                 NODE *_p;
244                 int _locctr;
245                 int _label;
246                 int _curoff;
247                 char *_name;
248         } _un;
249 };
250
251 /*
252  * Special struct for prologue/epilogue.
253  */
254 struct interpass_prolog {
255         struct interpass ipp_ip;
256         char *ipp_name;         /* Function name */
257         int ipp_vis;            /* Function visibility */
258         TWORD ipp_type;         /* Function type */
259         int ipp_regsipp_autos;/* Registers and size on stack needed */
260         int ip_tmpnum;          /* # allocated temp nodes so far */
261 };
262
263 /*
264  * Epilog/prolog takes following arguments (in order):
265  * - type
266  * - regs
267  * - autos
268  * - name
269  * - type
270  * - retlab
271  */
272
273 #define ip_node _un._p
274 #define ip_locc _un._locctr
275 #define ip_lbl  _un._label
276 #define ip_name _un._name
277 #define ip_asm  _un._name
278 #define ip_off  _un._curoff
279
280 /* Types of inter-pass structs */
281 #define IP_NODE         1
282 #define IP_PROLOG       2
283 #define IP_STKOFF       3
284 #define IP_EPILOG       4
285 #define IP_DEFLAB       6
286 #define IP_DEFNAM       7
287 #define IP_ASM          8
288 #define MAXIP           8
289
290 void send_passt(int type, ...);
291 /*
ragge
1.1
292  * External declarations, typedefs and the like
293  */
ragge
1.2
294 char    *hash(char *s);
295 char    *savestr(char *cp);
296 char    *tstr(char *cp);
ragge
1.1
297
ragge
1.29
298 /* memory management stuff */
ragge
1.13
299 void *permalloc(int size);
pj
1.42
300 void *tmpcalloc(int size);
ragge
1.13
301 void *tmpalloc(int size);
302 void tmpfree(void);
ragge
1.29
303 char *newstring(char *, int len);
ragge
1.36
304
305 void tprint(FILE *, TWORDTWORD);
ragge
1.13
306
ragge
1.19
307 /* pass t communication subroutines */
ragge
1.20
308 void topt_compile(struct interpass *);
ragge
1.19
309
310 /* pass 2 communication subroutines */
ragge
1.20
311 void pass2_compile(struct interpass *);
ragge
1.18
312
ragge
1.22
313 /* node routines */
ragge
1.38
314 NODE *nfree(NODE *);
ragge
1.22
315
ragge
1.1
316 extern  int nerrors;            /* number of errors seen so far */
317 #endif
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-09-24 06:29 +0200