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