/* ---------------------------------------- */ /* VARARGS for MIPS/GNU CC */ /* */ /* */ /* */ /* */ /* ---------------------------------------- */ /* These macros implement varargs for GNU C--either traditional or ANSI. */ /* Define __gnuc_va_list. */ #ifndef __GNUC_VA_LIST #define __GNUC_VA_LIST #if defined (__mips_eabi) && ! defined (__mips_soft_float) && ! defined (__mips_single_float) typedef struct { /* Pointer to FP regs. */ char *__fp_regs; /* Number of FP regs remaining. */ int __fp_left; /* Pointer to GP regs followed by stack parameters. */ char *__gp_regs; } __gnuc_va_list; #else /* ! (defined (__mips_eabi) && ! defined (__mips_soft_float) && ! defined (__mips_single_float)) */ typedef char * __gnuc_va_list; #endif /* ! (defined (__mips_eabi) && ! defined (__mips_soft_float) && ! defined (__mips_single_float)) */ #endif /* not __GNUC_VA_LIST */ /* If this is for internal libc use, don't define anything but __gnuc_va_list. */ #if defined (_STDARG_H) || defined (_VARARGS_H) #ifndef _VA_MIPS_H_ENUM #define _VA_MIPS_H_ENUM enum { __no_type_class = -1, __void_type_class, __integer_type_class, __char_type_class, __enumeral_type_class, __boolean_type_class, __pointer_type_class, __reference_type_class, __offset_type_class, __real_type_class, __complex_type_class, __function_type_class, __method_type_class, __record_type_class, __union_type_class, __array_type_class, __string_type_class, __set_type_class, __file_type_class, __lang_type_class }; #endif /* 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 #ifdef __mips64 #define __va_rounded_size(__TYPE) \ (((sizeof (__TYPE) + 8 - 1) / 8) * 8) #else #define __va_rounded_size(__TYPE) \ (((sizeof (__TYPE) + sizeof (int) - 1) / sizeof (int)) * sizeof (int)) #endif #ifdef __mips64 #define __va_reg_size 8 #else #define __va_reg_size 4 #endif /* Get definitions for _MIPS_SIM_ABI64 etc. */ #ifdef _MIPS_SIM #include "gcc/sgidefs.h" #endif #ifdef _STDARG_H #if defined (__mips_eabi) #if ! defined (__mips_soft_float) && ! defined (__mips_single_float) #ifdef __mips64 #define va_start(__AP, __LASTARG) \ (__AP.__gp_regs = ((char *) __builtin_next_arg (__LASTARG) \ - (__builtin_args_info (2) < 8 \ ? (8 - __builtin_args_info (2)) * __va_reg_size \ : 0)), \ __AP.__fp_left = 8 - __builtin_args_info (3), \ __AP.__fp_regs = __AP.__gp_regs - __AP.__fp_left * __va_reg_size) #else /* ! defined (__mips64) */ #define va_start(__AP, __LASTARG) \ (__AP.__gp_regs = ((char *) __builtin_next_arg (__LASTARG) \ - (__builtin_args_info (2) < 8 \ ? (8 - __builtin_args_info (2)) * __va_reg_size \ : 0)), \ __AP.__fp_left = (8 - __builtin_args_info (3)) / 2, \ __AP.__fp_regs = __AP.__gp_regs - __AP.__fp_left * 8, \ __AP.__fp_regs = (char *) ((int) __AP.__fp_regs & -8)) #endif /* ! defined (__mips64) */ #else /* ! (! defined (__mips_soft_float) && ! defined (__mips_single_float) ) */ #define va_start(__AP, __LASTARG) \ (__AP = ((__gnuc_va_list) __builtin_next_arg (__LASTARG) \ - (__builtin_args_info (2) >= 8 ? 0 \ : (8 - __builtin_args_info (2)) * __va_reg_size))) #endif /* ! (! defined (__mips_soft_float) && ! defined (__mips_single_float) ) */ #else /* ! defined (__mips_eabi) */ #define va_start(__AP, __LASTARG) \ (__AP = (__gnuc_va_list) __builtin_next_arg (__LASTARG)) #endif /* ! (defined (__mips_eabi) && ! defined (__mips_soft_float) && ! defined (__mips_single_float)) */ #else /* ! _STDARG_H */ #define va_alist __builtin_va_alist #ifdef __mips64 /* This assumes that `long long int' is always a 64 bit type. */ #define va_dcl long long int __builtin_va_alist; __va_ellipsis #else #define va_dcl int __builtin_va_alist; __va_ellipsis #endif #if defined (__mips_eabi) #if ! defined (__mips_soft_float) && ! defined (__mips_single_float) #ifdef __mips64 #define va_start(__AP) \ (__AP.__gp_regs = ((char *) __builtin_next_arg () \ - (__builtin_args_info (2) < 8 \ ? (8 - __builtin_args_info (2)) * __va_reg_size \ : __va_reg_size)), \ __AP.__fp_left = 8 - __builtin_args_info (3), \ __AP.__fp_regs = __AP.__gp_regs - __AP.__fp_left * __va_reg_size) #else /* ! defined (__mips64) */ #define va_start(__AP) \ (__AP.__gp_regs = ((char *) __builtin_next_arg () \ - (__builtin_args_info (2) < 8 \ ? (8 - __builtin_args_info (2)) * __va_reg_size \ : __va_reg_size)), \ __AP.__fp_left = (8 - __builtin_args_info (3)) / 2, \ __AP.__fp_regs = __AP.__gp_regs - __AP.__fp_left * 8, \ __AP.__fp_regs = (char *) ((int) __AP.__fp_regs & -8)) #endif /* ! defined (__mips64) */ #else /* ! (! defined (__mips_soft_float) && ! defined (__mips_single_float)) */ #define va_start(__AP) \ (__AP = ((__gnuc_va_list) __builtin_next_arg () \ - (__builtin_args_info (2) >= 8 ? __va_reg_size \ : (8 - __builtin_args_info (2)) * __va_reg_size))) #endif /* ! (! defined (__mips_soft_float) && ! defined (__mips_single_float)) */ /* Need alternate code for _MIPS_SIM_ABI64. */ #elif defined(_MIPS_SIM) && (_MIPS_SIM == _MIPS_SIM_ABI64 || _MIPS_SIM == _MIPS_SIM_NABI32) #define va_start(__AP) \ (__AP = (__gnuc_va_list) __builtin_next_arg () \ + (__builtin_args_info (2) >= 8 ? -8 : 0)) #else #define va_start(__AP) __AP = (char *) &__builtin_va_alist #endif #endif /* ! _STDARG_H */ #ifndef va_end void va_end (__gnuc_va_list); /* Defined in libgcc.a */ #endif #define va_end(__AP) ((void)0) #if defined (__mips_eabi) #if ! defined (__mips_soft_float) && ! defined (__mips_single_float) #ifdef __mips64 #define __va_next_addr(__AP, __type) \ ((__builtin_classify_type (*(__type *) 0) == __real_type_class \ && __AP.__fp_left > 0) \ ? (--__AP.__fp_left, (__AP.__fp_regs += 8) - 8) \ : (__AP.__gp_regs += __va_reg_size) - __va_reg_size) #else #define __va_next_addr(__AP, __type) \ ((__builtin_classify_type (*(__type *) 0) == __real_type_class \ && __AP.__fp_left > 0) \ ? (--__AP.__fp_left, (__AP.__fp_regs += 8) - 8) \ : (((__builtin_classify_type (* (__type *) 0) < __record_type_class \ && __alignof__ (__type) > 4) \ ? __AP.__gp_regs = (char *) (((int) __AP.__gp_regs + 8 - 1) & -8) \ : (char *) 0), \ (__builtin_classify_type (* (__type *) 0) >= __record_type_class \ ? (__AP.__gp_regs += __va_reg_size) - __va_reg_size \ : ((__AP.__gp_regs += __va_rounded_size (__type)) \ - __va_rounded_size (__type))))) #endif #else /* ! (! defined (__mips_soft_float) && ! defined (__mips_single_float)) */ #ifdef __mips64 #define __va_next_addr(__AP, __type) \ ((__AP += __va_reg_size) - __va_reg_size) #else #define __va_next_addr(__AP, __type) \ (((__builtin_classify_type (* (__type *) 0) < __record_type_class \ && __alignof__ (__type) > 4) \ ? __AP = (char *) (((int) __AP + 8 - 1) & -8) \ : (char *) 0), \ (__builtin_classify_type (* (__type *) 0) >= __record_type_class \ ? (__AP += __va_reg_size) - __va_reg_size \ : ((__AP += __va_rounded_size (__type)) \ - __va_rounded_size (__type)))) #endif #endif /* ! (! defined (__mips_soft_float) && ! defined (__mips_single_float)) */ #ifdef __MIPSEB__ #define va_arg(__AP, __type) \ ((__va_rounded_size (__type) <= __va_reg_size) \ ? *(__type *) (void *) (__va_next_addr (__AP, __type) \ + __va_reg_size \ - sizeof (__type)) \ : (__builtin_classify_type (*(__type *) 0) >= __record_type_class \ ? **(__type **) (void *) (__va_next_addr (__AP, __type) \ + __va_reg_size \ - sizeof (char *)) \ : *(__type *) (void *) __va_next_addr (__AP, __type))) #else #define va_arg(__AP, __type) \ ((__va_rounded_size (__type) <= __va_reg_size) \ ? *(__type *) (void *) __va_next_addr (__AP, __type) \ : (__builtin_classify_type (* (__type *) 0) >= __record_type_class \ ? **(__type **) (void *) __va_next_addr (__AP, __type) \ : *(__type *) (void *) __va_next_addr (__AP, __type))) #endif #else /* ! defined (__mips_eabi) */ /* We cast to void * and then to TYPE * because this avoids a warning about increasing the alignment requirement. */ /* The __mips64 cases are reversed from the 32 bit cases, because the standard 32 bit calling convention left-aligns all parameters smaller than a word, whereas the __mips64 calling convention does not (and hence they are right aligned). */ #ifdef __mips64 #ifdef __MIPSEB__ #define va_arg(__AP, __type) \ ((__type *) (void *) (__AP = (char *) ((((__PTRDIFF_TYPE__)__AP + 8 - 1) & -8) \ + __va_rounded_size (__type))))[-1] #else #define va_arg(__AP, __type) \ ((__AP = (char *) ((((__PTRDIFF_TYPE__)__AP + 8 - 1) & -8) \ + __va_rounded_size (__type))), \ *(__type *) (void *) (__AP - __va_rounded_size (__type))) #endif #else /* not __mips64 */ #ifdef __MIPSEB__ /* For big-endian machines. */ #define va_arg(__AP, __type) \ ((__AP = (char *) ((__alignof__ (__type) > 4 \ ? ((int)__AP + 8 - 1) & -8 \ : ((int)__AP + 4 - 1) & -4) \ + __va_rounded_size (__type))), \ *(__type *) (void *) (__AP - __va_rounded_size (__type))) #else /* For little-endian machines. */ #define va_arg(__AP, __type) \ ((__type *) (void *) (__AP = (char *) ((__alignof__(__type) > 4 \ ? ((int)__AP + 8 - 1) & -8 \ : ((int)__AP + 4 - 1) & -4) \ + __va_rounded_size(__type))))[-1] #endif #endif #endif /* ! defined (__mips_eabi) */ /* Copy __gnuc_va_list into another variable of this type. */ #define __va_copy(dest, src) (dest) = (src) #endif /* defined (_STDARG_H) || defined (_VARARGS_H) */