include/va-spur.h

   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 /* In GCC version 2, we want an ellipsis at the end of the declaration
  12    of the argument list.  GCC version 1 can't parse it.  */
  13
  14 #if __GNUC__ > 1
  15 #define __va_ellipsis ...
  16 #else
  17 #define __va_ellipsis
  18 #endif
  19
  20 /* The ... causes current_function_varargs to be set in cc1.  */
  21 #define va_dcl struct __va_struct __va_regs; int __va_stack;
  22
  23 typedef struct {
  24     int __pnt;
  25     char *__regs;
  26     char *__stack;
  27 } va_list;
  28
  29 #define va_start(pvar) \
  30      ((pvar).__pnt = 0, (pvar).__regs = __va_regs.__regs, \
  31       (pvar).__stack = (char *) &__va_stack)
  32 #define va_end(pvar)    ((void)0)
  33
  34 /* Avoid errors if compiling GCC v2 with GCC v1.  */
  35 #if __GNUC__ == 1
  36 #define __extension__
  37 #endif
  38
  39 #define va_arg(pvar,type)  \
  40 __extension__ \
  41     (*({  type *__va_result; \
  42         if ((pvar).__pnt >= 20) { \
  43            __va_result = ( (type *) ((pvar).__stack + (pvar).__pnt - 20)); \
  44            (pvar).__pnt += (sizeof(type) + 7) & ~7; \
  45         } \
  46         else if ((pvar).__pnt + sizeof(type) > 20) { \
  47            __va_result = (type *) (pvar).__stack; \
  48            (pvar).__pnt = 20 + ( (sizeof(type) + 7) & ~7); \
  49         } \
  50         else if (sizeof(type) == 8) { \
  51            union {double d; int i[2];} __u; \
  52            __u.i[0] = *(int *) ((pvar).__regs + (pvar).__pnt); \
  53            __u.i[1] = *(int *) ((pvar).__regs + (pvar).__pnt + 4); \
  54            __va_result = (type *) &__u; \
  55            (pvar).__pnt += 8; \
  56         } \
  57         else { \
  58            __va_result = (type *) ((pvar).__regs + (pvar).__pnt); \
  59            (pvar).__pnt += (sizeof(type) + 3) & ~3; \
  60         } \
  61         __va_result; }))
  62
  63 /* Copy __gnuc_va_list into another variable of this type.  */
  64 #define __va_copy(dest, src) (dest) = (src)