usr/src/usr.bin/f77/pass1.vax/ftypes.h

/*
 * Copyright (c) 1980 Regents of the University of California.
 * All rights reserved.  The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 *
 *      @(#)ftypes.h    5.1 (Berkeley) %G%
 */


/* variable types
 * numeric assumptions:
 *      int < reals < complexes
 *      TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX
 */

#define TYUNKNOWN 0
#define TYADDR 1
#define TYSHORT 2
#define TYLONG 3
#define TYREAL 4
#define TYDREAL 5
#define TYCOMPLEX 6
#define TYDCOMPLEX 7
#define TYLOGICAL 8
#define TYCHAR 9
#define TYSUBR 10
#define TYERROR 11

#define NTYPES (TYERROR+1)
#define TYBLANK TYSUBR

/* special defines for constants
*/

#define TYBITSTR TYUNKNOWN
#define TYHOLLERITH TYSUBR