home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / f2c-93.04.28-src.tgz / tar.out / fsf / f2c / src / ftypes.h < prev    next >
C/C++ Source or Header  |  1996-09-28  |  1KB  |  52 lines
  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. #ifdef NO_TYQUAD
  9. #undef TYQUAD
  10. #define TYQUAD_inc 0
  11. #else
  12. #define TYQUAD 5
  13. #define TYQUAD_inc 1
  14. #endif
  15.  
  16. #define TYUNKNOWN 0
  17. #define TYADDR 1
  18. #define TYINT1 2
  19. #define TYSHORT 3
  20. #define TYLONG 4
  21. /* #define TYQUAD 5 */
  22. #define TYREAL (5+TYQUAD_inc)
  23. #define TYDREAL (6+TYQUAD_inc)
  24. #define TYCOMPLEX (7+TYQUAD_inc)
  25. #define TYDCOMPLEX (8+TYQUAD_inc)
  26. #define TYLOGICAL1 (9+TYQUAD_inc)
  27. #define TYLOGICAL2 (10+TYQUAD_inc)
  28. #define TYLOGICAL (11+TYQUAD_inc)
  29. #define TYCHAR (12+TYQUAD_inc)
  30. #define TYSUBR (13+TYQUAD_inc)
  31. #define TYERROR (14+TYQUAD_inc)
  32. #define TYCILIST (15+TYQUAD_inc)
  33. #define TYICILIST (16+TYQUAD_inc)
  34. #define TYOLIST (17+TYQUAD_inc)
  35. #define TYCLLIST (18+TYQUAD_inc)
  36. #define TYALIST (19+TYQUAD_inc)
  37. #define TYINLIST (20+TYQUAD_inc)
  38. #define TYVOID (21+TYQUAD_inc)
  39. #define TYLABEL (22+TYQUAD_inc)
  40. #define TYFTNLEN (23+TYQUAD_inc)
  41. /* TYVOID is not in any tables. */
  42.  
  43. /* NTYPES, NTYPES0 -- Total number of types, used to allocate tables indexed by
  44.    type.  Such tables can include the size (in bytes) of objects of a given
  45.    type, or labels for returning objects of different types from procedures
  46.    (see array   rtvlabels)   */
  47.  
  48. #define NTYPES TYVOID
  49. #define NTYPES0 TYCILIST
  50. #define TYBLANK TYSUBR        /* Huh? */
  51.  
  52.