|
|
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.