home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / gcc-2.7.2.1-base.tgz / gcc-2.7.2.1-base.tar / fsf / gcc / ginclude / va-alpha.h < prev    next >
C/C++ Source or Header  |  1995-08-31  |  3KB  |  101 lines
  1. /* GNU C varargs and stdargs support for the DEC Alpha.  */
  2.  
  3. /* Note:  We must use the name __builtin_savregs.  GCC attaches special
  4.    significance to that name.  In particular, regardless of where in a
  5.    function __builtin_saveregs is called, GCC moves the call up to the
  6.    very start of the function.  */
  7.  
  8. /* Define __gnuc_va_list.  */
  9.  
  10. #ifndef __GNUC_VA_LIST
  11. #define __GNUC_VA_LIST
  12.  
  13. typedef struct {
  14.   char *__base;            /* Pointer to first integer register. */
  15.   int __offset;            /* Byte offset of args so far. */
  16. } __gnuc_va_list;
  17. #endif /* not __GNUC_VA_LIST */
  18.  
  19. /* If this is for internal libc use, don't define anything but
  20.    __gnuc_va_list.  */
  21. #if defined (_STDARG_H) || defined (_VARARGS_H)
  22.  
  23. #define va_list __gnuc_va_list
  24. #define _VA_LIST
  25. #define _VA_LIST_
  26.  
  27. #if !defined(_STDARG_H)
  28.  
  29. /* varargs support */
  30. #define va_alist __builtin_va_alist
  31. #define va_dcl     int __builtin_va_alist;...
  32. #define va_start(pvar) ((pvar) = * (__gnuc_va_list *) __builtin_saveregs ())
  33.  
  34. #else /* STDARG.H */
  35.  
  36. /* ANSI alternative.  */
  37.  
  38. /* Call __builtin_next_arg even though we aren't using its value, so that
  39.    we can verify that firstarg is correct.  */
  40. #define va_start(pvar, firstarg)                \
  41.   (__builtin_next_arg (firstarg),                \
  42.    (pvar) = *(__gnuc_va_list *) __builtin_saveregs ())
  43.  
  44. #endif /* _STDARG_H */
  45.  
  46. #ifndef va_end
  47.  
  48. #define va_end(__va)    ((void) 0)
  49.  
  50. /* Values returned by __builtin_classify_type.  */
  51.  
  52. enum {
  53.   __no_type_class = -1,
  54.   __void_type_class,
  55.   __integer_type_class,
  56.   __char_type_class,
  57.   __enumeral_type_class,
  58.   __boolean_type_class,
  59.   __pointer_type_class,
  60.   __reference_type_class,
  61.   __offset_type_class,
  62.   __real_type_class,
  63.   __complex_type_class,
  64.   __function_type_class,
  65.   __method_type_class,
  66.   __record_type_class,
  67.   __union_type_class,
  68.   __array_type_class,
  69.   __string_type_class,
  70.   __set_type_class,
  71.   __file_type_class,
  72.   __lang_type_class
  73. };
  74.  
  75. #endif
  76.  
  77. /* Note that parameters are always aligned at least to a word boundary
  78.    (when passed) regardless of what GCC's __alignof__ operator says.  */
  79.  
  80. /* Avoid errors if compiling GCC v2 with GCC v1.  */
  81. #if __GNUC__ == 1
  82. #define __extension__
  83. #endif
  84.  
  85. /* Get the size of a type in bytes, rounded up to an integral number
  86.    of words.  */
  87.  
  88. #define __va_tsize(__type)  \
  89.   (((sizeof (__type) + __extension__ sizeof (long long) - 1)   \
  90.     / __extension__ sizeof (long long)) * __extension__ sizeof (long long))
  91.  
  92. #define va_arg(__va, __type)                        \
  93. (*(((__va).__offset += __va_tsize (__type)),                \
  94.    (__type *)(void *)((__va).__base + (__va).__offset            \
  95.           - (((__builtin_classify_type (* (__type *) 0)        \
  96.            == __real_type_class) && (__va).__offset <= (6 * 8))    \
  97.          ? (6 * 8) + 8 : __va_tsize (__type)))))
  98.  
  99. #endif /* defined (_STDARG_H) || defined (_VARARGS_H) */
  100.  
  101.