65 lines
1.7 KiB
C
65 lines
1.7 KiB
C
/* varargs.h for SPUR */
|
|
|
|
/* NB. This is NOT the definition needed for the new ANSI proposed
|
|
standard */
|
|
|
|
|
|
struct __va_struct { char __regs[20]; };
|
|
|
|
#define va_alist __va_regs, __va_stack
|
|
|
|
/* In GCC version 2, we want an ellipsis at the end of the declaration
|
|
of the argument list. GCC version 1 can't parse it. */
|
|
|
|
#if __GNUC__ > 1
|
|
#define __va_ellipsis ...
|
|
#else
|
|
#define __va_ellipsis
|
|
#endif
|
|
|
|
/* The ... causes current_function_varargs to be set in cc1. */
|
|
#define va_dcl struct __va_struct __va_regs; int __va_stack;
|
|
|
|
typedef struct {
|
|
int __pnt;
|
|
char *__regs;
|
|
char *__stack;
|
|
} va_list;
|
|
|
|
#define va_start(pvar) \
|
|
((pvar).__pnt = 0, (pvar).__regs = __va_regs.__regs, \
|
|
(pvar).__stack = (char *) &__va_stack)
|
|
#define va_end(pvar) ((void)0)
|
|
|
|
/* Avoid errors if compiling GCC v2 with GCC v1. */
|
|
#if __GNUC__ == 1
|
|
#define __extension__
|
|
#endif
|
|
|
|
#define va_arg(pvar,type) \
|
|
__extension__ \
|
|
(*({ type *__va_result; \
|
|
if ((pvar).__pnt >= 20) { \
|
|
__va_result = ( (type *) ((pvar).__stack + (pvar).__pnt - 20)); \
|
|
(pvar).__pnt += (sizeof(type) + 7) & ~7; \
|
|
} \
|
|
else if ((pvar).__pnt + sizeof(type) > 20) { \
|
|
__va_result = (type *) (pvar).__stack; \
|
|
(pvar).__pnt = 20 + ( (sizeof(type) + 7) & ~7); \
|
|
} \
|
|
else if (sizeof(type) == 8) { \
|
|
union {double d; int i[2];} __u; \
|
|
__u.i[0] = *(int *) ((pvar).__regs + (pvar).__pnt); \
|
|
__u.i[1] = *(int *) ((pvar).__regs + (pvar).__pnt + 4); \
|
|
__va_result = (type *) &__u; \
|
|
(pvar).__pnt += 8; \
|
|
} \
|
|
else { \
|
|
__va_result = (type *) ((pvar).__regs + (pvar).__pnt); \
|
|
(pvar).__pnt += (sizeof(type) + 3) & ~3; \
|
|
} \
|
|
__va_result; }))
|
|
|
|
/* Copy __gnuc_va_list into another variable of this type. */
|
|
#define __va_copy(dest, src) (dest) = (src)
|