|
|
1.1 ! root 1: /* VAX */ ! 2: ! 3: # define ARGINIT 32 ! 4: # define AUTOINIT 0 ! 5: # define SZCHAR 8 ! 6: # define SZINT 32 ! 7: # define SZFLOAT 32 ! 8: # define SZDOUBLE 64 ! 9: # define SZSHORT 16 ! 10: # define SZPOINT 32 ! 11: # define ALCHAR 8 ! 12: # define ALINT 32 ! 13: # define ALFLOAT 32 ! 14: # define ALDOUBLE 32 ! 15: # define ALSHORT 16 ! 16: # define ALPOINT 32 ! 17: # define ALSTRUCT 8 ! 18: # define ALSTACK 32 ! 19: # define ALINIT 32 ! 20: # define NOLONG /* map longs to ints */ ! 21: ! 22: /* format for labels */ ! 23: # define LABFMT "L%d" ! 24: ! 25: /* automatics and temporaries are on a negative growing stack */ ! 26: # define BACKAUTO ! 27: # define BACKTEMP ! 28: # define BACKTEMP ! 29: ! 30: /* bytes run from right to left */ ! 31: # define RTOLBYTES ! 32: /* characters are signed */ ! 33: # define CHSIGN ! 34: /* structures are returned in a static location */ ! 35: # define STATSRET ! 36: #define SRETNAME sretname ! 37: ! 38: # define szty(t) (((t)==TDOUBLE)?2:1) ! 39: ! 40: /* number of scratch registers */ ! 41: # define NRGS 6 ! 42: /* use clocal */ ! 43: # define CLOCAL ! 44: /* turn on pi */ ! 45: # define DEBUGSYM ! 46: /* turn on ? */ ! 47: # define ASSYCOMMENT ! 48: ! 49: /* asm markers */ ! 50: ! 51: #define ASM_COMMENT "#ASM" ! 52: #define ASM_END "#ASMEND" ! 53: ! 54: /* decide what ops can be shortened */ ! 55: # define OPBIGSZ ! 56: ! 57: /* yes, we can use .comm and .lcomm */ ! 58: ! 59: #define ALLCOMM ! 60: ! 61: /* try to make float constants single precision */ ! 62: ! 63: #define MYFCON(p) myfcon(p) ! 64: ! 65: /* debugging hooks */ ! 66: ! 67: #define GDEBUG
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.