home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / f2c / src / ftypes.h < prev    next >
Text File  |  2000-06-23  |  941b  |  40 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. #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.  
  40.