52a3801208
git-svn-id: file:///srv/svn/repos/haiku/trunk/current@10 a95241bf-73f2-0310-859d-f6bbb57e9c96
231 lines
6.6 KiB
C
231 lines
6.6 KiB
C
/* The ! __SH3E_VARG case is similar to the default gvarargs.h . */
|
|
|
|
#if (defined (__SH3E__) || defined (__SH4_SINGLE__) || defined (__SH4__) || defined (__SH4_SINGLE_ONLY__)) && ! defined (__HITACHI__)
|
|
#define __SH3E_VARG
|
|
#endif
|
|
|
|
/* Define __gnuc_va_list. */
|
|
|
|
#ifndef __GNUC_VA_LIST
|
|
#define __GNUC_VA_LIST
|
|
|
|
#ifdef __SH3E_VARG
|
|
|
|
typedef long __va_greg;
|
|
typedef float __va_freg;
|
|
|
|
typedef struct {
|
|
__va_greg * __va_next_o; /* next available register */
|
|
__va_greg * __va_next_o_limit; /* past last available register */
|
|
__va_freg * __va_next_fp; /* next available fp register */
|
|
__va_freg * __va_next_fp_limit; /* last available fp register */
|
|
__va_greg * __va_next_stack; /* next extended word on stack */
|
|
} __gnuc_va_list;
|
|
|
|
#else /* ! SH3E */
|
|
|
|
typedef void *__gnuc_va_list;
|
|
|
|
#endif /* ! SH3E */
|
|
|
|
#endif /* __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 __SH3E_VARG
|
|
|
|
#define va_start(AP, LASTARG) \
|
|
__extension__ \
|
|
({ \
|
|
(AP).__va_next_fp = (__va_freg *) __builtin_saveregs (); \
|
|
(AP).__va_next_fp_limit = ((AP).__va_next_fp + \
|
|
(__builtin_args_info (1) < 8 ? 8 - __builtin_args_info (1) : 0)); \
|
|
(AP).__va_next_o = (__va_greg *) (AP).__va_next_fp_limit; \
|
|
(AP).__va_next_o_limit = ((AP).__va_next_o + \
|
|
(__builtin_args_info (0) < 4 ? 4 - __builtin_args_info (0) : 0)); \
|
|
(AP).__va_next_stack = (__va_greg *) __builtin_next_arg (LASTARG); \
|
|
})
|
|
|
|
#else /* ! SH3E */
|
|
|
|
#define va_start(AP, LASTARG) \
|
|
((AP) = ((__gnuc_va_list) __builtin_next_arg (LASTARG)))
|
|
|
|
#endif /* ! SH3E */
|
|
|
|
#else /* _VARARGS_H */
|
|
|
|
#define va_alist __builtin_va_alist
|
|
#define va_dcl int __builtin_va_alist;...
|
|
|
|
#ifdef __SH3E_VARG
|
|
|
|
#define va_start(AP) \
|
|
__extension__ \
|
|
({ \
|
|
(AP).__va_next_fp = (__va_freg *) __builtin_saveregs (); \
|
|
(AP).__va_next_fp_limit = ((AP).__va_next_fp + \
|
|
(__builtin_args_info (1) < 8 ? 8 - __builtin_args_info (1) : 0)); \
|
|
(AP).__va_next_o = (__va_greg *) (AP).__va_next_fp_limit; \
|
|
(AP).__va_next_o_limit = ((AP).__va_next_o + \
|
|
(__builtin_args_info (0) < 4 ? 4 - __builtin_args_info (0) : 0)); \
|
|
(AP).__va_next_stack \
|
|
= ((__va_greg *) __builtin_next_arg (__builtin_va_alist) \
|
|
- (__builtin_args_info (0) >= 4 || __builtin_args_info (1) >= 8 \
|
|
? 1 : 0)); \
|
|
})
|
|
|
|
#else /* ! SH3E */
|
|
|
|
#define va_start(AP) ((AP) = (char *) &__builtin_va_alist)
|
|
|
|
#endif /* ! SH3E */
|
|
|
|
#endif /* _STDARG */
|
|
|
|
#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)
|
|
|
|
#ifdef __LITTLE_ENDIAN__
|
|
#define __LITTLE_ENDIAN_P 1
|
|
#else
|
|
#define __LITTLE_ENDIAN_P 0
|
|
#endif
|
|
|
|
#define __SCALAR_TYPE(TYPE) \
|
|
((TYPE) == __integer_type_class \
|
|
|| (TYPE) == __char_type_class \
|
|
|| (TYPE) == __enumeral_type_class)
|
|
|
|
/* 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. */
|
|
|
|
/* When this is a smaller-than-int integer, using
|
|
auto-increment in the promoted (SImode) is fastest;
|
|
however, there is no way to express that is C. Therefore,
|
|
we use an asm.
|
|
We want the MEM_IN_STRUCT_P bit set in the emitted RTL, therefore we
|
|
use unions even when it would otherwise be unnecessary. */
|
|
|
|
/* gcc has an extension that allows to use a casted lvalue as an lvalue,
|
|
But it doesn't work in C++ with -pedantic - even in the presence of
|
|
__extension__ . We work around this problem by using a reference type. */
|
|
#ifdef __cplusplus
|
|
#define __VA_REF &
|
|
#else
|
|
#define __VA_REF
|
|
#endif
|
|
|
|
#define __va_arg_sh1(AP, TYPE) __extension__ \
|
|
({(sizeof (TYPE) == 1 \
|
|
? ({union {TYPE t; char c;} __t; \
|
|
__asm("" \
|
|
: "=r" (__t.c) \
|
|
: "0" ((((union { int i, j; } *__VA_REF) (AP))++)->i)); \
|
|
__t.t;}) \
|
|
: sizeof (TYPE) == 2 \
|
|
? ({union {TYPE t; short s;} __t; \
|
|
__asm("" \
|
|
: "=r" (__t.s) \
|
|
: "0" ((((union { int i, j; } *__VA_REF) (AP))++)->i)); \
|
|
__t.t;}) \
|
|
: sizeof (TYPE) >= 4 || __LITTLE_ENDIAN_P \
|
|
? (((union { TYPE t; int i;} *__VA_REF) (AP))++)->t \
|
|
: ((union {TYPE t;TYPE u;}*) ((char *)++(int *__VA_REF)(AP) - sizeof (TYPE)))->t);})
|
|
|
|
#ifdef __SH3E_VARG
|
|
|
|
#define __PASS_AS_FLOAT(TYPE_CLASS,SIZE) \
|
|
(TYPE_CLASS == __real_type_class && SIZE == 4)
|
|
|
|
#define __TARGET_SH4_P 0
|
|
|
|
#if defined(__SH4__) || defined(__SH4_SINGLE__)
|
|
#undef __PASS_AS_FLOAT
|
|
#define __PASS_AS_FLOAT(TYPE_CLASS,SIZE) \
|
|
((TYPE_CLASS == __real_type_class && SIZE <= 8) \
|
|
|| (TYPE_CLASS == __complex_type_class && SIZE <= 16))
|
|
#undef __TARGET_SH4_P
|
|
#define __TARGET_SH4_P 1
|
|
#endif
|
|
|
|
#define va_arg(pvar,TYPE) \
|
|
__extension__ \
|
|
({int __type = __builtin_classify_type (* (TYPE *) 0); \
|
|
void * __result_p; \
|
|
if (__PASS_AS_FLOAT (__type, sizeof(TYPE))) \
|
|
{ \
|
|
if ((pvar).__va_next_fp < (pvar).__va_next_fp_limit) \
|
|
{ \
|
|
if (((__type == __real_type_class && sizeof (TYPE) > 4)\
|
|
|| sizeof (TYPE) > 8) \
|
|
&& (((int) (pvar).__va_next_fp ^ (int) (pvar).__va_next_fp_limit)\
|
|
& 4)) \
|
|
(pvar).__va_next_fp++; \
|
|
__result_p = &(pvar).__va_next_fp; \
|
|
} \
|
|
else \
|
|
__result_p = &(pvar).__va_next_stack; \
|
|
} \
|
|
else \
|
|
{ \
|
|
if ((pvar).__va_next_o + ((sizeof (TYPE) + 3) / 4) \
|
|
<= (pvar).__va_next_o_limit) \
|
|
__result_p = &(pvar).__va_next_o; \
|
|
else \
|
|
{ \
|
|
if (sizeof (TYPE) > 4) \
|
|
if (! __TARGET_SH4_P) \
|
|
(pvar).__va_next_o = (pvar).__va_next_o_limit; \
|
|
\
|
|
__result_p = &(pvar).__va_next_stack; \
|
|
} \
|
|
} \
|
|
__va_arg_sh1(*(void **)__result_p, TYPE);})
|
|
|
|
#else /* ! SH3E */
|
|
|
|
#define va_arg(AP, TYPE) __va_arg_sh1((AP), TYPE)
|
|
|
|
#endif /* SH3E */
|
|
|
|
/* Copy __gnuc_va_list into another variable of this type. */
|
|
#define __va_copy(dest, src) ((dest) = (src))
|
|
|
|
#endif /* defined (_STDARG_H) || defined (_VARARGS_H) */
|
|
|