![[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] / researchv10no / cmd / ccom / common|
Return to mfile1.h CVS log | Up to [Research Unix] / researchv10no / cmd / ccom / common |
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: # define SBSS 0200 ! 50: ! 51: typedef long OFFSZ; ! 52: ! 53: struct symtab { ! 54: char *sname; ! 55: TWORD stype; /* type word */ ! 56: ! 57: char sclass; /* storage class */ ! 58: char slevel; /* scope level */ ! 59: char sflags; /* flags for set, use, hidden, mos, etc. */ ! 60: int offset; /* offset or value */ ! 61: short dimoff; /* offset into the dimension table */ ! 62: short sizoff; /* offset into the size table */ ! 63: short suse; /* line number of last use of the variable */ ! 64: struct symtab *scopelink; /* chain of symbols at same level */ ! 65: }; ! 66: ! 67: ! 68: struct sw { ! 69: CONSZ sval; ! 70: int slab; ! 71: }; ! 72: ! 73: extern struct sw swtab[]; ! 74: extern struct sw *swp; ! 75: extern int swx; ! 76: ! 77: extern int ftnno; ! 78: extern int blevel; ! 79: extern int instruct, stwart; ! 80: ! 81: extern int lineno, slineno, nerrors; ! 82: typedef struct { ! 83: union { ! 84: int u_intval; ! 85: NODE *u_nodep; ! 86: } YY_un; ! 87: int lineno; ! 88: } YYSTYPE; ! 89: #define intval YY_un.u_intval ! 90: #define nodep YY_un.u_nodep ! 91: extern YYSTYPE yylval; ! 92: ! 93: extern CONSZ lastcon; ! 94: extern CONSZ ccast(); ! 95: extern double dcon; ! 96: ! 97: extern char ftitle[]; ! 98: extern struct symtab stab[]; ! 99: extern int curftn; ! 100: extern int strftn; ! 101: extern char *locnames[]; ! 102: extern int curloc; ! 103: extern int curclass; ! 104: extern int curdim; ! 105: extern int *dimtab; ! 106: extern int paramstk[]; ! 107: extern int paramno; ! 108: extern int argstk[]; ! 109: extern int argsoff[]; ! 110: extern TWORD argty[]; ! 111: extern int argno; ! 112: extern int autooff, argoff, strucoff; ! 113: extern int regvar; ! 114: extern int nextrvar; ! 115: extern int brkflag; ! 116: extern char yytext[]; ! 117: ! 118: extern int strflg; ! 119: ! 120: extern OFFSZ inoff; ! 121: ! 122: extern int reached; ! 123: ! 124: /* tunnel to buildtree for name id's */ ! 125: ! 126: extern int idname; ! 127: ! 128: extern NODE node[]; ! 129: extern NODE *lastfree; ! 130: ! 131: extern int cflag, hflag, pflag; ! 132: ! 133: /* various labels */ ! 134: extern int brklab; ! 135: extern int contlab; ! 136: #ifdef M32B ! 137: extern int swregno; ! 138: #endif ! 139: extern int flostat; ! 140: extern int retlab; ! 141: extern int retstat; ! 142: extern int asavbc[], *psavbc; ! 143: ! 144: /* flags used in structures/unions */ ! 145: ! 146: # define SEENAME 01 ! 147: # define INSTRUCT 02 ! 148: # define INUNION 04 ! 149: # define FUNNYNAME 010 ! 150: # define TAGNAME 020 ! 151: ! 152: /* flags used in the (elementary) flow analysis ... */ ! 153: ! 154: # define FBRK 02 ! 155: # define FCONT 04 ! 156: # define FDEF 010 ! 157: # define FLOOP 020 ! 158: ! 159: /* ! 160: * These defines control "while" and "for" loop code generation. ! 161: * wloop_level and floop_level each must be set to one of these values. ! 162: */ ! 163: #define LL_TOP 0 /* test at loop top */ ! 164: #define LL_BOT 1 /* test at loop bottom */ ! 165: #define LL_DUP 2 /* duplicate loop test at top and bottom */ ! 166: ! 167: #ifdef M32B ! 168: /* for register allocation optimization */ ! 169: extern int fordepth; ! 170: extern int whdepth; ! 171: extern int brdepth; ! 172: # ifdef IMPREGAL ! 173: extern void rainit(), radbl(), raname(), raua(), raftn(); ! 174: # endif ! 175: #endif ! 176: ! 177: /* flags used for return status */ ! 178: ! 179: # define RETVAL 1 ! 180: # define NRETVAL 2 ! 181: ! 182: /* used to mark a constant with no name field */ ! 183: ! 184: # define NONAME 040000 ! 185: ! 186: /* mark an offset which is undefined */ ! 187: ! 188: # define NOOFFSET (-10201) ! 189: ! 190: /* declarations of various functions */ ! 191: ! 192: extern NODE ! 193: *aadjust(), ! 194: *bcon(), ! 195: *bdty(), ! 196: *block(), ! 197: *bpsize(), ! 198: *buildtree(), ! 199: #ifdef M32B ! 200: *myand(), ! 201: *setswreg(), ! 202: #endif ! 203: *clocal(), ! 204: *conval(), ! 205: *convert(), ! 206: *dclstruct(), ! 207: *doszof(), ! 208: *getstr(), ! 209: *makety(), ! 210: *mkty(), ! 211: *oconvert(), ! 212: *offcon(), ! 213: *optim(), ! 214: *pconvert(), ! 215: *ptmatch(), ! 216: *pvconvert(), ! 217: *rstruct(), ! 218: *sconvert(), ! 219: *strargs(), ! 220: *stref(), ! 221: *talloc(), ! 222: *tymatch(), ! 223: *tymerge(), ! 224: *unconvert(), ! 225: *xicolon(); ! 226: ! 227: OFFSZ tsize(), ! 228: psize(); ! 229: ! 230: TWORD types(), ! 231: ctype(); ! 232: ! 233: char *exname(), *exdcon(); ! 234: ! 235: # define checkst(x) ! 236: ! 237: /* type that is equivalent to pointers in size */ ! 238: # ifndef PTRTYPE ! 239: # define PTRTYPE INT ! 240: # endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.