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