/* $OpenBSD: va-ppc.h,v 1.6 2001/03/29 18:52:19 drahn Exp $ */ /* GNU C varargs support for the PowerPC with either the V.4 or Windows NT calling sequences */ #ifndef _WIN32 /* System V.4 support */ /* Define __gnuc_va_list. */ #ifndef __GNUC_VA_LIST #define __GNUC_VA_LIST #ifndef _SYS_VA_LIST_H #define _SYS_VA_LIST_H /* Solaris sys/va_list.h */ /* Solaris decided to rename overflow_arg_area to input_arg_area, so handle it via a macro. */ #define __va_overflow(AP) (AP)->overflow_arg_area /* Note that the names in this structure are in the user's namespace, but that the V.4 abi explicitly states that these names should be used. */ typedef struct __va_list_tag { char gpr; /* index into the array of 8 GPRs stored in the register save area gpr=0 corresponds to r3, gpr=1 to r4, etc. */ char fpr; /* index into the array of 8 FPRs stored in the register save area fpr=0 corresponds to f1, fpr=1 to f2, etc. */ char *overflow_arg_area; /* location on stack that holds the next overflow argument */ char *reg_save_area; /* where r3:r10 and f1:f8, if saved are stored */ } __va_list[1], __gnuc_va_list[1]; #else /* _SYS_VA_LIST */ typedef __va_list __gnuc_va_list; #define __va_overflow(AP) (AP)->input_arg_area #endif /* not _SYS_VA_LIST */ #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) /* Register save area located below the frame pointer */ #ifndef __VA_PPC_H__ #define __VA_PPC_H__ typedef struct { long __gp_save[8]; /* save area for GP registers */ double __fp_save[8]; /* save area for FP registers */ } __va_regsave_t; /* Macros to access the register save area */ /* We cast to void * and then to TYPE * because this avoids a warning about increasing the alignment requirement. */ #define __VA_FP_REGSAVE(AP,TYPE) \ ((TYPE *) (void *) (&(((__va_regsave_t *) \ (AP)->reg_save_area)->__fp_save[(int)(AP)->fpr]))) #define __VA_GP_REGSAVE(AP,TYPE) \ ((TYPE *) (void *) (&(((__va_regsave_t *) \ (AP)->reg_save_area)->__gp_save[(int)(AP)->gpr]))) #if __GNUC_MINOR__ > 8 #define GCC29 #endif #ifndef GCC29 /* Common code for va_start for both varargs and stdarg. This depends on the format of rs6000_args in rs6000.h. The fields used are: #0 WORDS # words used for GP regs/stack values #1 FREGNO next available FP register #2 NARGS_PROTOTYPE # args left in the current prototype #3 ORIG_NARGS original value of NARGS_PROTOTYPE #4 VARARGS_OFFSET offset from frame pointer of varargs area */ #else /* GCC29 */ /* Common code for va_start for both varargs and stdarg. We allow all the work to be done by __builtin_saveregs. It returns a pointer to a va_list that was constructed on the stack; we must simply copy it to the user's variable. */ #endif /* GCC29 */ #ifndef GCC29 #define __va_words __builtin_args_info (0) #define __va_fregno __builtin_args_info (1) #define __va_nargs __builtin_args_info (2) #define __va_orig_nargs __builtin_args_info (3) #define __va_varargs_offset __builtin_args_info (4) #define __va_start_common(AP, FAKE) \ __extension__ ({ \ register int __words = __va_words - FAKE; \ \ (AP) = (struct __va_list_tag *)__builtin_alloca(sizeof(struct __va_list_tag)); \ (AP)->gpr = (__words < 8) ? __words : 8; \ (AP)->fpr = __va_fregno - 33; \ (AP)->reg_save_area = (((char *) __builtin_frame_address (0)) \ + __va_varargs_offset); \ __va_overflow(AP) = ((char *)__builtin_saveregs () \ + (((__words >= 8) ? __words - 8 : 0) \ * sizeof (long))); \ (void)0; \ }) #else /* GCC29 */ #define __va_start_common(AP, FAKE) \ __extension__ ({ \ (AP) = (struct __va_list_tag *)__builtin_alloca(sizeof(__gnuc_va_list)); \ __builtin_memcpy ((AP), __builtin_saveregs (), sizeof(__gnuc_va_list)); \ }) #endif /* GCC29 */ #ifdef _STDARG_H /* stdarg.h support */ /* Calling __builtin_next_arg gives the proper error message if LASTARG is not indeed the last argument. */ #define va_start(AP,LASTARG) \ (__builtin_next_arg (LASTARG), __va_start_common (AP, 0)) #else /* varargs.h support */ #define va_start(AP) __va_start_common (AP, 1) #define va_alist __va_1st_arg #define va_dcl register int va_alist; ... #endif /* _STDARG_H */ #ifdef _SOFT_FLOAT #define __va_float_p(TYPE) 0 #else #define __va_float_p(TYPE) (__builtin_classify_type(*(TYPE *)0) == 8) #endif #define __va_longlong_p(TYPE) \ ((__builtin_classify_type(*(TYPE *)0) == 1) && (sizeof(TYPE) == 8)) #define __va_aggregate_p(TYPE) (__builtin_classify_type(*(TYPE *)0) >= 12) #define __va_size(TYPE) ((sizeof(TYPE) + sizeof (long) - 1) / sizeof (long)) #ifndef GCC29 #define va_arg(AP,TYPE) \ __extension__ (*({ \ register TYPE *__ptr; \ \ if (__va_float_p (TYPE) && (AP)->fpr < 8) \ { \ __ptr = __VA_FP_REGSAVE (AP, TYPE); \ (AP)->fpr++; \ } \ \ else if (__va_aggregate_p (TYPE) && (AP)->gpr < 8) \ { \ __ptr = * __VA_GP_REGSAVE (AP, TYPE *); \ (AP)->gpr++; \ } \ \ else if (!__va_float_p (TYPE) && !__va_aggregate_p (TYPE) \ && (AP)->gpr + __va_size(TYPE) <= 8 \ && (!__va_longlong_p(TYPE) \ || (AP)->gpr + __va_size(TYPE) <= 7)) \ { \ if (__va_longlong_p(TYPE) && ((AP)->gpr & 1) != 0) \ (AP)->gpr++; \ \ __ptr = __VA_GP_REGSAVE (AP, TYPE); \ (AP)->gpr += __va_size (TYPE); \ } \ \ else if (!__va_float_p (TYPE) && !__va_aggregate_p (TYPE) \ && (AP)->gpr < 8) \ { \ (AP)->gpr = 8; \ __ptr = (TYPE *) (void *) (__va_overflow(AP)); \ __va_overflow(AP) += __va_size (TYPE) * sizeof (long); \ } \ \ else if (__va_aggregate_p (TYPE)) \ { \ __ptr = * (TYPE **) (void *) (__va_overflow(AP)); \ __va_overflow(AP) += sizeof (TYPE *); \ } \ else \ { \ if (__va_longlong_p(TYPE) && ((long)__va_overflow(AP) & 4) != 0) \ __va_overflow(AP) += 4; \ \ __ptr = (TYPE *) (void *) (__va_overflow(AP)); \ __va_overflow(AP) += __va_size (TYPE) * sizeof (long); \ } \ \ __ptr; \ })) #else /* GCC29 */ #define va_arg(AP,TYPE) \ __extension__ (*({ \ register TYPE *__ptr; \ \ if (__va_float_p (TYPE) && (AP)->fpr < 8) \ { \ __ptr = __VA_FP_REGSAVE (AP, TYPE); \ (AP)->fpr++; \ } \ \ else if (__va_aggregate_p (TYPE) && (AP)->gpr < 8) \ { \ __ptr = * __VA_GP_REGSAVE (AP, TYPE *); \ (AP)->gpr++; \ } \ \ else if (!__va_float_p (TYPE) && !__va_aggregate_p (TYPE) \ && (AP)->gpr + __va_size(TYPE) <= 8 \ && (!__va_longlong_p(TYPE) \ || (AP)->gpr + __va_size(TYPE) <= 8)) \ { \ if (__va_longlong_p(TYPE) && ((AP)->gpr & 1) != 0) \ (AP)->gpr++; \ \ __ptr = __VA_GP_REGSAVE (AP, TYPE); \ (AP)->gpr += __va_size (TYPE); \ } \ \ else if (!__va_float_p (TYPE) && !__va_aggregate_p (TYPE) \ && (AP)->gpr < 8) \ { \ (AP)->gpr = 8; \ __ptr = (TYPE *) (void *) (__va_overflow(AP)); \ __va_overflow(AP) += __va_size (TYPE) * sizeof (long); \ } \ \ else if (__va_aggregate_p (TYPE)) \ { \ __ptr = * (TYPE **) (void *) (__va_overflow(AP)); \ __va_overflow(AP) += sizeof (TYPE *); \ } \ else \ { \ __ptr = (TYPE *) (void *) (__va_overflow(AP)); \ __va_overflow(AP) += __va_size (TYPE) * sizeof (long); \ } \ \ __ptr; \ })) #endif /* not GCC29 */ #define va_end(AP) ((void)0) /* Copy __gnuc_va_list into another variable of this type. */ #define __va_copy(dest, src) \ __extension__ ({ \ (dest) = \ (struct __va_list_tag *)__builtin_alloca(sizeof(__gnuc_va_list)); \ *(dest) = *(src);\ }) #endif /* __VA_PPC_H__ */ #endif /* defined (_STDARG_H) || defined (_VARARGS_H) */ #else /* Windows NT */ /* Define __gnuc_va_list. */ #ifndef __GNUC_VA_LIST #define __GNUC_VA_LIST typedef char *__gnuc_va_list; #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) #define __va_start_common(AP, LASTARG, FAKE) \ ((__builtin_saveregs ()), ((AP) = ((char *) &LASTARG) + __va_rounded_size (AP)), 0) #ifdef _STDARG_H /* stdarg.h support */ /* Calling __builtin_next_arg gives the proper error message if LASTARG is not indeed the last argument. */ #define va_start(AP,LASTARG) \ (__builtin_saveregs (), \ (AP) = __builtin_next_arg (LASTARG), \ 0) #else /* varargs.h support */ #define va_start(AP) \ (__builtin_saveregs (), \ (AP) = __builtin_next_arg (__va_1st_arg) - sizeof (int), \ 0) #define va_alist __va_1st_arg #define va_dcl register int __va_1st_arg; ... #endif /* _STDARG_H */ #define __va_rounded_size(TYPE) ((sizeof (TYPE) + 3) & ~3) #define __va_align(AP, TYPE) \ ((((unsigned long)(AP)) + ((sizeof (TYPE) >= 8) ? 7 : 3)) \ & ~((sizeof (TYPE) >= 8) ? 7 : 3)) #define va_arg(AP,TYPE) \ ( *(TYPE *)((AP = (char *) (__va_align(AP, TYPE) \ + __va_rounded_size(TYPE))) \ - __va_rounded_size(TYPE))) #define va_end(AP) ((void)0) /* Copy __gnuc_va_list into another variable of this type. */ #define __va_copy(dest, src) (dest) = (src) #endif /* defined (_STDARG_H) || defined (_VARARGS_H) */ #endif /* Windows NT */