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