# /* * C compiler-- first pass header */ /*** *** Include the following definition for 7/16 version *** ***#define HALFW 0 ***/ /* * parameters */ #define LTYPE long /* change to int if no long consts */ #define NCPS 8 /* # chars per symbol */ #define HSHSIZ 300 /* # entries in hash table for names */ #define CMSIZ 40 /* size of expression stack */ #define SSIZE 20 /* size of other expression stack */ #define SWSIZ 200 /* size of switch table */ #define NMEMS 128 /* Number of members in a structure */ #define NBPC 8 /* bits per character, object machine */ #define LNCPW 4 /* chars per word, compiler's machine */ #define STAUTO (-8*NCPW) /*** offset of first auto variable ***/ #define STARG 0 /*** offset of first argument ***/ #ifdef HALFW #define NBPW 16 /*** bits per word, object machine ***/ #define NCPW 2 /*** chars per word, object machine ***/ #define ALIGN 01 /*** word alignment, object machine ***/ #define MAXINT 077777 /*** largest positive short integer ***/ #define MAXUINT 0177777 /*** largest unsigned integer ***/ #endif #ifndef HALFW #define NBPW 32 /*** bits per word, object machine ***/ #define NCPW 4 /*** chars per word, object machine ***/ #define ALIGN 03 /*** word alignment, object machine ***/ #define MAXINT 017777777777 /*** largest positive integer ***/ #define MAXUINT 037777777777 /*** largest unsigned integer ***/ #endif #define NULL 0 /* null ptr */ /* * # bytes in primitive types */ #define SZCHAR 1 #define SZSHORT 2 /***/ #define SZINT 4 /***/ #define SZPTR 4 /***/ #define SZFLOAT 4 #define SZLONG 4 #define SZDOUB 4 /***/ /* * format of a structure description */ struct str { int ssize; /* structure size */ struct hshtab **memlist; /* member list */ }; /* * For fields, strp points here instead. */ struct field { int flen; /* field width in bits */ int bitoffs; /* shift count */ }; /* * Structure of tree nodes for operators */ struct tnode { int op; /* operator */ int type; /* data type */ int *subsp; /* subscript list (for arrays) */ struct str *strp; /* structure description for structs */ struct tnode *tr1; /* left operand */ struct tnode *tr2; /* right operand */ }; /* * Tree node for constants */ struct cnode { int op; int type; int *subsp; struct str *strp; int value; }; /* * Tree node for long constants */ struct lnode { int op; int type; int *subsp; struct str *strp; LTYPE lvalue; }; /* * tree node for floating * constants */ struct fnode { int op; int type; int *subsp; struct str *strp; char *cstr; }; /* * Structure of namelist */ /* * Pushed-down entry for block structure */ struct phshtab { char hclass; char hflag; int htype; int *hsubsp; struct str *hstrp; int hoffset; struct phshtab *hpdown; char hblklev; }; /* * Top-level namelist */ struct hshtab { char hclass; /* storage class */ char hflag; /* various flags */ int htype; /* type */ int *hsubsp; /* subscript list */ struct str *hstrp; /* structure description */ int hoffset; /* post-allocation location */ struct phshtab *hpdown; /* Pushed-down name in outer block */ char hblklev; /* Block level of definition */ char name[NCPS]; /* ASCII name */ }; /* * Place used to keep dimensions * during declarations */ struct tdim { int rank; int dimens[5]; }; /* * Table for recording switches. */ struct swtab { int swlab; int swval; }; extern char cvtab[4][4]; extern char filename[64]; extern int opdope[]; extern char ctab[]; extern char symbuf[NCPS+2]; extern int hshused; extern struct hshtab hshtab[HSHSIZ]; extern struct tnode **cp; extern int isn; extern struct swtab swtab[SWSIZ]; extern struct swtab *swp; extern int contlab; extern int brklab; extern int retlab; extern int deflab; extern int autolen; extern int peeksym; extern int peekc; extern int eof; extern int line; extern char *funcbase; extern char *curbase; extern char *coremax; extern char *maxdecl; extern int maxauto; extern struct hshtab *defsym; extern struct hshtab *funcsym; extern int proflg; extern int mflag; /***/ extern struct hshtab *csym; extern int cval; extern LTYPE lcval; extern int nchstr; extern int nerror; extern struct hshtab **paraml; extern struct hshtab **parame; extern int strflg; extern int mosflg; extern int initflg; extern int inhdr; extern char obuf[524]; /***/ extern char sbuf[524]; /***/ extern int regvar; extern int bitoffs; extern struct tnode funcblk; extern char cvntab[]; extern char numbuf[64]; extern struct hshtab **memlist; extern int nmems; extern struct hshtab structhole; extern int blklev; /* operators */ #define NULLOP 218 #define EOF 0 #define SEMI 1 #define LBRACE 2 #define RBRACE 3 #define LBRACK 4 #define RBRACK 5 #define LPARN 6 #define RPARN 7 #define COLON 8 #define COMMA 9 #define FSEL 10 #define CAST 11 #define ETYPE 12 #define KEYW 19 #define NAME 20 #define CON 21 #define STRING 22 #define FCON 23 #define SFCON 24 #define LCON 25 #define SLCON 26 #define SIZEOF 91 #define INCBEF 30 #define DECBEF 31 #define INCAFT 32 #define DECAFT 33 #define EXCLA 34 #define AMPER 35 #define STAR 36 #define NEG 37 #define COMPL 38 #define DOT 39 #define PLUS 40 #define MINUS 41 #define TIMES 42 #define DIVIDE 43 #define MOD 44 #define RSHIFT 45 #define LSHIFT 46 #define AND 47 #define OR 48 #define EXOR 49 #define ARROW 50 #define ITOF 51 #define FTOI 52 #define LOGAND 53 #define LOGOR 54 #define FTOL 56 #define LTOF 57 #define ITOL 58 #define LTOI 59 #define ITOP 13 #define PTOI 14 #define LTOP 15 #define EQUAL 60 #define NEQUAL 61 #define LESSEQ 62 #define LESS 63 #define GREATEQ 64 #define GREAT 65 #define LESSEQP 66 #define LESSP 67 #define GREATQP 68 #define GREATP 69 #define ASPLUS 70 #define ASMINUS 71 #define ASTIMES 72 #define ASDIV 73 #define ASMOD 74 #define ASRSH 75 #define ASLSH 76 #define ASSAND 77 #define ASOR 78 #define ASXOR 79 #define ASSIGN 80 #define QUEST 90 #define MAX 93 #define MAXP 94 #define MIN 95 #define MINP 96 #define SEQNC 97 #define CALL 100 #define MCALL 101 #define JUMP 102 #define CBRANCH 103 #define INIT 104 #define SETREG 105 #define RFORCE 110 #define BRANCH 111 #define LABEL 112 #define NLABEL 113 #define RLABEL 114 #define ITOC 109 #define SEOF 200 /* stack EOF marker in expr compilation */ /* types */ #define INT 0 #define CHAR 1 #define FLOAT 2 #define DOUBLE 3 #define STRUCT 4 #define SHORT 5 /***/ #define LONG 6 #define UNSIGN 7 #define UNION 8 /* adjusted later to struct */ #define TYPE 07 #define BIGTYPE 060000 #define TYLEN 2 #define XTYPE (03<<3) #define PTR 010 #define FUNC 020 #define ARRAY 030 /* storage classes */ #define KEYWC 1 #define DEFXTRN 20 #define TYPEDEF 9 #define MOS 10 #define AUTO 11 #define EXTERN 12 #define STATIC 13 #define REG 14 #define STRTAG 15 #define ARG 16 #define ARG1 17 #define AREG 18 #define MOU 21 /* keywords */ #define GOTO 20 #define RETURN 21 #define IF 22 #define WHILE 23 #define ELSE 24 #define SWITCH 25 #define CASE 26 #define BREAK 27 #define CONTIN 28 #define DO 29 #define DEFAULT 30 #define FOR 31 /* characters */ #define BSLASH 117 #define SHARP 118 #define INSERT 119 #define PERIOD 120 #define SQUOTE 121 #define DQUOTE 122 #define LETTER 123 #define DIGIT 124 #define NEWLN 125 #define SPACE 126 #define UNKN 127 /* * Special operators in intermediate code */ #define BDATA 200 #define WDATA 201 #define PROG 202 #define DATA 203 #define BSS 204 #define CSPACE 205 #define SSPACE 206 #define SYMDEF 207 #define SAVE 208 #define RETRN 209 #define EVEN 210 #define PROFIL 212 #define SWIT 213 #define EXPR 214 #define SNAME 215 #define RNAME 216 #define ANAME 217 #define SETSTK 219 #define SINIT 220 #define GLOBAL 221 /***/ /* Flag bits */ #define BINARY 01 #define LVALUE 02 #define RELAT 04 #define ASSGOP 010 #define LWORD 020 #define RWORD 040 #define COMMUTE 0100 #define RASSOC 0200 #define LEAF 0400 /* * Conversion codes */ #define ITF 1 #define ITL 2 #define LTF 3 #define ITP 4 #define PTI 5 #define FTI 6 #define LTI 7 #define FTL 8 #define LTP 9 #define ITC 10 #define XX 15 /* * symbol table flags */ #define FNDEL 01 #define FNUND 02 #define FKEYW 04 #define FUNION 010 #define FFIELD 020 #define FINIT 040 #define FLABL 0100 /* * functions */ char *sbrk(); struct tnode *tree(); char *copnum(); struct tnode *convert(); struct tnode *chkfun(); struct tnode *disarray(); struct tnode *block(); struct cnode *cblock(); struct fnode *fblock(); char *gblock(); struct tnode *pexpr(); struct str *strdec(); struct hshtab *xprtype(); struct tnode *nblock();