![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mfile1.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv9 / jerq / sgs / comp|
Return to mfile1.h CVS log | Up to [Research Unix] / researchv9 / jerq / sgs / comp |
1.1 ! root 1: /* @(#) mfile1.h: 1.1 12/22/83 */ ! 2: ! 3: ! 4: # include "macdefs.h" ! 5: # include "manifest.h" ! 6: ! 7: /* storage classes */ ! 8: # define SNULL 0 ! 9: # define AUTO 1 ! 10: # define EXTERN 2 ! 11: # define STATIC 3 ! 12: # define REGISTER 4 ! 13: # define EXTDEF 5 ! 14: # define LABEL 6 ! 15: # define ULABEL 7 ! 16: # define MOS 8 ! 17: # define PARAM 9 ! 18: # define STNAME 10 ! 19: # define MOU 11 ! 20: # define UNAME 12 ! 21: # define TYPEDEF 13 ! 22: # define FORTRAN 14 ! 23: # define ENAME 15 ! 24: # define MOE 16 ! 25: # define UFORTRAN 17 ! 26: # define USTATIC 18 ! 27: /* field size is ORed in */ ! 28: # define FIELD 0100 ! 29: # define FLDSIZ 077 ! 30: # ifndef NODBG ! 31: extern char *scnames(); ! 32: # endif ! 33: ! 34: /* location counters */ ! 35: # define PROG 0 ! 36: # define ADATA 1 ! 37: # define DATA 2 ! 38: # define ISTRNG 3 ! 39: # define STRNG 4 ! 40: ! 41: /* symbol table flags */ ! 42: # define SMOS 01 ! 43: # define SHIDDEN 02 ! 44: # define SHIDES 04 ! 45: # define SSET 010 ! 46: # define SREF 020 ! 47: # define SNONUNIQ 040 ! 48: # define STAG 0100 ! 49: ! 50: typedef long OFFSZ; ! 51: ! 52: struct symtab { ! 53: char *sname; ! 54: TWORD stype; /* type word */ ! 55: ! 56: char sclass; /* storage class */ ! 57: char slevel; /* scope level */ ! 58: char sflags; /* flags for set, use, hidden, mos, etc. */ ! 59: int offset; /* offset or value */ ! 60: short dimoff; /* offset into the dimension table */ ! 61: short sizoff; /* offset into the size table */ ! 62: short suse; /* line number of last use of the variable */ ! 63: struct symtab *scopelink; /* chain of symbols at same level */ ! 64: }; ! 65: ! 66: ! 67: struct sw { ! 68: CONSZ sval; ! 69: int slab; ! 70: }; ! 71: ! 72: extern struct sw swtab[]; ! 73: extern struct sw *swp; ! 74: extern int swx; ! 75: ! 76: extern int ftnno; ! 77: extern int blevel; ! 78: extern int instruct, stwart; ! 79: ! 80: extern int lineno, nerrors; ! 81: typedef union { ! 82: int intval; ! 83: NODE * nodep; ! 84: } YYSTYPE; ! 85: extern YYSTYPE yylval; ! 86: ! 87: extern CONSZ lastcon; ! 88: extern CONSZ ccast(); ! 89: extern double dcon; ! 90: ! 91: extern char ftitle[]; ! 92: extern struct symtab stab[]; ! 93: extern int curftn; ! 94: extern int strftn; ! 95: extern char *locnames[]; ! 96: extern int curloc; ! 97: extern int curclass; ! 98: extern int curdim; ! 99: extern int dimtab[]; ! 100: extern int paramstk[]; ! 101: extern int paramno; ! 102: extern int argstk[]; ! 103: extern int argsoff[]; ! 104: extern TWORD argty[]; ! 105: extern int argno; ! 106: extern int autooff, argoff, strucoff; ! 107: extern int regvar; ! 108: extern int nextrvar; ! 109: extern int brkflag; ! 110: extern char yytext[]; ! 111: ! 112: extern int strflg; ! 113: ! 114: extern OFFSZ inoff; ! 115: ! 116: extern int reached; ! 117: ! 118: /* tunnel to buildtree for name id's */ ! 119: ! 120: extern int idname; ! 121: ! 122: extern NODE node[]; ! 123: extern NODE *lastfree; ! 124: ! 125: extern int cflag, hflag, pflag; ! 126: ! 127: /* various labels */ ! 128: extern int brklab; ! 129: extern int contlab; ! 130: #ifdef M32B ! 131: extern int swregno; ! 132: #endif ! 133: extern int flostat; ! 134: extern int retlab; ! 135: extern int retstat; ! 136: extern int asavbc[], *psavbc; ! 137: ! 138: /* flags used in structures/unions */ ! 139: ! 140: # define SEENAME 01 ! 141: # define INSTRUCT 02 ! 142: # define INUNION 04 ! 143: # define FUNNYNAME 010 ! 144: # define TAGNAME 020 ! 145: ! 146: /* flags used in the (elementary) flow analysis ... */ ! 147: ! 148: # define FBRK 02 ! 149: # define FCONT 04 ! 150: # define FDEF 010 ! 151: # define FLOOP 020 ! 152: ! 153: /* ! 154: * These defines control "while" and "for" loop code generation. ! 155: * wloop_level and floop_level each must be set to one of these values. ! 156: */ ! 157: #define LL_TOP 0 /* test at loop top */ ! 158: #define LL_BOT 1 /* test at loop bottom */ ! 159: #define LL_DUP 2 /* duplicate loop test at top and bottom */ ! 160: ! 161: #ifdef M32B ! 162: /* for register allocation optimization */ ! 163: extern int fordepth; ! 164: extern int whdepth; ! 165: extern int brdepth; ! 166: # ifdef IMPREGAL ! 167: extern void rainit(), radbl(), raname(), raua(), raftn(); ! 168: # endif ! 169: #endif ! 170: ! 171: /* flags used for return status */ ! 172: ! 173: # define RETVAL 1 ! 174: # define NRETVAL 2 ! 175: ! 176: /* used to mark a constant with no name field */ ! 177: ! 178: # define NONAME 040000 ! 179: ! 180: /* mark an offset which is undefined */ ! 181: ! 182: # define NOOFFSET (-10201) ! 183: ! 184: /* declarations of various functions */ ! 185: ! 186: extern NODE ! 187: *aadjust(), ! 188: *bcon(), ! 189: *bdty(), ! 190: *block(), ! 191: *bpsize(), ! 192: *buildtree(), ! 193: #ifdef M32B ! 194: *myand(), ! 195: *setswreg(), ! 196: #endif ! 197: *clocal(), ! 198: *conval(), ! 199: *convert(), ! 200: *dclstruct(), ! 201: *doszof(), ! 202: *getstr(), ! 203: *makety(), ! 204: *mkty(), ! 205: *oconvert(), ! 206: *offcon(), ! 207: *optim(), ! 208: *pconvert(), ! 209: *ptmatch(), ! 210: *pvconvert(), ! 211: *rstruct(), ! 212: *sconvert(), ! 213: *strargs(), ! 214: *stref(), ! 215: *talloc(), ! 216: *tymatch(), ! 217: *tymerge(), ! 218: *unconvert(), ! 219: *xicolon(); ! 220: ! 221: OFFSZ tsize(), ! 222: psize(); ! 223: ! 224: TWORD types(), ! 225: ctype(); ! 226: ! 227: char *exname(), *exdcon(); ! 228: ! 229: # define checkst(x) ! 230: ! 231: # ifdef SDB ! 232: # include "sdb.h" ! 233: # endif ! 234: ! 235: /* type that is equivalent to pointers in size */ ! 236: # ifndef PTRTYPE ! 237: # define PTRTYPE INT ! 238: # endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.