|
|
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: ! 37: # define szty(t) (((t)==TDOUBLE)?2:1) ! 38: ! 39: /* number of scratch registers */ ! 40: # define NRGS 6 ! 41: /* use clocal */ ! 42: # define CLOCAL ! 43: /* turn on pi */ ! 44: # define DEBUGSYM ! 45: /* turn on ? */ ! 46: # define ASSYCOMMENT ! 47: ! 48: /* asm markers */ ! 49: ! 50: #define ASM_COMMENT "#ASM" ! 51: #define ASM_END "#ASMEND" ! 52: ! 53: /* decide what ops can be shortened */ ! 54: # define OPBIGSZ ! 55: ! 56: /* yes, we can use .comm and .lcomm */ ! 57: ! 58: #define ALLCOMM ! 59: ! 60: /* try to make float constants single precision */ ! 61: ! 62: #define MYFCON(p) myfcon(p) ! 63: ! 64: /* debugging hooks */ ! 65: ! 66: #define GDEBUG
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.