|
|
1.1 ! root 1: # define makecc(val,i) lastcon |= val<<(8*i); /* pdp-11 womp next char */ ! 2: ! 3: # define ARGINIT 288 /* initial offset for arguments */ ! 4: # define AUTOINIT 0 /* initial automatic offset */ ! 5: extern int SZCHAR; ! 6: extern int SZINT; ! 7: extern int SZFLOAT; ! 8: extern int SZDOUBLE; ! 9: extern int SZLONG; ! 10: extern int SZSHORT; ! 11: extern int SZPOINT; ! 12: extern int ALCHAR; ! 13: extern int ALINT; ! 14: extern int ALFLOAT; ! 15: extern int ALDOUBLE; ! 16: extern int ALLONG; ! 17: extern int ALSHORT; ! 18: extern int ALPOINT; ! 19: extern int ALSTRUCT; ! 20: # define SAVEADJUST 0 /* bits of adjustment required for stackframe */ ! 21: ! 22: ! 23: /* type (INT OR LONG) big enough to hold pointers */ ! 24: ! 25: ! 26: /* size in which constants are converted */ ! 27: /* should be long if feasable */ ! 28: ! 29: # define CONSZ long ! 30: # define CONFMT "%Ld" ! 31: # define CONOFMT "%Lo" ! 32: ! 33: /* size in which offsets are kept ! 34: /* should be large enough to cover address space in bits ! 35: */ ! 36: ! 37: # define OFFSZ long ! 38: ! 39: /* character set macro */ ! 40: ! 41: # define CCTRANS(x) x ! 42: ! 43: /* register cookie for stack pointer */ ! 44: ! 45: # define STKREG 9 ! 46: ! 47: /* maximum and minimum register variable values */ ! 48: ! 49: # define MAXRVAR 1000 ! 50: # define MINRVAR 1 ! 51: ! 52: /* many macro definitions for functions irrelevant to lint */ ! 53: ! 54: # define locctr(n) 0 ! 55: # ifndef FMTARGS ! 56: # define getlab() 10 ! 57: # endif ! 58: # define genswitch( x,y) ! 59: # define bccode() ! 60: # define cendarg() ! 61: # define incode(a,s) (inoff += (s)) ! 62: # define fincode(a,s) (inoff += (s) ) ! 63: # define vfdzero(n) (inoff += (n)) ! 64: # define aobeg() ! 65: # define aoend() ! 66: ! 67: # ifndef unix ! 68: # define NOFORTRAN {extern int pflag; if(pflag) werror( "fortran keyword nonportable" );} ! 69: # else ! 70: # define NOFORTRAN { werror( "fortran keyword nonportable" ); } ! 71: # endif ! 72: ! 73: # define LINT
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.