52 lines
1.3 KiB
C
52 lines
1.3 KiB
C
|
|
||
|
|
/* variable types (stored in the vtype field of expptr)
|
||
|
|
* numeric assumptions:
|
||
|
|
* int < reals < complexes
|
||
|
|
* TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX
|
||
|
|
*/
|
||
|
|
|
||
|
|
#ifdef NO_TYQUAD
|
||
|
|
#undef TYQUAD
|
||
|
|
#define TYQUAD_inc 0
|
||
|
|
#else
|
||
|
|
#define TYQUAD 5
|
||
|
|
#define TYQUAD_inc 1
|
||
|
|
#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? */
|
||
|
|
|