lang/fortran/comp/ftypes.h

   1
   2 /* variable types (stored in the   vtype  field of   expptr)
   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 #define TYCILIST 12
  21 #define TYICILIST 13
  22 #define TYOLIST 14
  23 #define TYCLLIST 15
  24 #define TYALIST 16
  25 #define TYINLIST 17
  26 #define TYVOID 18
  27 #define TYLABEL 19
  28 #define TYFTNLEN 20
  29 /* TYVOID is not in any tables. */
  30
  31 /* NTYPES, NTYPES0 -- Total number of types, used to allocate tables indexed by
  32    type.  Such tables can include the size (in bytes) of objects of a given
  33    type, or labels for returning objects of different types from procedures
  34    (see array   rtvlabels)   */
  35
  36 #define NTYPES TYVOID
  37 #define NTYPES0 TYCILIST
  38 #define TYBLANK TYSUBR          /* Huh? */
  39