xref: /original-bsd/usr.bin/f77/pass1.vax/ftypes.h (revision 5be0f76f)
1 /*-
2  * Copyright (c) 1980 The Regents of the University of California.
3  * All rights reserved.
4  *
5  * %sccs.include.proprietary.c%
6  *
7  *	@(#)ftypes.h	5.2 (Berkeley) 04/12/91
8  */
9 
10 
11 /* variable types
12  * numeric assumptions:
13  *	int < reals < complexes
14  *	TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX
15  */
16 
17 #define TYUNKNOWN 0
18 #define TYADDR 1
19 #define TYSHORT 2
20 #define TYLONG 3
21 #define TYREAL 4
22 #define TYDREAL 5
23 #define TYCOMPLEX 6
24 #define TYDCOMPLEX 7
25 #define TYLOGICAL 8
26 #define TYCHAR 9
27 #define TYSUBR 10
28 #define TYERROR 11
29 
30 #define NTYPES (TYERROR+1)
31 #define TYBLANK TYSUBR
32 
33 /* special defines for constants
34 */
35 
36 #define	TYBITSTR TYUNKNOWN
37 #define	TYHOLLERITH TYSUBR
38 
39