![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to c.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / lcc / c|
Return to c.h CVS log | Up to [Research Unix] / researchv10no / cmd / lcc / c |
1.1 root 1: #ifndef C_H_INCLUDED
2: #define C_H_INCLUDED
3: /* C compiler: definitions */
4:
5: /* default sizes */
6: #define MAXLINE 512 /* maximum input/output line length */
7: #define MAXTOKEN 32 /* maximum token length */
8: #define BUFSIZE 4096 /* input buffer size */
9: #define HASHSIZE 128 /* default hash table size */
10: #define MEMINCR 10 /* blocks (1kb) allocated per arena */
11:
12: #ifdef __LCC__
13: #ifndef __STDC__
14: #define __STDC__
15: #endif
16: #endif
17:
18: #include "ops.h"
19:
20: #ifdef __STDC__
21: #include <stdarg.h>
22: #define va_init va_start
23:
24: typedef enum tokencode {
25: #define xx(a,b,c,d,e,f,g) a=b,
26: #define yy(a,b,c,d,e,f,g)
27: #include "token.h"
28: NTOKENS
29: } Typeop; /* type operators are a subset of tokens */
30:
31: #define dclproto(func,args) func args
32: typedef void *Generic;
33: #else
34: #include <varargs.h>
35: #define va_init(a,b) va_start(a)
36:
37: #define xx(a,b,c,d,e,f,g)
38: #include "token.h"
39: typedef int Typeop;
40:
41: #define dclproto(func,args) func()
42: typedef char *Generic;
43: #endif
44:
45: typedef struct list { /* lists: */
46: Generic x; /* element */
47: struct list *link; /* next node */
48: } *List;
49:
50: typedef struct coord { /* source coordinates: */
51: char *file; /* file name */
52: unsigned short x, y; /* x,y position in file */
53: } Coordinate;
54: typedef union value { /* constant values: */
55: char sc; /* signed */
56: short ss; /* signed */
57: int i; /* signed */
58: unsigned char uc;
59: unsigned short us;
60: unsigned int u;
61: float f;
62: double d;
63: char *p; /* pointer to anything */
64: } Value;
65:
66: typedef struct symbol *Symbol; /* symbol table entries */
67: typedef struct table *Table; /* symbol tables */
68: typedef struct tynode *Type; /* type nodes */
69: typedef struct node *Node; /* dag nodes */
70: typedef struct tree *Tree; /* tree nodes */
71: typedef struct field *Field; /* struct/union fields */
72: typedef struct swtch *Swtch; /* switch data */
73:
74: typedef struct metrics {
75: unsigned char size, align, inline;
76: } Metrics;
77:
78: #include "config.h"
79: typedef struct interface {
80: char *target;
81: Metrics charmetric;
82: Metrics shortmetric;
83: Metrics intmetric;
84: Metrics floatmetric;
85: Metrics doublemetric;
86: Metrics ptrmetric;
87: Metrics structmetric;
88: unsigned left_to_right:1;
89: unsigned little_endian:1;
90: unsigned jump_on_return:1;
91: unsigned mulops_are_calls:1;
92: unsigned compl_band:1;
93: unsigned no_argb:1;
94: unsigned no_dag:1;
95: dclproto(void (*address),(Symbol, Symbol, int));
96: dclproto(void (*blockbeg),(Env *));
97: dclproto(void (*blockend),(Env *));
98: dclproto(void (*defaddress),(Symbol));
99: dclproto(void (*defconst),(int, Value));
100: dclproto(void (*defstring),(int, char *));
101: dclproto(void (*defsymbol),(Symbol));
102: dclproto(void (*emit),(Node));
103: dclproto(void (*export),(Symbol));
104: dclproto(void (*function),(Symbol, Symbol [], Symbol [], int));
105: dclproto(Node (*gen),(Node));
106: dclproto(void (*global),(Symbol));
107: dclproto(void (*import),(Symbol));
108: dclproto(void (*local),(Symbol));
109: dclproto(void (*progbeg),(int, char **));
110: dclproto(void (*progend),(void));
111: dclproto(void (*segment),(int));
112: dclproto(void (*space),(int));
113:
114: dclproto(void (*stabblock),(int, int, Symbol*));
115: dclproto(void (*stabend),(Coordinate *, Symbol, Coordinate **, Symbol *, Symbol *));
116: dclproto(void (*stabfend),(Symbol, int));
117: dclproto(void (*stabinit),(char *, int, char *[]));
118: dclproto(void (*stabline),(Coordinate *));
119: dclproto(void (*stabsym),(Symbol));
120: dclproto(void (*stabtype),(Symbol));
121: Xinterface x;
122: } Interface;
123: extern Interface *interfaces[], *IR;
124:
125: #ifndef MAXKIDS
126: #define MAXKIDS 2
127: #endif
128: #ifndef MAXSYMS
129: #define MAXSYMS 3
130: #endif
131:
132: struct node { /* dag nodes: */
133: Opcode op; /* operator */
134: short count; /* reference count */
135: Symbol syms[MAXSYMS]; /* symbols */
136: Node kids[MAXKIDS]; /* operands */
137: Node link; /* next dag in the forest */
138: Xnode x; /* back-end's type extension */
139: };
140: struct tree { /* tree nodes: */
141: Opcode op; /* operator */
142: Type type; /* type of result */
143: Tree kids[2]; /* operands */
144: Node node; /* associated dag node */
145: union {
146: Symbol sym; /* associated symbol */
147: Value v; /* associated value */
148: Field field; /* associated struct/union bit field */
149: } u;
150: };
151: typedef struct code *Code;
152: struct code { /* code list entries: */
153: #ifdef __STDC__
154: enum {
155: Blockbeg, Blockend, Local, Address, Defpoint,
156: Label, Start, Asm, Gen, Jump, Switch } kind;
157: #else
158: int kind;
159: #define Blockbeg 0
160: #define Blockend 1
161: #define Local 2
162: #define Address 3
163: #define Defpoint 4
164: #define Label 5
165: #define Start 6
166: #define Asm 7
167: #define Gen 8
168: #define Jump 9
169: #define Switch 10
170: #endif
171: Code prev; /* previous code node */
172: Code next; /* next code node */
173: union {
174: struct { /* Asm: assembly language */
175: char *code; /* assembly code */
176: Symbol *argv; /* %name arguments */
177: } acode;
178: struct { /* Blockbeg: */
179: Code prev; /* previous Blockbeg */
180: short bnumber; /* block number */
181: short level; /* block level */
182: Symbol *locals; /* locals */
183: Table identifiers, types;/* symbol tables; used for -g */
184: Env x; /* value filled in by blockbeg() */
185: } block;
186: Symbol var; /* Local: local variable */
187: struct { /* Address: */
188: Symbol sym; /* created symbol */
189: Symbol base; /* local or parameter */
190: int offset; /* offset from sym */
191: } addr;
192: struct { /* Defpoint: execution point */
193: Coordinate src; /* source location */
194: int point; /* execution point number */
195: } point;
196: Node node; /* Label, Gen, Jump: a dag node */
197: struct swselect { /* Switch: swselect data */
198: Symbol sym; /* temporary holding value */
199: Symbol table; /* branch table */
200: Symbol deflab; /* default label */
201: int size; /* size of value & label arrays */
202: int *values; /* value, label pairs */
203: Symbol *labels;
204: } swtch;
205: } u;
206: };
207: typedef struct arena *Arena;
208: struct arena { /* storage allocation arena: */
209: int m; /* size of current allocation request */
210: char *avail; /* next available location */
211: char *limit; /* address 1 past end of arena */
212: Arena first; /* pointer to first arena */
213: Arena next; /* link to next arena */
214: };
215: struct symbol { /* symbol structures: */
216: Xsymbol x; /* back-end's type extension */
217: char *name; /* name */
218: unsigned short scope; /* scope level */
219: unsigned char sclass; /* storage class */
220: unsigned defined:1; /* 1 if defined */
221: unsigned temporary:1; /* 1 if a temporary */
222: unsigned generated:1; /* 1 if a generated identifier */
223: unsigned computed:1; /* 1 if an address computation identifier */
224: unsigned addressed:1; /* 1 if its address is taken */
225: unsigned structarg:1; /* 1 if parameter is a struct */
226: float ref; /* # of references */
227: Type type; /* data type */
228: Coordinate src; /* definition coordinate */
229: Coordinate **uses; /* array of Coordinate *'s for uses (omit) */
230: Symbol up; /* next symbol in this or outer scope */
231: union {
232: struct { /* labels: */
233: int label; /* label number */
234: Symbol equatedto; /* equivalent label */
235: } l;
236: struct { /* struct/union types: */
237: unsigned cfields:1; /* 1 if >= 1 const fields */
238: unsigned vfields:1; /* 1 if >= 1 volatile fields */
239: Table ftab; /* if xref != 0, table of field names */
240: Field flist; /* field list */
241: } s;
242: int value; /* enumeration identifiers: value */
243: Symbol *idlist; /* enumeration types: identifiers */
244: struct { /* constants: */
245: Value v; /* value */
246: Symbol loc; /* out-of-line location */
247: } c;
248: struct { /* functions: */
249: Coordinate pt[3];/* source code coordinates */
250: int label; /* exit label */
251: int ncalls; /* # calls in this function */
252: Symbol *callee; /* parameter symbols */
253: } f;
254: int seg; /* globals, statics: definition segment */
255: } u;
256: #ifdef Ysymbol
257: Ysymbol y;
258: #endif
259: };
260: #ifdef __STDC__
261: enum { CONSTANTS=1, LABELS, GLOBAL, PARAM, LOCAL };
262: #else
263: #define CONSTANTS 1
264: #define LABELS 2
265: #define GLOBAL 3
266: #define PARAM 4
267: #define LOCAL 5
268: #endif
269: typedef struct {
270: unsigned printed:1;
271: unsigned marked:1;
272: unsigned short typeno;
273: } Xtype;
274:
275: struct tynode { /* type nodes: */
276: Typeop op; /* operator */
277: short align; /* alignment in storage units */
278: int size; /* size in storage units */
279: Type type; /* operand */
280: union {
281: Symbol sym; /* associated symbol */
282: struct { /* function types */
283: unsigned oldstyle:1; /* 1 if an old-style function type */
284: Type *proto; /* prototype */
285: } f;
286: } u;
287: Xtype x; /* symbol table information */
288: #ifdef Ytype
289: Ytype y;
290: #endif
291: };
292: struct field { /* struct/union fields: */
293: char *name; /* field name */
294: Type type; /* data type */
295: int offset; /* field offset */
296: short bitsize; /* field size in bits */
297: short lsb; /* lsb bit of the field; rightmost bit is bit 1 */
298: Field link; /* next field in this type */
299: };
300:
301: /* limits */
302: #ifdef __LCC__
303: #include <limits.h>
304: #include <float.h>
305: #else
306: /*
307: * The magnitudes of the values below are greater than or equal to the minimum
308: * permitted by the standard (see Appendix D) and are typical for byte-addressed
309: * machines with 32-bit integers. These values are suitable for bootstrapping.
310: */
311: #define CHAR_BIT 8
312: #define MB_LEN_MAX 1
313:
314: #define UCHAR_MAX 0xff
315: #define USHRT_MAX 0xffff
316: #define UINT_MAX 0xffffffff
317: #define ULONG_MAX 0xffffffffL
318:
319: #define CHAR_MAX SCHAR_MAX
320: #define SCHAR_MAX 0x7f
321: #define SHRT_MAX 0x7fff
322: #define INT_MAX 0x7fffffff
323: #define LONG_MAX 0x7fffffffL
324:
325: #define CHAR_MIN SCHAR_MIN
326: #define SCHAR_MIN (-SCHAR_MAX-1)
327: #define SHRT_MIN (-SHRT_MAX-1)
328: #define INT_MIN (-INT_MAX-1)
329: #define LONG_MIN (-LONG_MAX-1)
330:
331: #define FLT_MAX 1e37
332: #define DBL_MAX 1e37
333: #endif
334:
335: #ifdef __STDC__
336: enum { CODE=1, BSS, DATA, LIT, SYM }; /* logical segments */
337: #else
338: #define CODE 1
339: #define BSS 2
340: #define DATA 3
341: #define LIT 4
342: #define SYM 5
343: #define CONSTANTS 1
344: #define LABELS 2
345: #define GLOBAL 3
346: #define PARAM 4
347: #define LOCAL 5
348: #endif
349:
350: /* misc. macros */
351: #define roundup(x,n) (((x)+((n)-1))&(~((n)-1)))
352: #define utod(x) (2.*(int)((unsigned)(x)>>1)+(int)((x)&1))
353: #ifdef NDEBUG
354: #define assert(c)
355: #else
356: #define assert(c) ((c) || fatal(__FILE__,"assertion failure at line %d\n",\
357: __LINE__))
358: #endif
359:
360: /* C library */
361: #ifndef strtod
362: dclproto(extern double strtod,(char *, char **));
363: #endif
364: dclproto(extern int atoi,(char *));
365: dclproto(extern int close,(int));
366: dclproto(extern int creat,(char *, int));
367: dclproto(extern void exit,(int));
368: dclproto(extern Generic malloc,(unsigned));
369: dclproto(extern int open,(char *, int));
370: dclproto(extern int read,(int, char *, int));
371: dclproto(extern long strtol,(char *, char **, int));
372: dclproto(extern int sprintf,(char *, const char *, ...));
373: dclproto(extern char *strchr,(const char *, int));
374: dclproto(extern int strcmp,(const char *, const char *));
375: dclproto(extern unsigned strlen,(const char *));
376: dclproto(extern char *strncmp,(const char *, const char *, unsigned));
377: dclproto(extern char *strncpy,(char *, const char *, unsigned));
378: dclproto(extern int write,(int, char *, int));
379:
380: extern int bnumber;
381: extern Table constants;
382: extern Table externals;
383: extern Table globals;
384: extern Table identifiers;
385: extern Table labels[2];
386: /*G*/extern Table types;
387: extern int level;
388: extern List symbols;
389: #define islabel(p) ((p) && (p)->op == LABEL+V && (p)->syms[0])
390: #define yyalloc(n,ap) (ap->m = roundup(n,sizeof(double)), \
391: ap->avail + ap->m >= ap->limit ? allocate(ap->m, &ap) : \
392: (ap->avail += ap->m, ap->avail - ap->m))
393: #define alloc(n) yyalloc(n, permanent)
394: #define talloc(n) yyalloc(n, transient)
395: #define BZERO(p,t) \
396: { unsigned *q1 = (unsigned *)(p), *q2 = q1 + ((sizeof (t)/sizeof (unsigned))&~(8-1)); \
397: for ( ; q1 < q2; q1 += 8) \
398: q1[0] = q1[1] = q1[2] = q1[3] = q1[4] = q1[5] = q1[6] = q1[7] = 0; \
399: sizeof (t)/sizeof (unsigned)%8 >= 1 ? q1[0] = 0 : 0; \
400: sizeof (t)/sizeof (unsigned)%8 >= 2 ? q1[1] = 0 : 0; \
401: sizeof (t)/sizeof (unsigned)%8 >= 3 ? q1[2] = 0 : 0; \
402: sizeof (t)/sizeof (unsigned)%8 >= 4 ? q1[3] = 0 : 0; \
403: sizeof (t)/sizeof (unsigned)%8 >= 5 ? q1[4] = 0 : 0; \
404: sizeof (t)/sizeof (unsigned)%8 >= 6 ? q1[5] = 0 : 0; \
405: sizeof (t)/sizeof (unsigned)%8 >= 7 ? q1[6] = 0 : 0; \
406: sizeof (t)%sizeof (unsigned) >= 1 ? ((char *)(q1 + sizeof (t)/sizeof (unsigned)%8))[0] = 0 : 0; \
407: sizeof (t)%sizeof (unsigned) >= 2 ? ((char *)(q1 + sizeof (t)/sizeof (unsigned)%8))[1] = 0 : 0; \
408: sizeof (t)%sizeof (unsigned) >= 3 ? ((char *)(q1 + sizeof (t)/sizeof (unsigned)%8))[2] = 0 : 0; \
409: }
410: #define fieldsize(p) (p)->bitsize
411: #define fieldright(p) ((p)->lsb - 1)
412: #define fieldmask(p) (~(~(unsigned)0<<fieldsize(p)))
413: #define fieldleft(p) (8*(p)->type->size - fieldsize(p) - fieldright(p))
414: /*
415: * type-checking macros.
416: * the operator codes are defined in token.h
417: * to permit the range tests below; don't change them.
418: */
419: #define isqual(t) ((t)->op >= CONST)
420: #define isvolatile(t) ((t)->op == VOLATILE || (t)->op == CONST+VOLATILE)
421: #define isconst(t) ((t)->op == CONST || (t)->op == CONST+VOLATILE)
422: #define unqual(t) (isqual(t) ? (t)->type : t)
423: #define isarray(t) (unqual(t)->op == ARRAY)
424: #define isstruct(t) (unqual(t)->op == STRUCT || unqual(t)->op == UNION)
425: #define isunion(t) (unqual(t)->op == UNION)
426: #define isfunc(t) (unqual(t)->op == FUNCTION)
427: #define isptr(t) (unqual(t)->op == POINTER)
428: #define ischar(t) (unqual(t)->op == CHAR)
429: #define isint(t) (unqual(t)->op >= CHAR && unqual(t)->op <= UNSIGNED)
430: #define isfloat(t) (unqual(t)->op <= DOUBLE)
431: #define isarith(t) (unqual(t)->op <= UNSIGNED)
432: #define isunsigned(t) (unqual(t)->op == UNSIGNED)
433: #define isdouble(t) (unqual(t)->op == DOUBLE)
434: #define isscalar(t) (unqual(t)->op <= POINTER || unqual(t)->op == ENUM)
435: #define isenum(t) (unqual(t)->op == ENUM)
436: #define widen(t) (isint(t) || isenum(t) ? INT : ttob(t))
437: dclproto(extern List append,(Generic, List));
438: dclproto(extern int length,(List));
439: dclproto(extern Generic *ltoa,(List, Generic []));
440: /*G*/dclproto(extern char *string,(char *));
441: /*G*/dclproto(extern char *stringd,(int));
442: dclproto(extern char *stringn,(char *, int));
443:
444: dclproto(extern Symbol constant,(Type, Value));
445: dclproto(extern void enterscope,(void));
446: dclproto(extern void exitscope,(void));
447: dclproto(extern void fielduses,(Symbol, Generic));
448: dclproto(extern Symbol findlabel,(int));
449: dclproto(extern Symbol findtype,(Type));
450: /*G*/dclproto(extern void foreach,(Table, int, void (*)(Symbol, Generic), Generic));
451: dclproto(extern Symbol genident,(int, Type, int));
452: /*G*/dclproto(extern int genlabel,(int));
453: dclproto(extern Symbol install,(char *, Table *, int));
454: dclproto(extern Symbol intconst,(int));
455: dclproto(extern void locus,(Table, Coordinate *));
456: dclproto(extern Symbol lookup,(char *, Table));
457: /*G*/dclproto(extern Symbol newtemp,(int, int));
458: dclproto(extern void rmtemps,(int, int));
459: dclproto(extern void release,(Symbol));
460: dclproto(extern void setuses,(Table));
461: dclproto(extern Table table,(Table, int));
462: dclproto(extern Symbol temporary,(int, Type));
463: dclproto(extern void use,(Symbol, Coordinate));
464:
465: dclproto(extern void addlocal,(Symbol));
466: dclproto(extern Type btot,(int));
467: dclproto(extern Code code,(int));
468: /*G*/dclproto(extern void emitcode,(void));
469: /*G*/dclproto(extern void gencode,(Symbol [], Symbol []));
470: dclproto(extern Node listnodes,(Tree, int, int));
471: dclproto(extern Node jump,(int));
472: /*G*/dclproto(extern Node newnode,(int, Node, Node, Symbol));
473: dclproto(extern Node node,(int, Node, Node, Symbol));
474: dclproto(extern void printdag,(Node, int));
475: dclproto(extern void walk,(Tree, int, int));
476: extern struct code codehead;
477: extern Code codelist;
478: extern int nodecount;
479: dclproto(extern void compound,(int, Swtch, int));
480: dclproto(extern void finalize,(void));
481: dclproto(extern void program,(void));
482: dclproto(extern Type typename,(void));
483: extern Symbol cfunc;
484: extern char *fname;
485: extern Symbol retv;
486: dclproto(extern int genconst,(Tree, int));
487: dclproto(extern int hascall,(Tree));
488: dclproto(extern int nodeid,(Tree));
489: dclproto(extern char *opname,(int));
490: dclproto(extern int *printed,(int));
491: dclproto(extern void printtree,(Tree, int));
492: dclproto(extern Tree retype,(Tree, Type));
493: dclproto(extern Tree root,(Tree));
494: dclproto(extern Tree texpr,(Tree (*)(int), int));
495: dclproto(extern void tfree,(void));
496: dclproto(extern Tree tree,(int, Type, Tree, Tree));
497: extern int ntree;
498: dclproto(extern Tree addrof,(Tree));
499: dclproto(extern Tree asgn,(Symbol, Tree));
500: dclproto(extern Type assign,(Type, Tree));
501: dclproto(extern Tree cast,(Tree, Type));
502: dclproto(extern Tree cond,(Tree));
503: dclproto(extern Tree conditional,(int));
504: dclproto(extern Tree constexpr,(int));
505: dclproto(extern Tree expr0,(int));
506: dclproto(extern Tree expr,(int));
507: dclproto(extern Tree expr1,(int));
508: dclproto(extern Tree field,(Tree, char *));
509: dclproto(extern char *funcname,(Tree));
510: dclproto(extern Tree idnode,(Symbol));
511: dclproto(extern Tree incr,(int, Tree, Tree));
512: dclproto(extern int intexpr,(int, int));
513: dclproto(extern Tree lvalue,(Tree));
514: dclproto(extern Tree pointer,(Tree));
515: dclproto(extern Type promote,(Type));
516: dclproto(extern Tree right,(Tree, Tree));
517: dclproto(extern Tree rvalue,(Tree));
518: dclproto(extern Tree cvtconst,(Tree));
519: dclproto(extern void defglobal,(Symbol, int));
520: dclproto(extern void defpointer,(Symbol));
521: dclproto(extern void doconst,(Symbol, Generic));
522: dclproto(extern int genconst,(Tree, int));
523: dclproto(extern void initglobal,(Symbol, int));
524: dclproto(extern Type initializer,(Type, int));
525: dclproto(extern Tree structexp,(Type, Symbol));
526: dclproto(extern void swtoseg,(int));
527: dclproto(extern void inputInit,(int));
528: dclproto(extern void inputstring,(char *));
529: dclproto(extern void fillbuf,(void));
530: dclproto(extern void nextline,(void));
531: extern unsigned char *cp;
532: extern char *file;
533: extern char *firstfile;
534: extern unsigned char *limit;
535: extern char *line;
536: extern int lineno;
537: dclproto(extern int getchr,(void));
538: dclproto(extern int gettok,(void));
539: extern char kind[];
540: extern Coordinate src;
541: #ifdef __STDC__
542: extern enum tokencode t;
543: #else
544: extern int t;
545: #endif
546: extern char *token;
547: extern Symbol tsym;
548: dclproto(extern int main,(int, char **));
549: dclproto(extern Symbol mkstr,(char *));
550: dclproto(extern Symbol mksymbol,(int, char *,Type));
551: extern int Aflag;
552: extern int Pflag;
553: extern Symbol YYnull;
554: /*G*/extern int glevel;
555: extern int xref;
556: dclproto(void bbinit,(char *));
557: extern int ncalled;
558: extern int npoints;
559: dclproto(void traceinit,(char *));
560: typedef struct {
561: List entry;
562: List exit;
563: List returns;
564: List points;
565: List calls;
566: List end;
567: } Events;
568: extern Events events;
569: dclproto(typedef void (*Apply),(Generic, Generic, Generic));
570: dclproto(extern void attach,(Apply, Generic, List *));
571: dclproto(extern void apply,(List, Generic, Generic));
572: /*G*/dclproto(extern void fprint,(int, char *, ...));
573: /*G*/dclproto(extern void print,(char *, ...));
574: /*G*/dclproto(extern char *stringf,(char *, ...));
575: /*G*/dclproto(extern void outflush,(void));
576: dclproto(extern void outputInit,(int));
577: /*G*/dclproto(extern void outs,(char *));
578: dclproto(extern void vfprint,(int, char *, va_list));
579: dclproto(extern void vprint,(char *, va_list));
580: /*G*/extern char *bp;
581: dclproto(extern void error,(char *, ...));
582: /*G*/dclproto(extern int fatal,(char *, char *, int));
583: dclproto(extern void warning,(char *, ...));
584: dclproto(extern int expect,(int));
585: dclproto(extern void skipto,(int, char *));
586: dclproto(extern void test,(int, char *));
587: extern int errcnt;
588: extern int errlimit;
589: extern int wflag;
590: dclproto(extern int process,(char *));
591: dclproto(extern int findfunc,(char *, char *));
592: dclproto(extern int findcount,(char *, int, int));
593: dclproto(extern Tree asgnnode,(int, Tree, Tree));
594: dclproto(extern Tree bitnode,(int, Tree, Tree));
595: dclproto(extern Tree callnode,(Tree, Type, Tree));
596: dclproto(extern Tree condnode,(Tree, Tree, Tree));
597: dclproto(extern Tree constnode,(unsigned int, Type));
598: dclproto(extern Tree eqnode,(int, Tree, Tree));
599: dclproto(extern Tree shnode,(int, Tree, Tree));
600: dclproto(extern void typeerror,(int, Tree, Tree));
601: dclproto(extern Tree (*opnode[]),(int, Tree, Tree));
602: dclproto(extern Tree simplify,(int, Type, Tree, Tree));
603: dclproto(extern int ispow2,(unsigned u));
604: dclproto(extern char *vtoa,(Type, Value));
605: extern int needconst;
606: dclproto(extern void definelab,(int));
607: dclproto(extern Code definept,(Coordinate *));
608: dclproto(extern void equatelab,(Symbol, Symbol));
609: dclproto(extern void flushequ,(void));
610: dclproto(extern void retcode,(Tree, int));
611: dclproto(extern void statement,(int, Swtch, int));
612: extern float density;
613: extern float refinc;
614: /*G*/dclproto(extern char *allocate,(int, Arena *));
615: dclproto(extern void deallocate,(Arena *));
616: /*G*/extern Arena permanent;
617: /*G*/extern Arena transient;
618: dclproto(extern void typeInit,(void));
619: dclproto(extern Type array,(Type, int, int));
620: dclproto(extern Type atop,(Type));
621: dclproto(extern void checkfields,(Type));
622: dclproto(extern Type composite,(Type, Type));
623: dclproto(extern Symbol deftype,(char *, Type, Coordinate *));
624: dclproto(extern Type deref,(Type));
625: dclproto(extern int eqtype,(Type, Type, int));
626: dclproto(extern Field extends,(Type, Type));
627: /*G*/dclproto(extern Field fieldlist,(Type));
628: dclproto(extern Field fieldref,(char *, Type));
629: /*G*/dclproto(extern Type freturn,(Type));
630: dclproto(extern Type func,(Type, Type *, int));
631: dclproto(extern int hasproto,(Type));
632: dclproto(extern Field newfield,(char *, Type, Type));
633: dclproto(extern Type newstruct,(int, char *));
634: dclproto(extern void outtype,(Type));
635: dclproto(extern void printdecl,(Symbol, Type));
636: dclproto(extern void printproto,(Symbol, Symbol *));
637: dclproto(extern void printtype,(Type, int));
638: dclproto(extern Type ptr,(Type));
639: dclproto(extern Type qual,(int, Type));
640: dclproto(extern void rmtypes,(void));
641: /*G*/dclproto(extern int ttob,(Type));
642: dclproto(extern char *typestring,(Type, char *));
643: /*G*/dclproto(extern int variadic,(Type));
644: /*G*/extern Type chartype;
645: extern Type doubletype;
646: extern Type floattype;
647: /*G*/extern Type inttype;
648: extern Type longdouble;
649: extern Type longtype;
650: extern Type shorttype;
651: extern Type signedchar;
652: /*G*/extern Type unsignedchar;
653: extern Type unsignedlong;
654: /*G*/extern Type unsignedshort;
655: extern Type unsignedtype;
656: extern Type voidptype;
657: extern Type voidtype;
658: #endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.