404a0fea46
builds on Linux with gcc 2 and 4, but the images do even run. :-) Not tested on BeOS. * Removed stddef.h and stdarg.h. They are provided by the compiler. * Adjusted size_t.h, wchar_t.h, and wchar.h accordingly. * Made stdio.h avoid gcc 2.95.3's fixincludes hack stdio_va_list * Added gcc 2.95.3 headers to the repository. They are used instead of the headers of the gcc 2.95.3's we use to compile Haiku with. Should avoid build problems with the BeOS native compiler. For sake of personal recreation you can rebuild the cross gcc 2.95.3, but the only thing that changed is its header directory (lib/gcc-lib/.../include), which isn't used anymore. Replacing it with headers/build/gcc-2.95.3 should have the same effect as rebuilding, BTW. git-svn-id: file:///srv/svn/repos/haiku/haiku/trunk@24413 a95241bf-73f2-0310-859d-f6bbb57e9c96
256 lines
8.0 KiB
C
256 lines
8.0 KiB
C
/* 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 {
|
||
unsigned 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. */
|
||
unsigned 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,OFS,TYPE) \
|
||
((TYPE *) (void *) (&(((__va_regsave_t *) \
|
||
(AP)->reg_save_area)->__fp_save[OFS])))
|
||
|
||
#define __VA_GP_REGSAVE(AP,OFS,TYPE) \
|
||
((TYPE *) (void *) (&(((__va_regsave_t *) \
|
||
(AP)->reg_save_area)->__gp_save[OFS])))
|
||
|
||
/* 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. */
|
||
|
||
#define __va_start_common(AP, FAKE) \
|
||
__builtin_memcpy ((AP), __builtin_saveregs (), sizeof(__gnuc_va_list))
|
||
|
||
#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_aggregate_p(TYPE) (__builtin_classify_type(*(TYPE *)0) >= 12)
|
||
#define __va_size(TYPE) ((sizeof(TYPE) + sizeof (long) - 1) / sizeof (long))
|
||
|
||
/* This symbol isn't defined. It is used to flag type promotion violations
|
||
at link time. We can only do this when optimizing. Use __builtin_trap
|
||
instead of abort so that we don't require a prototype for abort.
|
||
|
||
__builtin_trap stuff is not available on the gcc-2.95 branch, so we just
|
||
avoid calling it for now. */
|
||
|
||
#ifdef __OPTIMIZE__
|
||
extern void __va_arg_type_violation(void) __attribute__((__noreturn__));
|
||
#else
|
||
#define __va_arg_type_violation()
|
||
#endif
|
||
|
||
#define va_arg(AP,TYPE) \
|
||
__extension__ (*({ \
|
||
register TYPE *__ptr; \
|
||
\
|
||
if (__va_float_p (TYPE) && sizeof (TYPE) < 16) \
|
||
{ \
|
||
unsigned char __fpr = (AP)->fpr; \
|
||
if (__fpr < 8) \
|
||
{ \
|
||
__ptr = __VA_FP_REGSAVE (AP, __fpr, TYPE); \
|
||
(AP)->fpr = __fpr + 1; \
|
||
} \
|
||
else if (sizeof (TYPE) == 8) \
|
||
{ \
|
||
unsigned long __addr = (unsigned long) (__va_overflow (AP)); \
|
||
__ptr = (TYPE *)((__addr + 7) & -8); \
|
||
__va_overflow (AP) = (char *)(__ptr + 1); \
|
||
} \
|
||
else \
|
||
{ \
|
||
/* float is promoted to double. */ \
|
||
__va_arg_type_violation (); \
|
||
} \
|
||
} \
|
||
\
|
||
/* Aggregates and long doubles are passed by reference. */ \
|
||
else if (__va_aggregate_p (TYPE) || __va_float_p (TYPE)) \
|
||
{ \
|
||
unsigned char __gpr = (AP)->gpr; \
|
||
if (__gpr < 8) \
|
||
{ \
|
||
__ptr = * __VA_GP_REGSAVE (AP, __gpr, TYPE *); \
|
||
(AP)->gpr = __gpr + 1; \
|
||
} \
|
||
else \
|
||
{ \
|
||
TYPE **__pptr = (TYPE **) (__va_overflow (AP)); \
|
||
__ptr = * __pptr; \
|
||
__va_overflow (AP) = (char *) (__pptr + 1); \
|
||
} \
|
||
} \
|
||
\
|
||
/* Only integrals remaining. */ \
|
||
else \
|
||
{ \
|
||
/* longlong is aligned. */ \
|
||
if (sizeof (TYPE) == 8) \
|
||
{ \
|
||
unsigned char __gpr = (AP)->gpr; \
|
||
if (__gpr < 7) \
|
||
{ \
|
||
__gpr += __gpr & 1; \
|
||
__ptr = __VA_GP_REGSAVE (AP, __gpr, TYPE); \
|
||
(AP)->gpr = __gpr + 2; \
|
||
} \
|
||
else \
|
||
{ \
|
||
unsigned long __addr = (unsigned long) (__va_overflow (AP)); \
|
||
__ptr = (TYPE *)((__addr + 7) & -8); \
|
||
(AP)->gpr = 8; \
|
||
__va_overflow (AP) = (char *)(__ptr + 1); \
|
||
} \
|
||
} \
|
||
else if (sizeof (TYPE) == 4) \
|
||
{ \
|
||
unsigned char __gpr = (AP)->gpr; \
|
||
if (__gpr < 8) \
|
||
{ \
|
||
__ptr = __VA_GP_REGSAVE (AP, __gpr, TYPE); \
|
||
(AP)->gpr = __gpr + 1; \
|
||
} \
|
||
else \
|
||
{ \
|
||
__ptr = (TYPE *) __va_overflow (AP); \
|
||
__va_overflow (AP) = (char *)(__ptr + 1); \
|
||
} \
|
||
} \
|
||
else \
|
||
{ \
|
||
/* Everything else was promoted to int. */ \
|
||
__va_arg_type_violation (); \
|
||
} \
|
||
} \
|
||
__ptr; \
|
||
}))
|
||
|
||
#define va_end(AP) ((void)0)
|
||
|
||
/* Copy __gnuc_va_list into another variable of this type. */
|
||
#define __va_copy(dest, src) *(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 */
|