|
|
1.1 root 1: #ifndef MixedSizes /* int and word are one and the same */
2: #if IntSize == 32
3: #define CIntSize 32 /* Number of bits in cset word */
4: #define LogIntSize 5 /* log of IntSize */
5: #define MinShort 0100000 /* smallest short integer */
6: #define MaxShort 077777 /* largest short integer */
7: #define MinLong 020000000000L /* smallest long integer */
8: #define MaxLong 017777777777L /* largest long integer */
9: #define LogHuge 39 /* maximum base-10 exp+1 of real */
10: #define GranSize 1024 /* storage allocation granule size */
11: #define MaxStrLen 07777777 /* maximum string length */
12: /*
13: * Cset initialization macros.
14: */
15: #define twd(w0, w1) ((w0)&0xffff | (w1)<<16)
16: #define cset_display(w0,w1,w2,w3,w4,w5,w6,w7,w8,w9,wa,wb,wc,wd,we,wf) \
17: {twd(w0,w1),twd(w2,w3),twd(w4,w5),twd(w6,w7), \
18: twd(w8,w9),twd(wa,wb),twd(wc,wd),twd(we,wf)}
19:
20: #define F_Nqual 0x80000000 /* set if NOT string qualifier */
21: #define F_Var 0x40000000 /* set if variable */
22: #define F_Tvar 0x20000000 /* set if trapped variable */
23: #define F_Ptr 0x10000000 /* set if value field is pointer */
24: #endif IntSize == 32
25:
26: #if IntSize == 16
27: #define CIntSize 16 /* Number of bits in cset word */
28: #define LogIntSize 4 /* log of CIntSize */
29: #define MinLong 020000000000L /* smallest long integer */
30: #define MaxLong 017777777777L /* largest long integer */
31: #define MinShort 0100000 /* smallest short integer */
32: #define MaxShort 077777 /* largest short integer */
33: #define LogHuge 39 /* maximum base-10 exp +1 of float number */
34: #define GranSize 64 /* storage allocation granule size */
35: #define MaxStrLen 077777 /* maximum string length */
36: /*
37: * Cset initialization macros.
38: */
39: #define cset_display(w0,w1,w2,w3,w4,w5,w6,w7,w8,w9,wa,wb,wc,wd,we,wf) \
40: {w0,w1,w2,w3,w4,w5,w6,w7,w8,w9,wa,wb,wc,wd,we,wf}
41:
42: #define F_Nqual 0x8000 /* set if NOT string qualifier */
43: #define F_Var 0x4000 /* set if variable */
44: #define F_Tvar 0x2000 /* set if trapped variable */
45: #define F_Ptr 0x1000 /* set if value field is pointer */
46:
47: #endif IntSize == 16
48:
49: #else MixedSizes
50: #define CIntSize 16 /* Number of bits in cset word */
51: #define LogIntSize 4 /* log of IntSize */
52: #define MinShort 0100000 /* smallest short integer */
53: #define MaxShort 077777 /* largest short integer */
54: #define MinLong 020000000000L /* smallest long integer */
55: #define MaxLong 017777777777L /* largest long integer */
56: #define LogHuge 39 /* maximum base-10 exp+1 of real */
57: #define GranSize 1024 /* storage allocation granule size */
58: #define MaxStrLen 07777777 /* maximum string length */
59:
60: /*
61: * Cset initialization macros.
62: */
63: #define cset_display(w0,w1,w2,w3,w4,w5,w6,w7,w8,w9,wa,wb,wc,wd,we,wf) \
64: {w0,w1,w2,w3,w4,w5,w6,w7,w8,w9,wa,wb,wc,wd,we,wf}
65:
66: #define F_Nqual 0x80000000L /* set if NOT string qualifier */
67: #define F_Var 0x40000000L /* set if variable */
68: #define F_Tvar 0x20000000L /* set if trapped variable */
69: #define F_Ptr 0x10000000L /* set if value field is pointer */
70:
71: #endif MixedSizes
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.