d4691e641b
non-i386, non-unix, and generatable files have been trimmed, but can easily be added in later if needed. gcc-2.7.2.1 will follow shortly, it's a very small delta to this and it's handy to have both available for reference for such little cost. The freebsd-specific changes will then be committed, and once the dust has settled, the bmakefiles will be committed to use this code.
204 lines
6.7 KiB
C
204 lines
6.7 KiB
C
/* This is just like the default gvarargs.h
|
|
except for differences described below. */
|
|
|
|
/* Define __gnuc_va_list. */
|
|
|
|
#ifndef __GNUC_VA_LIST
|
|
#define __GNUC_VA_LIST
|
|
|
|
#ifdef __sparc_v9__
|
|
typedef long long __va_greg;
|
|
typedef double __va_freg;
|
|
typedef struct {
|
|
__va_greg * __va_next_o; /* next available %o* register */
|
|
__va_greg * __va_next_o_limit; /* past last available %o* register */
|
|
__va_freg * __va_next_fp; /* next available %f* register */
|
|
__va_freg * __va_next_fp_limit; /* last available %f* register */
|
|
__va_greg * __va_next_stack; /* next extended word on stack */
|
|
} __gnuc_va_list;
|
|
#else
|
|
#ifndef __svr4__
|
|
/* This has to be a char * to be compatible with Sun.
|
|
i.e., we have to pass a `va_list' to vsprintf. */
|
|
typedef char * __gnuc_va_list;
|
|
#else
|
|
/* This has to be a void * to be compatible with Sun svr4.
|
|
i.e., we have to pass a `va_list' to vsprintf. */
|
|
typedef void * __gnuc_va_list;
|
|
#endif
|
|
#endif /* not __sparc_v9__ */
|
|
#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)
|
|
|
|
#ifdef _STDARG_H
|
|
|
|
#ifdef __sparc_v9__
|
|
#define va_start(AP, LASTARG) \
|
|
__extension__ \
|
|
({ \
|
|
AP.__va_next_o = (__va_greg *) __builtin_saveregs (); \
|
|
AP.__va_next_o_limit = (AP.__va_next_o + \
|
|
(__builtin_args_info (0) < 6 ? 6 - __builtin_args_info (0) : 0)); \
|
|
AP.__va_next_fp = (__va_freg *) AP.__va_next_o_limit; \
|
|
AP.__va_next_fp_limit = (AP.__va_next_fp + \
|
|
(__builtin_args_info (1) < 16 ? (16 - __builtin_args_info (1) + 1) / 2 : 0)); \
|
|
AP.__va_next_stack = (__va_greg *) __builtin_next_arg (LASTARG); \
|
|
})
|
|
#else
|
|
/* Call __builtin_next_arg even though we aren't using its value, so that
|
|
we can verify that LASTARG is correct. */
|
|
#ifdef __GCC_NEW_VARARGS__
|
|
#define va_start(AP, LASTARG) \
|
|
(__builtin_next_arg (LASTARG), AP = (char *) __builtin_saveregs ())
|
|
#else
|
|
#define va_start(AP, LASTARG) \
|
|
(__builtin_saveregs (), AP = ((char *) __builtin_next_arg (LASTARG)))
|
|
#endif
|
|
#endif /* not __sparc_v9__ */
|
|
|
|
#else
|
|
|
|
#define va_alist __builtin_va_alist
|
|
#define va_dcl int __builtin_va_alist;...
|
|
|
|
#ifdef __sparc_v9__
|
|
#define va_start(AP) \
|
|
__extension__ \
|
|
({ \
|
|
AP.__va_next_o = (__va_greg *) __builtin_saveregs (); \
|
|
AP.__va_next_o_limit = (AP.__va_next_o + \
|
|
(__builtin_args_info (0) < 6 ? 6 - __builtin_args_info (0) : 0)); \
|
|
AP.__va_next_fp = (__va_freg *) AP.__va_next_o_limit; \
|
|
AP.__va_next_fp_limit = (AP.__va_next_fp + \
|
|
(__builtin_args_info (1) < 16 ? (16 - __builtin_args_info (1) + 1) / 2 : 0)); \
|
|
AP.__va_next_stack = (__va_greg *) __builtin_next_arg (__builtin_va_alist) \
|
|
- (__builtin_args_info (0) >= 6 || __builtin_args_info (1) >= 16 ? 1 : 0); \
|
|
})
|
|
#else
|
|
#ifdef __GCC_NEW_VARARGS__
|
|
#define va_start(AP) ((AP) = (char *) __builtin_saveregs ())
|
|
#else
|
|
#define va_start(AP) \
|
|
(__builtin_saveregs (), (AP) = ((char *) &__builtin_va_alist))
|
|
#endif
|
|
#endif /* not __sparc_v9__ */
|
|
|
|
#endif
|
|
|
|
#ifndef va_end
|
|
void va_end (__gnuc_va_list); /* Defined in libgcc.a */
|
|
|
|
/* Values returned by __builtin_classify_type. */
|
|
|
|
enum __va_type_classes {
|
|
__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
|
|
#define va_end(pvar) ((void)0)
|
|
|
|
/* Avoid errors if compiling GCC v2 with GCC v1. */
|
|
#if __GNUC__ == 1
|
|
#define __extension__
|
|
#endif
|
|
|
|
/* RECORD_TYPE args passed using the C calling convention are
|
|
passed by invisible reference. ??? RECORD_TYPE args passed
|
|
in the stack are made to be word-aligned; for an aggregate that is
|
|
not word-aligned, we advance the pointer to the first non-reg slot. */
|
|
|
|
#ifdef __sparc_v9__
|
|
|
|
#define va_arg(pvar,TYPE) \
|
|
__extension__ \
|
|
(*({int __type = __builtin_classify_type (* (TYPE *) 0); \
|
|
void * __result; \
|
|
if (__type == __real_type_class) /* float? */ \
|
|
{ \
|
|
__va_freg *__r; \
|
|
/* see PASS_IN_REG_P in gcc's sparc.h */ \
|
|
if (pvar.__va_next_fp < pvar.__va_next_fp_limit \
|
|
&& ((__r = (__va_freg *) (((__va_greg) pvar.__va_next_fp + sizeof (TYPE) - 1) & ~(__va_greg) (sizeof (TYPE) - 1))) \
|
|
< pvar.__va_next_fp_limit)) \
|
|
{ \
|
|
pvar.__va_next_fp = __r + (sizeof (TYPE) + 7) / 8; \
|
|
} \
|
|
else \
|
|
{ \
|
|
__r = (__va_freg *) pvar.__va_next_stack; \
|
|
pvar.__va_next_stack += (sizeof (TYPE) + 7) / 8; \
|
|
} \
|
|
__result = __r; \
|
|
} \
|
|
else if (__type < __record_type_class) /* integer? */ \
|
|
{ \
|
|
__va_greg *__r; \
|
|
if (pvar.__va_next_o < pvar.__va_next_o_limit) \
|
|
__r = pvar.__va_next_o++; \
|
|
else \
|
|
__r = pvar.__va_next_stack++; \
|
|
/* adjust for 4 byte ints */ \
|
|
__result = (char *) __r + 8 - sizeof (TYPE); \
|
|
} \
|
|
else /* aggregate object */ \
|
|
{ \
|
|
void **__r; \
|
|
if (pvar.__va_next_o < pvar.__va_next_o_limit) \
|
|
__r = (void **) pvar.__va_next_o++; \
|
|
else \
|
|
__r = (void **) pvar.__va_next_stack++; \
|
|
__result = *__r; \
|
|
} \
|
|
(TYPE *) __result;}))
|
|
|
|
#else /* not __sparc_v9__ */
|
|
|
|
#define __va_rounded_size(TYPE) \
|
|
(((sizeof (TYPE) + sizeof (int) - 1) / sizeof (int)) * sizeof (int))
|
|
|
|
/* We don't declare the union member `d' to have type TYPE
|
|
because that would lose in C++ if TYPE has a constructor. */
|
|
/* We cast to void * and then to TYPE * because this avoids
|
|
a warning about increasing the alignment requirement.
|
|
The casts to char * avoid warnings about invalid pointer arithmetic. */
|
|
#define va_arg(pvar,TYPE) \
|
|
__extension__ \
|
|
(*({((__builtin_classify_type (*(TYPE*) 0) >= __record_type_class \
|
|
|| (__builtin_classify_type (*(TYPE*) 0) == __real_type_class \
|
|
&& sizeof (TYPE) == 16)) \
|
|
? ((pvar) = (char *)(pvar) + __va_rounded_size (TYPE *), \
|
|
*(TYPE **) (void *) ((char *)(pvar) - __va_rounded_size (TYPE *))) \
|
|
: __va_rounded_size (TYPE) == 8 \
|
|
? ({ union {char __d[sizeof (TYPE)]; int __i[2];} __u; \
|
|
__u.__i[0] = ((int *) (void *) (pvar))[0]; \
|
|
__u.__i[1] = ((int *) (void *) (pvar))[1]; \
|
|
(pvar) = (char *)(pvar) + 8; \
|
|
(TYPE *) (void *) __u.__d; }) \
|
|
: ((pvar) = (char *)(pvar) + __va_rounded_size (TYPE), \
|
|
((TYPE *) (void *) ((char *)(pvar) - __va_rounded_size (TYPE)))));}))
|
|
#endif /* not __sparc_v9__ */
|
|
|
|
#endif /* defined (_STDARG_H) || defined (_VARARGS_H) */
|