/* vacall.h. Generated by configure. */ #ifndef _VACALL_H /*-*- C -*-*/ #define _VACALL_H /* * Copyright 1995-2004 Bruno Haible, * * This is free software distributed under the GNU General Public Licence * described in the file COPYING. Contact the author if you don't have this * or can't live with it. There is ABSOLUTELY NO WARRANTY, explicit or implied, * on this software. */ /* These definitions are adjusted by `configure' automatically. */ /* CPU */ #ifndef __i386__ #define __i386__ 1 #endif #ifndef __m68k__ /* #undef __m68k__ */ #endif #ifndef __mips__ /* #undef __mips__ */ #endif #ifndef __mipsn32__ /* #undef __mipsn32__ */ #endif #ifndef __mips64__ /* #undef __mips64__ */ #endif #ifndef __sparc__ /* #undef __sparc__ */ #endif #ifndef __sparc64__ /* #undef __sparc64__ */ #endif #ifndef __alpha__ /* #undef __alpha__ */ #endif #ifndef __hppa__ /* #undef __hppa__ */ #endif #ifndef __arm__ /* #undef __arm__ */ #endif #ifndef __rs6000__ /* #undef __rs6000__ */ #endif #ifndef __s390__ /* #undef __s390__ */ #endif #ifndef __m88k__ /* #undef __m88k__ */ #endif #ifndef __convex__ /* #undef __convex__ */ #endif #ifndef __ia64__ /* #undef __ia64__ */ #endif #ifndef __x86_64__ /* #undef __x86_64__ */ #endif /* Calling convention */ /* Define if using pcc non-reentrant struct return convention */ /* #undef __PCC_STRUCT_RETURN__ */ /* Define if small structs are returned in registers */ #define __SMALL_STRUCT_RETURN__ 1 /* Define if floating-point results are returned in the integer registers */ /* #undef __IREG_FLOAT_RETURN__ */ /* CL_LONGLONG */ /* Define if your compiler supports the `long long' type. */ #ifndef HAVE_LONGLONG #define HAVE_LONGLONG #endif /* AC_C_CHAR_UNSIGNED */ #ifndef __CHAR_UNSIGNED__ /* #undef __CHAR_UNSIGNED__ */ #endif /* End of definitions adjusted by `configure'. */ /* Max # words in argument-list and temporary structure storage. */ #ifndef __VA_ALIST_WORDS #define __VA_ALIST_WORDS 256 #endif /* The `signed' keyword. */ #if !defined(__STDC__) && !defined(__CHAR_UNSIGNED__) && !defined(signed) #define signed #endif /* Determine the alignment of a type at compile time. */ #if defined(__GNUC__) #define __VA_alignof __alignof__ #else #if defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) /* SGI compiler */ #define __VA_alignof __builtin_alignof #else #define __VA_offsetof(type,ident) ((unsigned long)&(((type*)0)->ident)) #define __VA_alignof(type) __VA_offsetof(struct { char __slot1; type __slot2; }, __slot2) #endif #endif /* C builtin types. */ #if defined(__mipsn32__) typedef long long __vaword; #else typedef long __vaword; #endif enum __VAtype { __VAvoid, __VAchar, __VAschar, __VAuchar, __VAshort, __VAushort, __VAint, __VAuint, __VAlong, __VAulong, __VAlonglong, __VAulonglong, __VAfloat, __VAdouble, __VAvoidp, __VAstruct }; enum __VA_alist_flags { /* how to return structs */ /* There are basically 3 ways to return structs: * a. The called function returns a pointer to static data. Not reentrant. * b. The caller passes the return structure address in a dedicated register * or as a first (or last), invisible argument. The called function stores * its result there. * c. Like b, and the called function also returns the return structure * address in the return value register. (This is not very distinguishable * from b.) * Independently of this, * r. small structures (<= 4 or <= 8 bytes) may be returned in the return * value register(s), or * m. even small structures are passed in memory. */ /* gcc-2.6.3 employs the following strategy: * - If PCC_STATIC_STRUCT_RETURN is defined in the machine description * it uses method a, else method c. * - If flag_pcc_struct_return is set (either by -fpcc-struct-return or if * DEFAULT_PCC_STRUCT_RETURN is defined to 1 in the machine description) * it uses method m, else (either by -freg-struct-return or if * DEFAULT_PCC_STRUCT_RETURN is defined to 0 in the machine description) * method r. */ __VA_PCC_STRUCT_RETURN = 1<<0, /* a: need to copy the struct */ __VA_SMALL_STRUCT_RETURN = 1<<1, /* r: special case for small structs */ __VA_GCC_STRUCT_RETURN = 1<<2, /* consider 8 byte structs as small */ #if defined(__sparc__) && !defined(__sparc64__) __VA_SUNCC_STRUCT_RETURN = 1<<3, __VA_SUNPROCC_STRUCT_RETURN = 1<<4, #else __VA_SUNCC_STRUCT_RETURN = 0, __VA_SUNPROCC_STRUCT_RETURN = 0, #endif #if defined(__i386__) __VA_NEXTGCC_STRUCT_RETURN = 1<<3, __VA_MSVC_STRUCT_RETURN = 1<<4, #endif #if defined(__hppa__) __VA_OLDGCC_STRUCT_RETURN = 1<<3, #endif /* the default way to return structs */ /* This choice here is based on the assumption that the function you are * going to call has been compiled with the same compiler you are using to * include this file. * If you want to call functions with another struct returning convention, * just #define __VA_STRUCT_RETURN ... * before or after #including . */ #ifndef __VA_STRUCT_RETURN __VA_STRUCT_RETURN = #if defined(__sparc__) && !defined(__sparc64__) && defined(sun) && defined(__SUNPRO_C) /* SUNWspro cc */ __VA_SUNPROCC_STRUCT_RETURN, #else #if defined(__PCC_STRUCT_RETURN__) /* defined through configure, see above */ __VA_PCC_STRUCT_RETURN | #if defined(__sparc__) && !defined(__sparc64__) && defined(sun) && !(defined(__STDC__) || defined(__GNUC__)) /* sun cc */ __VA_SUNCC_STRUCT_RETURN, #else 0, #endif #else #if defined(__SMALL_STRUCT_RETURN__) || defined(__mipsn32__) || defined(__mips64__) /* defined through configure, see above */ __VA_SMALL_STRUCT_RETURN | #endif #if defined(__GNUC__) __VA_GCC_STRUCT_RETURN | #endif #if defined(__i386__) && defined(NeXT) && defined(__GNUC__) /* NeXT gcc-2.5.8 */ __VA_NEXTGCC_STRUCT_RETURN | #endif #if defined(__i386__) && defined(_MSC_VER) /* MSVC 4.0 */ __VA_MSVC_STRUCT_RETURN | #endif #if defined(__hppa__) && defined(__GNUC__) && (__GNUC__ < 3) && (__GNUC_MINOR__ < 7) __VA_OLDGCC_STRUCT_RETURN | #endif 0, #endif #endif #endif /* how to return floats */ #if defined(__m68k__) || (defined(__sparc__) && !defined(__sparc64__)) __VA_SUNCC_FLOAT_RETURN = 1<<5, #endif #if defined(__m68k__) __VA_FREG_FLOAT_RETURN = 1<<6, #endif /* the default way to return floats */ /* This choice here is based on the assumption that the function you are * going to call has been compiled with the same compiler you are using to * include this file. * If you want to call functions with another float returning convention, * just #define __VA_FLOAT_RETURN ... * before or after #including . */ #ifndef __VA_FLOAT_RETURN #if (defined(__m68k__) || (defined(__sparc__) && !defined(__sparc64__))) && !defined(__GNUC__) && defined(sun) && !defined(__SUNPRO_C) /* sun cc */ __VA_FLOAT_RETURN = __VA_SUNCC_FLOAT_RETURN, #elif (defined(__m68k__) && !defined(__IREG_FLOAT_RETURN__)) __VA_FLOAT_RETURN = __VA_FREG_FLOAT_RETURN, #else __VA_FLOAT_RETURN = 0, #endif #endif /* how to pass structs */ #if defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) __VA_SGICC_STRUCT_ARGS = 1<<7, #endif #if defined(__rs6000__) __VA_AIXCC_STRUCT_ARGS = 1<<7, #endif /* the default way to pass floats */ /* This choice here is based on the assumption that the function you are * going to call has been compiled with the same compiler you are using to * include this file. * If you want to call functions with another float passing convention, * just #define __VA_STRUCT_ARGS ... * before or after #including . */ #ifndef __VA_STRUCT_ARGS #if (defined(__mips__) || defined(__mipsn32__) || defined(__mips64__)) && !defined(__GNUC__) /* SGI mips cc */ __VA_STRUCT_ARGS = __VA_SGICC_STRUCT_ARGS, #else #if defined(__rs6000__) && defined(_AIX) && !defined(__GNUC__) /* AIX cc, xlc */ __VA_STRUCT_ARGS = __VA_AIXCC_STRUCT_ARGS, #else __VA_STRUCT_ARGS = 0, #endif #endif #endif /* how to pass floats */ /* ANSI C compilers and GNU gcc pass floats as floats. * K&R C compilers pass floats as doubles. * (Except some compilers like SGI MIPS "cc" and "cc -cckr" if a prototype is * known for the called functions. But to compile a program with prototypes, * "cc -ansi" is better anyway. */ __VA_ANSI_FLOAT_ARGS = 0, /* pass floats as floats */ __VA_TRADITIONAL_FLOAT_ARGS = 1<<8, /* pass floats as doubles */ /* the default way to pass floats */ /* This choice here is based on the assumption that the function you are * going to call has been compiled with the same compiler you are using to * include this file. * If you want to call functions with another float passing convention, * just #define __VA_FLOAT_ARGS ... * before or after #including . */ #ifndef __VA_FLOAT_ARGS #if defined(__STDC__) || defined(__GNUC__) /* what about hppa "cc -Aa" ?? */ __VA_FLOAT_ARGS = __VA_ANSI_FLOAT_ARGS, #else __VA_FLOAT_ARGS = __VA_TRADITIONAL_FLOAT_ARGS, #endif #endif /* how to pass and return small integer arguments */ __VA_ANSI_INTEGERS = 0, /* no promotions */ __VA_TRADITIONAL_INTEGERS = 0, /* promote [u]char, [u]short to [u]int */ /* Fortunately these two methods are compatible. Our macros work with both. */ /* the default way to pass and return small integer arguments */ /* This choice here is based on the assumption that the function you are * going to call has been compiled with the same compiler you are using to * include this file. * If you want to call functions with another float passing convention, * just #define __VA_INTEGERS ... * before or after #including . */ #ifndef __VA_INTEGERS #if defined(__STDC__) || defined(__GNUC__) __VA_INTEGERS = __VA_ANSI_INTEGERS, #else __VA_INTEGERS = __VA_TRADITIONAL_INTEGERS, #endif #endif /* stack cleanup policy */ __VA_CDECL_CLEANUP = 0, /* caller pops args after return */ __VA_STDCALL_CLEANUP = 1<<9, /* callee pops args before return */ /* currently only supported on __i386__ */ #ifndef __VA_CLEANUP __VA_CLEANUP = __VA_CDECL_CLEANUP, #endif /* These are for internal use only */ #if defined(__i386__) || defined(__m68k__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc64__) || defined(__alpha__) || defined(__arm__) || defined(__rs6000__) || defined(__convex__) || defined(__ia64__) || defined(__x86_64__) || defined(__s390__) __VA_REGISTER_STRUCT_RETURN = 1<<10, #endif #if defined(__mips__) && !defined(__mipsn32__) __VA_FLOAT_1 = 1<<11, __VA_FLOAT_2 = 1<<12, #endif #if defined(__mipsn32__) || defined(__mips64__) __VA_REGISTER_FLOATSTRUCT_RETURN = 1<<13, __VA_REGISTER_DOUBLESTRUCT_RETURN = 1<<14, #endif __VA_flag_for_broken_compilers_that_dont_like_trailing_commas }; /* * Definition of the `va_alist' type. */ typedef struct { /* some va_... macros need these flags */ int flags; /* current pointer into the argument array */ unsigned long aptr; /* structure return pointer, return type, return type size */ void* raddr; enum __VAtype rtype; unsigned long rsize; #if defined(__i386__) || (defined(__rs6000__) && defined(__MACH__) && defined(__APPLE__)) /* Filler word, needed if the numbers of words up to now in this structure */ /* is odd (because on MSVC, alignof(double) = 8, normally = 4; similarly, */ /* on MacOS X, the Apple compiler has alignof(double) = 8 whereas the */ /* standard GCC has alignof(double) = 4. */ __vaword filler1; #endif /* temporary storage for return value */ union { char _char; signed char _schar; unsigned char _uchar; short _short; unsigned short _ushort; int _int; unsigned int _uint; long _long; unsigned long _ulong; #if !(defined(__mips64__) || defined(__alpha__)) && defined(HAVE_LONGLONG) long long _longlong; unsigned long long _ulonglong; #endif float _float; double _double; void* _ptr; __vaword _words[2]; } tmp; #if defined(__i386__) || defined(__m68k__) || (defined(__sparc__) && !defined(__sparc64__)) || defined(__hppa__) || defined(__m88k__) || defined(__ia64__) void* structraddr; #endif #if defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) || defined(__alpha__) || defined(__hppa__) long memargptr; #endif #if defined(__hppa__) long farg_offset; long darg_offset; float farg[4]; double darg[2]; #endif #if defined(__mips__) && !defined(__mipsn32__) int anum; float farg[2]; double darg[2]; #endif #if defined(__mipsn32__) || defined(__mips64__) int anum; float farg[8]; double darg[8]; #endif #if defined(__sparc64__) int anum; float farg[16]; double darg[16]; #endif #if defined(__rs6000__) double* memfargptr; double farg[13]; #if !(defined(_AIX) || (defined(__MACH__) && defined(__APPLE__))) __vaword regarg[8]; unsigned long saptr; int onstack; #endif #endif #if defined(__s390__) float* memfargptr; double* memdargptr; float farg[2]; double darg[2]; __vaword regarg[5]; unsigned long saptr; int onstack; #endif #if defined(__ia64__) __vaword* saptr; double* memfargptr; double farg[8]; #endif #if defined(__x86_64__) double* memfargptr; double farg[8]; __vaword* memiargptr; __vaword iarg[6]; #endif } __va_alist; typedef __va_alist* va_alist; /* * Definition of the va_start_xxx macros. */ #define __VA_START_FLAGS \ __VA_STRUCT_RETURN | __VA_FLOAT_RETURN | __VA_STRUCT_ARGS | __VA_FLOAT_ARGS | __VA_INTEGERS | __VA_CLEANUP #define __va_start(LIST,RETTYPE) \ ((LIST)->flags = __VA_START_FLAGS, \ (LIST)->rtype = (RETTYPE) \ ) #define va_start_void(LIST) __va_start(LIST,__VAvoid) #define va_start_char(LIST) __va_start(LIST,__VAchar) #define va_start_schar(LIST) __va_start(LIST,__VAschar) #define va_start_uchar(LIST) __va_start(LIST,__VAuchar) #define va_start_short(LIST) __va_start(LIST,__VAshort) #define va_start_ushort(LIST) __va_start(LIST,__VAushort) #define va_start_int(LIST) __va_start(LIST,__VAint) #define va_start_uint(LIST) __va_start(LIST,__VAuint) #define va_start_long(LIST) __va_start(LIST,__VAlong) #define va_start_ulong(LIST) __va_start(LIST,__VAulong) #define va_start_longlong(LIST) __va_start(LIST,__VAlonglong) #define va_start_ulonglong(LIST) __va_start(LIST,__VAulonglong) #define va_start_float(LIST) __va_start(LIST,__VAfloat) #define va_start_double(LIST) __va_start(LIST,__VAdouble) #define va_start_ptr(LIST,TYPE) __va_start(LIST,__VAvoidp) /* * va_start_struct: Preparing structure return. */ #define va_start_struct(LIST,TYPE,TYPE_SPLITTABLE) \ _va_start_struct(LIST,sizeof(TYPE),__VA_alignof(TYPE),TYPE_SPLITTABLE) /* _va_start_struct() is like va_start_struct(), except that you pass * the type's size and alignment instead of the type itself. */ #define _va_start_struct(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ (__va_start(LIST,__VAstruct), \ (LIST)->rsize = (TYPE_SIZE), \ ((LIST)->flags & __VA_SUNPROCC_STRUCT_RETURN \ ? __va_start_struct2(LIST) \ : ((LIST)->flags & (__VA_PCC_STRUCT_RETURN | __VA_SUNCC_STRUCT_RETURN) \ ? ((TYPE_SIZE) <= sizeof(__va_struct_buffer) || __va_error2(TYPE_SIZE), \ (LIST)->raddr = &__va_struct_buffer, \ 0 \ ) \ : (((LIST)->flags & __VA_SMALL_STRUCT_RETURN) \ && __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ? ((LIST)->raddr = &(LIST)->tmp, \ __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ ) \ : __va_start_struct2(LIST) \ )) ) ) /* Determines whether a structure is returned in registers, * depending on its size and its word-splittable flag. */ #if (defined(__i386__) && defined(_WIN32)) #define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 \ || ((TYPE_SIZE) == 8 \ && (((LIST)->flags & __VA_MSVC_STRUCT_RETURN) \ || ((TYPE_SPLITTABLE) \ && ((LIST)->flags & __VA_GCC_STRUCT_RETURN) \ ) ) ) ) /* Turn on __VA_REGISTER_STRUCT_RETURN if __VA_SMALL_STRUCT_RETURN was set * and the struct will actually be returned in registers. */ #define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ ((LIST)->flags |= __VA_REGISTER_STRUCT_RETURN, 0) #endif #if (defined(__i386__) && !defined(_WIN32)) || defined(__m68k__) || defined(__arm__) || defined(__rs6000__) || defined(__convex__) || defined(__s390__) #define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 \ || ((TYPE_SIZE) == 8 && (TYPE_SPLITTABLE) \ && ((LIST)->flags & __VA_GCC_STRUCT_RETURN) \ ) ) /* Turn on __VA_REGISTER_STRUCT_RETURN if __VA_SMALL_STRUCT_RETURN was set * and the struct will actually be returned in registers. */ #define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ ((LIST)->flags |= __VA_REGISTER_STRUCT_RETURN, 0) #endif #if defined(__alpha__) #define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 || (TYPE_SIZE) == 8 \ || ((TYPE_SIZE) == 16 && (TYPE_SPLITTABLE) \ && ((LIST)->flags & __VA_GCC_STRUCT_RETURN) \ ) ) /* Turn on __VA_REGISTER_STRUCT_RETURN if __VA_SMALL_STRUCT_RETURN was set * and the struct will actually be returned in registers. */ #define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ ((LIST)->flags |= __VA_REGISTER_STRUCT_RETURN, 0) #endif #if defined(__hppa__) #define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ((LIST)->flags & __VA_OLDGCC_STRUCT_RETURN \ ? ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4) \ : ((TYPE_SIZE) <= 8) \ ) /* Test both __VA_OLDGCC_STRUCT_RETURN and __VA_SMALL_STRUCT_RETURN at run time. */ #define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ 0 #endif #if defined(__mips__) && !defined(__mipsn32__) || (defined(__sparc__) && !defined(__sparc64__)) || defined(__m88k__) #define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4) /* Test __VA_SMALL_STRUCT_RETURN instead of __VA_REGISTER_STRUCT_RETURN. */ #if defined(__mips__) && !defined(__mipsn32__) #define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ ((LIST)->anum++, \ 0 \ ) #else #define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ 0 #endif #endif #if defined(__mipsn32__) || defined(__mips64__) #define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ((LIST)->flags & __VA_GCC_STRUCT_RETURN \ ? ((TYPE_SIZE) == 1 || (TYPE_SIZE) == 2 || (TYPE_SIZE) == 4 || (TYPE_SIZE) == 8) \ : ((TYPE_SIZE) <= 16) \ ) /* Turn on __VA_REGISTER_STRUCT_RETURN if __VA_SMALL_STRUCT_RETURN was set * and the struct will actually be returned in registers. Also turn on * __VA_REGISTER_FLOATSTRUCT_RETURN or __VA_REGISTER_DOUBLESTRUCT_RETURN if * the struct will be returned in floating-point registers. */ #define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ ((LIST)->flags |= __VA_REGISTER_STRUCT_RETURN, \ (TYPE_ALIGN) == sizeof(float) && (TYPE_SPLITTABLE) \ && ((TYPE_SIZE) == sizeof(float) || (TYPE_SIZE) == 2*sizeof(float)) \ && ((LIST)->flags |= __VA_REGISTER_FLOATSTRUCT_RETURN), \ (TYPE_ALIGN) == sizeof(double) && (TYPE_SPLITTABLE) \ && ((TYPE_SIZE) == sizeof(double) || (TYPE_SIZE) == 2*sizeof(double)) \ && ((LIST)->flags |= __VA_REGISTER_DOUBLESTRUCT_RETURN), \ 0) #endif #if defined(__sparc64__) || defined(__ia64__) #define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ((TYPE_SIZE) <= 32) /* Turn on __VA_REGISTER_STRUCT_RETURN if __VA_SMALL_STRUCT_RETURN was set * and the struct will actually be returned in registers. */ #define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ ((LIST)->flags |= __VA_REGISTER_STRUCT_RETURN, \ 0) #endif #if defined(__x86_64__) #define __va_reg_struct_return(LIST,TYPE_SIZE,TYPE_SPLITTABLE) \ ((TYPE_SIZE) <= 16) /* Turn on __VA_REGISTER_STRUCT_RETURN if __VA_SMALL_STRUCT_RETURN was set * and the struct will actually be returned in registers. */ #define __va_start_struct1(LIST,TYPE_SIZE,TYPE_ALIGN,TYPE_SPLITTABLE) \ ((LIST)->flags |= __VA_REGISTER_STRUCT_RETURN, \ 0) #endif /* * Preparing structure return in memory. */ #if defined(__i386__) /* Return structure pointer is passed in a special register or as first arg. */ #define __va_start_struct2(LIST) \ ((LIST)->flags & __VA_NEXTGCC_STRUCT_RETURN \ ? ((LIST)->raddr = (LIST)->structraddr, 0) /* special register */ \ : ((LIST)->raddr = *(void* *)((LIST)->aptr), /* first arg */ \ (LIST)->aptr += sizeof(void*), \ 0 \ ) ) #endif #if defined(__alpha__) || defined(__arm__) || defined(__rs6000__) || defined(__convex__) || defined(__s390__) /* Return structure pointer is passed as first arg. */ #define __va_start_struct2(LIST) \ ((LIST)->raddr = *(void* *)((LIST)->aptr), \ (LIST)->aptr += sizeof(void*), \ 0 \ ) #endif #if defined(__mips__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc64__) /* Return structure pointer is passed as first arg. */ #define __va_start_struct2(LIST) \ ((LIST)->raddr = *(void* *)((LIST)->aptr), \ (LIST)->aptr += sizeof(void*), \ (LIST)->anum++, \ 0 \ ) #endif #if defined(__x86_64__) /* Return structure pointer is passed as first arg. */ #define __va_start_struct2(LIST) \ ((LIST)->raddr = (void *)(*(LIST)->memiargptr++), \ 0 \ ) #endif #if defined(__m68k__) || (defined(__sparc__) && !defined(__sparc64__)) || defined(__hppa__) || defined(__m88k__) || defined(__ia64__) /* Return structure pointer is passed in a special register. */ #define __va_start_struct2(LIST) \ ((LIST)->raddr = (LIST)->structraddr, 0) #endif /* * Definition of the va_arg_xxx macros. */ /* Padding of non-struct arguments. */ #define __va_argsize(TYPE_SIZE) \ (((TYPE_SIZE) + sizeof(__vaword)-1) & -(long)sizeof(__vaword)) #if defined(__i386__) || defined(__m68k__) || defined(__mips__) && !defined(__mipsn32__) || (defined(__sparc__) && !defined(__sparc64__)) || defined(__alpha__) || defined(__arm__) || (defined(__rs6000__) && (defined(_AIX) || (defined(__MACH__) && defined(__APPLE__)))) || defined(__m88k__) || defined(__convex__) || defined(__ia64__) || defined(__x86_64__) /* args grow up */ /* small structures < 1 word are adjusted depending on compiler */ #define __va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((LIST)->aptr += __va_argsize(TYPE_SIZE), \ (LIST)->aptr - __va_argsize(TYPE_SIZE) \ ) #define __va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((LIST)->aptr += __va_argsize(TYPE_SIZE), \ (LIST)->aptr - ((TYPE_SIZE) < sizeof(__vaword) \ ? (TYPE_SIZE) \ : __va_argsize(TYPE_SIZE) \ ) \ ) #endif #if defined(__rs6000__) && !(defined(_AIX) || (defined(__MACH__) && defined(__APPLE__))) /* args grow up */ /* small structures < 1 word are adjusted depending on compiler */ /* Also make sure we switch to the stack pointer after 8 args */ #define __va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((((LIST)->onstack == 0 && (LIST)->aptr >= (long)&(LIST)->regarg[8]) \ ? ((LIST)->onstack=1, (LIST)->aptr = (LIST)->saptr) : 0), \ (LIST)->aptr += __va_argsize(TYPE_SIZE), \ (LIST)->aptr - __va_argsize(TYPE_SIZE) \ ) #define __va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((((LIST)->onstack == 0 && (LIST)->aptr >= (long)&(LIST)->regarg[8]) \ ? ((LIST)->onstack=1, (LIST)->aptr = (LIST)->saptr) : 0), \ (LIST)->aptr += __va_argsize(TYPE_SIZE), \ (LIST)->aptr - ((TYPE_SIZE) < sizeof(__vaword) \ ? (TYPE_SIZE) \ : __va_argsize(TYPE_SIZE) \ ) \ ) #endif #if defined(__s390__) /* args grow up */ /* small structures < 1 word are adjusted depending on compiler */ /* Also make sure we switch to the stack pointer after 5 args */ #define __va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((((LIST)->onstack == 0 && (LIST)->aptr >= (long)&(LIST)->regarg[5]) \ ? ((LIST)->onstack=1, (LIST)->aptr = (LIST)->saptr) : 0), \ (LIST)->aptr += __va_argsize(TYPE_SIZE), \ (LIST)->aptr - __va_argsize(TYPE_SIZE) \ ) #define __va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ (((((LIST)->onstack == 0 && ((LIST)->aptr >= (long)&(LIST)->regarg[5])) \ || ((TYPE_SIZE) > sizeof(__vaword) && (LIST)->aptr >= (long)&(LIST)->regarg[4])) \ ? ((LIST)->onstack=1, (LIST)->aptr = (LIST)->saptr) : 0), \ (LIST)->aptr += __va_argsize(TYPE_SIZE), \ (LIST)->aptr - ((TYPE_SIZE) < sizeof(__vaword) \ ? (TYPE_SIZE) \ : __va_argsize(TYPE_SIZE) \ ) \ ) #endif #if defined(__mipsn32__) || defined(__mips64__) || defined(__sparc64__) /* args grow up */ /* small structures < 1 word are adjusted depending on compiler */ #define __va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((LIST)->anum += __va_argsize(TYPE_SIZE)/sizeof(__vaword), \ (LIST)->aptr += __va_argsize(TYPE_SIZE), \ (LIST)->aptr - __va_argsize(TYPE_SIZE) \ ) #define __va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((LIST)->anum += __va_argsize(TYPE_SIZE)/sizeof(__vaword), \ (LIST)->aptr += __va_argsize(TYPE_SIZE), \ (LIST)->aptr - ((TYPE_SIZE) < sizeof(__vaword) \ ? (TYPE_SIZE) \ : __va_argsize(TYPE_SIZE) \ ) \ ) #endif #if defined(__hppa__) /* args grow down */ #define __va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((LIST)->aptr = (LIST)->aptr - __va_argsize(TYPE_SIZE), \ ((TYPE_SIZE) > 4 && ((LIST)->aptr &= -8)), \ (LIST)->aptr \ ) #define __va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((LIST)->aptr = (LIST)->aptr - __va_argsize(TYPE_SIZE), \ ((TYPE_SIZE) > 4 && ((LIST)->aptr &= -8)), \ (LIST)->aptr + ((-(TYPE_SIZE)) & 3) \ ) #endif #if defined(__i386__) || defined(__alpha__) || defined(__ia64__) /* little endian -> small args < 1 word are adjusted to the left */ #define __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ __va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) #endif #if defined(__m68k__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc__) || defined(__sparc64__) || defined(__hppa__) || defined(__arm__) || defined(__rs6000__) || defined(__m88k__) || defined(__convex__) || defined(__s390__) /* big endian -> small args < 1 word are adjusted to the right */ #define __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ __va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) #endif #if defined(__mips__) && !defined(__mipsn32__) /* big endian -> small args < 1 word are adjusted to the right */ #define __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((LIST)->anum++, __va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN)) #endif #if defined(__x86_64__) /* the first 6 argument words are passed in registers */ #define __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((LIST)->memiargptr + ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword) <= &(LIST)->iarg[6] \ ? ((LIST)->memiargptr += ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword), \ (LIST)->memiargptr - ((TYPE_SIZE) + sizeof(__vaword)-1) / sizeof(__vaword) \ ) \ : (void*)__va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ) #endif #define __va_arg(LIST,TYPE) \ *(TYPE*)__va_arg_adjusted(LIST,sizeof(TYPE),__VA_alignof(TYPE)) /* Integer arguments. */ #define va_arg_char(LIST) __va_arg(LIST,char) #define va_arg_schar(LIST) __va_arg(LIST,signed char) #define va_arg_uchar(LIST) __va_arg(LIST,unsigned char) #define va_arg_short(LIST) __va_arg(LIST,short) #define va_arg_ushort(LIST) __va_arg(LIST,unsigned short) #define va_arg_int(LIST) __va_arg(LIST,int) #define va_arg_uint(LIST) __va_arg(LIST,unsigned int) #define va_arg_long(LIST) __va_arg(LIST,long) #define va_arg_ulong(LIST) __va_arg(LIST,unsigned long) #if defined(__mips64__) || defined(__sparc64__) || defined(__alpha__) || defined(__ia64__) || defined(__x86_64__) /* `long long' and `long' are identical. */ #define va_arg_longlong va_arg_long #define va_arg_ulonglong va_arg_ulong #elif defined(__mipsn32__) /* `long long' fits in __vaword. */ #define va_arg_longlong(LIST) __va_arg(LIST,long long) #define va_arg_ulonglong(LIST) __va_arg(LIST,unsigned long long) #elif defined(__i386__) || defined(__m68k__) || defined(__mips__) || (defined(__sparc__) && !defined(__sparc64__)) || defined(__hppa__) || defined(__arm__) || defined(__rs6000__) || defined(__m88k__) || defined(__convex__) || defined(__s390__) /* `long long's are passed embedded on the arg stack. */ #define va_arg_longlong(LIST) __va_arg_longlong(LIST,long long) #define va_arg_ulonglong(LIST) __va_arg_longlong(LIST,unsigned long long) #if defined(__i386__) || defined(__m68k__) || defined(__arm__) || (defined(__rs6000__) && (defined(_AIX) || (defined(__MACH__) && defined(__APPLE__)))) || defined(__convex__) /* `long long's are (at most) word-aligned. */ #define __va_arg_longlong(LIST,TYPE) __va_arg(LIST,TYPE) #endif #if defined(__mips__) || (defined(__rs6000__) && !(defined(_AIX) || (defined(__MACH__) && defined(__APPLE__)))) || defined(__m88k__) /* `long long's have alignment 8. */ #define __va_arg_longlong(LIST,TYPE) \ ((LIST)->aptr = (((LIST)->aptr+__VA_alignof(TYPE)-1) & -(long)__VA_alignof(TYPE)), \ __va_arg(LIST,TYPE)) #endif #if (defined(__sparc__) && !defined(__sparc64__)) || defined(__s390__) /* Within the arg stack, the alignment is only 4, not 8. */ /* Beware against unaligned accesses! */ #define __va_arg_longlong(LIST,TYPE) \ ((LIST)->tmp._words[0] = ((__vaword*)((LIST)->aptr))[0], \ (LIST)->tmp._words[1] = ((__vaword*)((LIST)->aptr))[1], \ (LIST)->aptr += sizeof(TYPE), \ (TYPE)((LIST)->tmp._longlong) \ ) #endif #if defined(__hppa__) /* `long long's have alignment 8. */ #define __va_arg_longlong(LIST,TYPE) \ ((LIST)->aptr = ((LIST)->aptr & -(long)__VA_alignof(TYPE)), \ __va_arg(LIST,TYPE)) #endif #endif /* Floating point arguments. */ #define va_arg_float(LIST) \ ((LIST)->flags & __VA_TRADITIONAL_FLOAT_ARGS \ ? (float)va_arg_double(LIST) \ : __va_arg_float(LIST) \ ) #if defined(__i386__) || defined(__m68k__) || defined(__mipsn32__) || defined(__mips64__) || defined(__sparc__) || defined(__sparc64__) || defined(__alpha__) || defined(__arm__) || defined(__rs6000__) || defined(__convex__) || defined(__ia64__) || defined(__x86_64__) || defined(__s390__) #define __va_align_double(LIST) #endif #if defined(__mips__) && !defined(__mipsn32__) || defined(__m88k__) /* __VA_alignof(double) > sizeof(__vaword) */ #define __va_align_double(LIST) \ (LIST)->aptr = ((LIST)->aptr + sizeof(double)-1) & -(long)sizeof(double), #endif #if defined(__hppa__) #define __va_align_double(LIST) \ (LIST)->aptr = (LIST)->aptr & -(long)sizeof(double), #endif #if defined(__sparc__) && !defined(__sparc64__) /* Beware against unaligned `double' accesses! */ #define va_arg_double(LIST) \ (__va_align_double(LIST) \ (LIST)->tmp._words[0] = ((__vaword*)((LIST)->aptr))[0], \ (LIST)->tmp._words[1] = ((__vaword*)((LIST)->aptr))[1], \ (LIST)->aptr += sizeof(double), \ (LIST)->tmp._double \ ) #endif #if defined(__alpha__) /* The first 6 floating point registers have been stored in another place. */ #define va_arg_double(LIST) \ (((LIST)->aptr += sizeof(double)) <= (LIST)->memargptr \ ? *(double*)((LIST)->aptr - sizeof(double) - 6*sizeof(double)) \ : *(double*)((LIST)->aptr - sizeof(double)) \ ) #define __va_arg_float(LIST) \ (((LIST)->aptr += sizeof(double)) <= (LIST)->memargptr \ ? /* The first 6 args have been put into memory by "stt" instructions */\ /* (see vacall-alpha.s!). Therefore load them as doubles. */ \ /* When viewed as floats, the value will be the correct one. */ \ (float)*(double*)((LIST)->aptr - sizeof(double) - 6*sizeof(double)) \ : /* These args have been put into memory by "sts" instructions, */ \ /* therefore load them as floats. */ \ *(float*)((LIST)->aptr - sizeof(double)) \ ) #endif #if defined(__hppa__) /* The first 4 float registers and the first 2 double registers are stored * elsewhere. */ #if 1 /* gcc-2.5.2 passes these args in general registers! A bug, I think. */ #define __va_arg_float(LIST) \ (*(float*)((LIST)->aptr -= sizeof(float))) #define va_arg_double(LIST) \ (__va_align_double(LIST) \ *(double*)((LIST)->aptr -= sizeof(double)) \ ) #else /* this would be correct if the args were passed in float registers. */ #define __va_arg_float(LIST) \ (((LIST)->aptr -= sizeof(float)) >= (LIST)->memargptr \ ? /* The first 4 float args are stored separately. */ \ *(float*)((LIST)->aptr + (LIST)->farg_offset) \ : *(float*)((LIST)->aptr) \ ) #define va_arg_double(LIST) \ (__va_align_double(LIST) \ (((LIST)->aptr -= sizeof(double)) >= (LIST)->memargptr \ ? /* The first 2 double args are stored separately. */ \ *(double*)((LIST)->aptr + (LIST)->darg_offset) \ : *(double*)((LIST)->aptr) \ )) #endif #endif #if defined(__mips__) && !defined(__mipsn32__) /* The first 0,1,2 registers are stored elsewhere if they are floating-point * parameters. */ #define __va_arg_float(LIST) \ ((LIST)->aptr += sizeof(float), \ (LIST)->anum++, \ ((LIST)->anum == 1 \ ? ((LIST)->flags |= __VA_FLOAT_1, (LIST)->farg[0]) \ : ((LIST)->anum == 2 && ((LIST)->flags & __VA_FLOAT_1) \ ? (/* (LIST)->flags |= __VA_FLOAT_2, */ (LIST)->farg[1]) \ : *(float*)((LIST)->aptr - sizeof(float)) \ )) ) #define va_arg_double(LIST) \ (__va_align_double(LIST) \ (LIST)->aptr += sizeof(double), \ (LIST)->anum++, \ ((LIST)->anum == 1 \ ? ((LIST)->flags |= __VA_FLOAT_1, (LIST)->darg[0]) \ : ((LIST)->anum == 2 && ((LIST)->flags & __VA_FLOAT_1) \ ? (/* (LIST)->flags |= __VA_FLOAT_2, */ (LIST)->darg[1]) \ : *(double*)((LIST)->aptr - sizeof(double)) \ )) ) #endif #if defined(__mipsn32__) || defined(__mips64__) /* The first 0,..,8 registers are stored elsewhere if they are floating-point * parameters. */ #define __va_arg_float(LIST) \ (__va_align_double(LIST) \ (LIST)->aptr += sizeof(double), \ (++(LIST)->anum <= 8 \ ? (LIST)->farg[(LIST)->anum - 1] \ : *(float*)((LIST)->aptr - sizeof(double)) \ )) #define va_arg_double(LIST) \ (__va_align_double(LIST) \ (LIST)->aptr += sizeof(double), \ (++(LIST)->anum <= 8 \ ? (LIST)->darg[(LIST)->anum - 1] \ : *(double*)((LIST)->aptr - sizeof(double)) \ )) #endif #if defined(__sparc64__) /* The first 0,..,16 registers are stored elsewhere if they are floating-point * parameters. */ #define __va_arg_float(LIST) \ (__va_align_double(LIST) \ (LIST)->aptr += sizeof(double), \ (++(LIST)->anum <= 16 \ ? (LIST)->farg[(LIST)->anum - 1] \ : *(float*)((LIST)->aptr - sizeof(double)) \ )) #define va_arg_double(LIST) \ (__va_align_double(LIST) \ (LIST)->aptr += sizeof(double), \ (++(LIST)->anum <= 16 \ ? (LIST)->darg[(LIST)->anum - 1] \ : *(double*)((LIST)->aptr - sizeof(double)) \ )) #endif #if defined(__rs6000__) && (defined(_AIX) || (defined(__MACH__) && defined(__APPLE__))) /* The first 13 floating-point args have been stored elsewhere. */ #define __va_arg_float(LIST) \ ((LIST)->aptr += sizeof(float), \ ((LIST)->memfargptr < &(LIST)->farg[13] \ ? (float) *((LIST)->memfargptr++) \ : *(float*)((LIST)->aptr - sizeof(float)) \ )) #define va_arg_double(LIST) \ (__va_align_double(LIST) \ (LIST)->aptr += sizeof(double), \ ((LIST)->memfargptr < &(LIST)->farg[13] \ ? *((LIST)->memfargptr++) \ : *(double*)((LIST)->aptr - sizeof(double)) \ )) #endif #if defined(__rs6000__) && !(defined(_AIX) || (defined(__MACH__) && defined(__APPLE__))) /* The first 8 floating-point args have been stored elsewhere. */ #define __va_arg_float(LIST) \ ((LIST)->memfargptr < &(LIST)->farg[8] \ ? (float) *((LIST)->memfargptr++) \ : ((LIST)->aptr = ((LIST)->onstack == 0 \ ? ((LIST)->onstack=1, (LIST)->saptr) \ : (LIST)->aptr \ ), \ (LIST)->aptr += sizeof(float), \ *(float*)((LIST)->aptr - sizeof(float)) \ )) #define va_arg_double(LIST) \ ((LIST)->memfargptr < &(LIST)->farg[8] \ ? *((LIST)->memfargptr++) \ : ((LIST)->aptr = ((LIST)->onstack == 0 \ ? ((LIST)->onstack=1, (LIST)->saptr) \ : (LIST)->aptr \ ), \ __va_align_double(LIST) \ (LIST)->aptr += sizeof(double), \ *(double*)((LIST)->aptr - sizeof(double)) \ )) #endif #if defined(__s390__) /* The first 2 floating-point args have been stored elsewhere. */ #define __va_arg_float(LIST) \ ((LIST)->memfargptr < &(LIST)->farg[2] \ ? (LIST)->memdargptr++, (float) *((LIST)->memfargptr++) \ : ((LIST)->aptr = ((LIST)->onstack == 0 \ ? ((LIST)->onstack=1, (LIST)->saptr) \ : (LIST)->aptr \ ), \ (LIST)->aptr += sizeof(float), \ *(float*)((LIST)->aptr - sizeof(float)) \ )) #define va_arg_double(LIST) \ ((LIST)->memdargptr < &(LIST)->darg[2] \ ? (LIST)->memfargptr++, *((LIST)->memdargptr++) \ : ((LIST)->aptr = ((LIST)->onstack == 0 \ ? ((LIST)->onstack=1, (LIST)->saptr) \ : (LIST)->aptr \ ), \ __va_align_double(LIST) \ (LIST)->aptr += sizeof(double), \ *(double*)((LIST)->aptr - sizeof(double)) \ )) #endif #if defined(__ia64__) /* The first 8 floating-point args have been stored elsewhere. */ #define __va_arg_float(LIST) \ ((LIST)->aptr += sizeof(__vaword), \ ((LIST)->memfargptr < &(LIST)->farg[8] \ ? (float) *((LIST)->memfargptr++) \ : *(float*)((LIST)->aptr - sizeof(__vaword)) \ )) #define va_arg_double(LIST) \ (__va_align_double(LIST) \ (LIST)->aptr += sizeof(double), \ ((LIST)->memfargptr < &(LIST)->farg[8] \ ? *((LIST)->memfargptr++) \ : *(double*)((LIST)->aptr - sizeof(double)) \ )) #endif #if defined(__x86_64__) /* The first 8 floating-point args have been stored elsewhere. */ #define __va_arg_float(LIST) \ ((LIST)->memfargptr < &(LIST)->farg[8] \ ? ((LIST)->memfargptr++, \ *(float*)((LIST)->memfargptr - 1) \ ) \ : ((LIST)->aptr += sizeof(__vaword), \ *(float*)((LIST)->aptr - sizeof(__vaword)) \ ) ) #define va_arg_double(LIST) \ ((LIST)->memfargptr < &(LIST)->farg[8] \ ? *(LIST)->memfargptr++ \ : ((LIST)->aptr += sizeof(__vaword), \ *(double*)((LIST)->aptr - sizeof(__vaword)) \ ) ) #endif #ifndef __va_arg_float #define __va_arg_float(LIST) __va_arg(LIST,float) #endif #ifndef va_arg_double #define va_arg_double(LIST) \ (__va_align_double(LIST) __va_arg(LIST,double)) #endif /* Pointer arguments. */ #define va_arg_ptr(LIST,TYPE) __va_arg(LIST,TYPE) /* Structure arguments. */ #define va_arg_struct(LIST,TYPE) \ *(TYPE*)__va_arg_struct(LIST,sizeof(TYPE),__VA_alignof(TYPE)) /* _va_arg_struct() is like va_arg_struct(), except that you pass the type's * size and alignment instead of the type and get the value's address instead * of the value itself. */ #define _va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ (void*)__va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) /* Structure argument alignment. */ #if defined(__i386__) && defined(_MSC_VER) /* In MSVC, doubles inside structures have alignment 8, i.e. * __VA_alignof(double) = 8, but doubles (and also structures containing * doubles) are passed on the stack with alignment 4. Looks really weird. */ #define __va_struct_alignment(TYPE_ALIGN) \ ((TYPE_ALIGN) <= 4 ? (TYPE_ALIGN) : 4) #else #define __va_struct_alignment(TYPE_ALIGN) \ (TYPE_ALIGN) #endif #define __va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ (LIST)->aptr = ((LIST)->aptr + __va_struct_alignment(TYPE_ALIGN)-1) & -(long)__va_struct_alignment(TYPE_ALIGN), #if defined(__i386__) || defined(__m68k__) || defined(__alpha__) || defined(__arm__) || defined(__m88k__) || defined(__convex__) || defined(__x86_64__) #define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ (__va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ) #endif #if defined(__mips__) && !defined(__mipsn32__) /* small structures < 1 word are adjusted depending on compiler */ #define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ (__va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((LIST)->flags & __VA_SGICC_STRUCT_ARGS \ ? /* SGI MIPS cc passes small structures left-adjusted, although big-endian! */\ __va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ : /* SGI MIPS gcc passes small structures within the first four words left- \ * adjusted, for compatibility with cc. But structures in memory are passed \ * right-adjusted!! See gcc-2.6.3/config/mips/mips.c:function_arg(). \ */ \ ((LIST)->aptr < (LIST)->memargptr \ ? __va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ : __va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ )) ) #endif #if defined(__mipsn32__) || defined(__mips64__) /* small structures < 1 word are adjusted depending on compiler */ #define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ (__va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((LIST)->flags & __VA_SGICC_STRUCT_ARGS \ ? /* SGI MIPS cc passes small structures left-adjusted, although big-endian! */\ __va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ : /* SGI MIPS gcc passes small structures right-adjusted. */ \ __va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ )) #endif #if defined(__rs6000__) && (defined(_AIX) || (defined(__MACH__) && defined(__APPLE__))) /* small structures < 1 word are adjusted depending on compiler */ #define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ (__va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((LIST)->flags & __VA_AIXCC_STRUCT_ARGS \ ? /* AIX cc and xlc pass small structures left-adjusted, although big-endian! */\ __va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ : /* gcc passes small structures right-adjusted. */ \ __va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ )) #endif #if defined(__rs6000__) && !(defined(_AIX) || (defined(__MACH__) && defined(__APPLE__))) /* Structures are passed as pointers to caller-made local copies. */ #define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ va_arg_ptr(LIST,void*) #endif #if defined(__sparc__) && !defined(__sparc64__) /* Structures are passed as pointers to caller-made local copies. */ #define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ va_arg_ptr(LIST,void*) #endif #if defined(__sparc64__) /* Small structures are passed left-adjusted, although big-endian! */ /* Big structures are passed as pointers to caller-made local copies. */ #define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((TYPE_SIZE) <= 16 \ ? (__va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ __va_arg_leftadjusted(LIST,TYPE_SIZE,TYPE_ALIGN)) \ : va_arg_ptr(LIST,void*) \ ) #endif #if defined(__s390__) /* Structures <= 8 bytes are passed as embedded copies on the arg stack. * Big structures are passed as pointers to caller-made local copies. */ #define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((TYPE_SIZE) != 1 && (TYPE_SIZE) != 2 && (TYPE_SIZE) != 4 && (TYPE_SIZE) != 8 \ ? va_arg_ptr(LIST,void*) \ : (void*)__va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ) #endif #if defined(__hppa__) /* Structures <= 8 bytes are passed as embedded copies on the arg stack. * Big structures are passed as pointers to caller-made local copies. */ #define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((TYPE_SIZE) > 8 \ ? va_arg_ptr(LIST,void*) \ : /* FIXME: gcc-2.6.3 passes structures <= 4 bytes in memory left-adjusted! ?? */\ (void*)__va_arg_rightadjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ) #endif #if defined(__ia64__) /* Types larger than a word have 2-word alignment. */ #define __va_arg_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ (__va_align_struct(LIST,TYPE_SIZE,TYPE_ALIGN) \ ((TYPE_SIZE) > sizeof(__vaword) && (((__vaword*)(LIST)->aptr - (LIST)->saptr) & 1) ? (LIST)->aptr += sizeof(__vaword) : 0), \ __va_arg_adjusted(LIST,TYPE_SIZE,TYPE_ALIGN) \ ) #endif /* * Definition of the va_return_xxx macros. */ #define __va_return(LIST,RETTYPE) \ (((LIST)->rtype == (RETTYPE)) || __va_error1((LIST)->rtype,RETTYPE)) #define va_return_void(LIST) \ __va_return(LIST,__VAvoid) #define va_return_char(LIST,VAL) \ (__va_return(LIST,__VAchar), (LIST)->tmp._char = (VAL)) #define va_return_schar(LIST,VAL) \ (__va_return(LIST,__VAschar), (LIST)->tmp._schar = (VAL)) #define va_return_uchar(LIST,VAL) \ (__va_return(LIST,__VAuchar), (LIST)->tmp._uchar = (VAL)) #define va_return_short(LIST,VAL) \ (__va_return(LIST,__VAshort), (LIST)->tmp._short = (VAL)) #define va_return_ushort(LIST,VAL) \ (__va_return(LIST,__VAushort), (LIST)->tmp._ushort = (VAL)) #define va_return_int(LIST,VAL) \ (__va_return(LIST,__VAint), (LIST)->tmp._int = (VAL)) #define va_return_uint(LIST,VAL) \ (__va_return(LIST,__VAuint), (LIST)->tmp._uint = (VAL)) #define va_return_long(LIST,VAL) \ (__va_return(LIST,__VAlong), (LIST)->tmp._long = (VAL)) #define va_return_ulong(LIST,VAL) \ (__va_return(LIST,__VAulong), (LIST)->tmp._ulong = (VAL)) #if defined(__mips64__) || defined(__sparc64__) || defined(__alpha__) || defined(__ia64__) || defined(__x86_64__) #define va_return_longlong(LIST,VAL) \ (__va_return(LIST,__VAlonglong), (LIST)->tmp._long = (VAL)) #define va_return_ulonglong(LIST,VAL) \ (__va_return(LIST,__VAulonglong), (LIST)->tmp._ulong = (VAL)) #else #define va_return_longlong(LIST,VAL) \ (__va_return(LIST,__VAlonglong), (LIST)->tmp._longlong = (VAL)) #define va_return_ulonglong(LIST,VAL) \ (__va_return(LIST,__VAulonglong), (LIST)->tmp._ulonglong = (VAL)) #endif #define va_return_float(LIST,VAL) \ (__va_return(LIST,__VAfloat), (LIST)->tmp._float = (VAL)) #define va_return_double(LIST,VAL) \ (__va_return(LIST,__VAdouble), (LIST)->tmp._double = (VAL)) #define va_return_ptr(LIST,TYPE,VAL) \ (__va_return(LIST,__VAvoidp), (LIST)->tmp._ptr = (void*)(TYPE)(VAL)) #define va_return_struct(LIST,TYPE,VAL) \ (__va_return(LIST,__VAstruct), *(TYPE*)((LIST)->raddr) = (VAL)) #define _va_return_struct(LIST,TYPE_SIZE,TYPE_ALIGN,VAL_ADDR) \ (__va_return(LIST,__VAstruct), \ __structcpy((void*)((LIST)->raddr),VAL_ADDR,TYPE_SIZE,TYPE_ALIGN) \ ) /* Determine whether a struct type is word-splittable, i.e. whether each of * its components fit into a register. * The entire computation is done at compile time. */ #define va_word_splittable_1(slot1) \ (__va_offset1(slot1)/sizeof(__vaword) == (__va_offset1(slot1)+sizeof(slot1)-1)/sizeof(__vaword)) #define va_word_splittable_2(slot1,slot2) \ ((__va_offset1(slot1)/sizeof(__vaword) == (__va_offset1(slot1)+sizeof(slot1)-1)/sizeof(__vaword)) \ && (__va_offset2(slot1,slot2)/sizeof(__vaword) == (__va_offset2(slot1,slot2)+sizeof(slot2)-1)/sizeof(__vaword)) \ ) #define va_word_splittable_3(slot1,slot2,slot3) \ ((__va_offset1(slot1)/sizeof(__vaword) == (__va_offset1(slot1)+sizeof(slot1)-1)/sizeof(__vaword)) \ && (__va_offset2(slot1,slot2)/sizeof(__vaword) == (__va_offset2(slot1,slot2)+sizeof(slot2)-1)/sizeof(__vaword)) \ && (__va_offset3(slot1,slot2,slot3)/sizeof(__vaword) == (__va_offset3(slot1,slot2,slot3)+sizeof(slot3)-1)/sizeof(__vaword)) \ ) #define va_word_splittable_4(slot1,slot2,slot3,slot4) \ ((__va_offset1(slot1)/sizeof(__vaword) == (__va_offset1(slot1)+sizeof(slot1)-1)/sizeof(__vaword)) \ && (__va_offset2(slot1,slot2)/sizeof(__vaword) == (__va_offset2(slot1,slot2)+sizeof(slot2)-1)/sizeof(__vaword)) \ && (__va_offset3(slot1,slot2,slot3)/sizeof(__vaword) == (__va_offset3(slot1,slot2,slot3)+sizeof(slot3)-1)/sizeof(__vaword)) \ && (__va_offset4(slot1,slot2,slot3,slot4)/sizeof(__vaword) == (__va_offset4(slot1,slot2,slot3,slot4)+sizeof(slot4)-1)/sizeof(__vaword)) \ ) #define __va_offset1(slot1) \ 0 #define __va_offset2(slot1,slot2) \ ((__va_offset1(slot1)+sizeof(slot1)+__VA_alignof(slot2)-1) & -(long)__VA_alignof(slot2)) #define __va_offset3(slot1,slot2,slot3) \ ((__va_offset2(slot1,slot2)+sizeof(slot2)+__VA_alignof(slot3)-1) & -(long)__VA_alignof(slot3)) #define __va_offset4(slot1,slot2,slot3,slot4) \ ((__va_offset3(slot1,slot2,slot3)+sizeof(slot3)+__VA_alignof(slot4)-1) & -(long)__VA_alignof(slot4)) /* * Miscellaneous declarations. */ #ifdef __cplusplus extern "C" void (*vacall) (); /* the return type is variable, not void! */ #else extern void (*vacall) (); /* the return type is variable, not void! */ #endif #if defined(__STDC__) || defined(__GNUC__) || defined(__cplusplus) extern void (* vacall_function) (va_alist); extern int __va_error1 (enum __VAtype, enum __VAtype); extern int __va_error2 (unsigned int); extern void __structcpy (void* dest, void* src, unsigned long size, unsigned long alignment); #else extern void (* vacall_function) (); extern int __va_error1 (); extern int __va_error2 (); extern void __structcpy (); #endif typedef union { __vaword room[__VA_ALIST_WORDS]; double align; } __va_struct_buffer_t; extern __va_struct_buffer_t __va_struct_buffer; #endif /* _VACALL_H */