home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / gnu / gccsrc2 / va_spur.h < prev    next >
C/C++ Source or Header  |  1993-07-23  |  1KB  |  46 lines
  1. /*  varargs.h for SPUR */
  2.  
  3. /* NB.  This is NOT the definition needed for the new ANSI proposed
  4.    standard */
  5.  
  6.  
  7. struct __va_struct { char regs[20]; };
  8.  
  9. #define va_alist __va_regs, __va_stack
  10.  
  11. #define va_dcl struct __va_struct __va_regs; int __va_stack;
  12.  
  13. typedef struct {
  14.     int pnt;
  15.     char *regs;
  16.     char *stack;
  17. } va_list;
  18.  
  19. #define va_start(pvar) \
  20.      ((pvar).pnt = 0, (pvar).regs = __va_regs.regs, \
  21.       (pvar).stack = (char *) &__va_stack)
  22. #define va_end(pvar)
  23.  
  24. #define va_arg(pvar,type)  \
  25.     ({  type __va_result; \
  26.         if ((pvar).pnt >= 20) { \
  27.            __va_result = *( (type *) ((pvar).stack + (pvar).pnt - 20)); \
  28.        (pvar).pnt += (sizeof(type) + 7) & ~7; \
  29.     } \
  30.     else if ((pvar).pnt + sizeof(type) > 20) { \
  31.        __va_result = * (type *) (pvar).stack; \
  32.        (pvar).pnt = 20 + ( (sizeof(type) + 7) & ~7); \
  33.     } \
  34.     else if (sizeof(type) == 8) { \
  35.        union {double d; int i[2];} __u; \
  36.        __u.i[0] = *(int *) ((pvar).regs + (pvar).pnt); \
  37.        __u.i[1] = *(int *) ((pvar).regs + (pvar).pnt + 4); \
  38.        __va_result = * (type *) &__u; \
  39.        (pvar).pnt += 8; \
  40.     } \
  41.     else { \
  42.        __va_result = * (type *) ((pvar).regs + (pvar).pnt); \
  43.        (pvar).pnt += (sizeof(type) + 3) & ~3; \
  44.     } \
  45.     __va_result; })
  46.