blob: b023b06b91a7483c3354a5684b523fdfb49602b9 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
/* variable types (stored in the vtype field of expptr)
* numeric assumptions:
* int < reals < complexes
* TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX
*/
#undef TYQUAD0
#ifdef NO_TYQUAD
#undef TYQUAD
#define TYQUAD_inc 0
#undef NO_LONG_LONG
#define NO_LONG_LONG
#else
#define TYQUAD 5
#define TYQUAD_inc 1
#ifdef NO_LONG_LONG
#define TYQUAD0
#else
#ifndef Llong
typedef long long Llong;
#endif
#ifndef ULlong
typedef unsigned long long ULlong;
#endif
#endif /*NO_LONG_LONG*/
#endif /*NO_TYQUAD*/
#ifdef _WIN64
#define USE_LONGLONG
#endif
#ifdef USE_LONGLONG
typedef unsigned long long Addr;
#define Addrfmt "%llx"
#define Atol atoll
#else
typedef unsigned long Addr;
#define Addrfmt "%lx"
#define Atol atol
#endif
#define TYUNKNOWN 0
#define TYADDR 1
#define TYINT1 2
#define TYSHORT 3
#define TYLONG 4
/* #define TYQUAD 5 */
#define TYREAL (5+TYQUAD_inc)
#define TYDREAL (6+TYQUAD_inc)
#define TYCOMPLEX (7+TYQUAD_inc)
#define TYDCOMPLEX (8+TYQUAD_inc)
#define TYLOGICAL1 (9+TYQUAD_inc)
#define TYLOGICAL2 (10+TYQUAD_inc)
#define TYLOGICAL (11+TYQUAD_inc)
#define TYCHAR (12+TYQUAD_inc)
#define TYSUBR (13+TYQUAD_inc)
#define TYERROR (14+TYQUAD_inc)
#define TYCILIST (15+TYQUAD_inc)
#define TYICILIST (16+TYQUAD_inc)
#define TYOLIST (17+TYQUAD_inc)
#define TYCLLIST (18+TYQUAD_inc)
#define TYALIST (19+TYQUAD_inc)
#define TYINLIST (20+TYQUAD_inc)
#define TYVOID (21+TYQUAD_inc)
#define TYLABEL (22+TYQUAD_inc)
#define TYFTNLEN (23+TYQUAD_inc)
/* TYVOID is not in any tables. */
/* NTYPES, NTYPES0 -- Total number of types, used to allocate tables indexed by
type. Such tables can include the size (in bytes) of objects of a given
type, or labels for returning objects of different types from procedures
(see array rtvlabels) */
#define NTYPES TYVOID
#define NTYPES0 TYCILIST
#define TYBLANK TYSUBR /* Huh? */
|
