|
|
1.1 ! root 1: /* copy of ftypes from the compiler */ ! 2: /* variable types ! 3: * numeric assumptions: ! 4: * int < reals < complexes ! 5: * TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX ! 6: */ ! 7: ! 8: #define TYUNKNOWN 0 ! 9: #define TYADDR 1 ! 10: #define TYSHORT 2 ! 11: #define TYLONG 3 ! 12: #define TYREAL 4 ! 13: #define TYDREAL 5 ! 14: #define TYCOMPLEX 6 ! 15: #define TYDCOMPLEX 7 ! 16: #define TYLOGICAL 8 ! 17: #define TYCHAR 9 ! 18: #define TYSUBR 10 ! 19: #define TYERROR 11 ! 20: ! 21: #define NTYPES (TYERROR+1) ! 22: ! 23: #define LINTW 12 ! 24: #define LINE 80 ! 25: #define LLOGW 2 ! 26: #define LLOW 1.0 ! 27: #define LHIGH 10.0 ! 28: #define LFW 12 ! 29: #define LFD 8 ! 30: #define LEW 16 ! 31: #define LED 9 ! 32: #define LEE 2 ! 33: ! 34: typedef union ! 35: { short flshort; ! 36: ftnint flint; ! 37: float flreal; ! 38: double fldouble; ! 39: } flex; ! 40: extern int scale; ! 41: extern int (*lioproc)();
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.