1 /* This is just like the default gvarargs.h
2 except for differences described below. */
4 /* Define __gnuc_va_list. */
10 typedef long long __va_greg
;
11 typedef double __va_freg
;
13 __va_greg
* __va_next_o
; /* next available %o* register */
14 __va_greg
* __va_next_o_limit
; /* past last available %o* register */
15 __va_freg
* __va_next_fp
; /* next available %f* register */
16 __va_freg
* __va_next_fp_limit
; /* last available %f* register */
17 __va_greg
* __va_next_stack
; /* next extended word on stack */
20 #if ! defined (__svr4__) && ! defined (__linux__)
21 /* This has to be a char * to be compatible with Sun.
22 i.e., we have to pass a `va_list' to vsprintf. */
23 typedef char * __gnuc_va_list
;
25 /* This has to be a void * to be compatible with Sun svr4.
26 i.e., we have to pass a `va_list' to vsprintf. */
27 typedef void * __gnuc_va_list
;
29 #endif /* not __arch64__ */
30 #endif /* not __GNUC_VA_LIST */
32 /* If this is for internal libc use, don't define anything but
34 #if defined (_STDARG_H) || defined (_VARARGS_H)
39 #define va_start(AP, LASTARG) \
42 AP.__va_next_o = (__va_greg *) __builtin_saveregs (); \
43 AP.__va_next_o_limit = (AP.__va_next_o + \
44 (__builtin_args_info (0) < 6 ? 6 - __builtin_args_info (0) : 0)); \
45 AP.__va_next_fp = (__va_freg *) AP.__va_next_o_limit; \
46 AP.__va_next_fp_limit = (AP.__va_next_fp + \
47 (__builtin_args_info (1) < 16 ? (16 - __builtin_args_info (1) + 1) / 2 : 0)); \
48 AP.__va_next_stack = (__va_greg *) __builtin_next_arg (LASTARG); \
51 /* Call __builtin_next_arg even though we aren't using its value, so that
52 we can verify that LASTARG is correct. */
53 #ifdef __GCC_NEW_VARARGS__
54 #define va_start(AP, LASTARG) \
55 (__builtin_next_arg (LASTARG), AP = (char *) __builtin_saveregs ())
57 #define va_start(AP, LASTARG) \
58 (__builtin_saveregs (), AP = ((char *) __builtin_next_arg (LASTARG)))
60 #endif /* not __arch64__ */
64 #define va_alist __builtin_va_alist
65 #define va_dcl int __builtin_va_alist;...
68 #define va_start(AP) \
71 AP.__va_next_o = (__va_greg *) __builtin_saveregs (); \
72 AP.__va_next_o_limit = (AP.__va_next_o + \
73 (__builtin_args_info (0) < 6 ? 6 - __builtin_args_info (0) : 0)); \
74 AP.__va_next_fp = (__va_freg *) AP.__va_next_o_limit; \
75 AP.__va_next_fp_limit = (AP.__va_next_fp + \
76 (__builtin_args_info (1) < 16 ? (16 - __builtin_args_info (1) + 1) / 2 : 0)); \
77 AP.__va_next_stack = (__va_greg *) __builtin_next_arg (__builtin_va_alist) \
78 - (__builtin_args_info (0) >= 6 || __builtin_args_info (1) >= 16 ? 1 : 0); \
81 #ifdef __GCC_NEW_VARARGS__
82 #define va_start(AP) ((AP) = (char *) __builtin_saveregs ())
84 #define va_start(AP) \
85 (__builtin_saveregs (), (AP) = ((char *) &__builtin_va_alist))
87 #endif /* not __arch64__ */
92 void va_end (__gnuc_va_list
); /* Defined in libgcc.a */
94 /* Values returned by __builtin_classify_type. */
96 enum __va_type_classes
{
101 __enumeral_type_class
,
102 __boolean_type_class
,
103 __pointer_type_class
,
104 __reference_type_class
,
107 __complex_type_class
,
108 __function_type_class
,
120 #define va_end(pvar) ((void)0)
122 /* Avoid errors if compiling GCC v2 with GCC v1. */
124 #define __extension__
127 /* RECORD_TYPE args passed using the C calling convention are
128 passed by invisible reference. ??? RECORD_TYPE args passed
129 in the stack are made to be word-aligned; for an aggregate that is
130 not word-aligned, we advance the pointer to the first non-reg slot. */
134 #define va_arg(pvar,TYPE) \
136 (*({int __type = __builtin_classify_type (* (TYPE *) 0); \
138 if (__type == __real_type_class) /* float? */ \
141 /* see PASS_IN_REG_P in gcc's sparc.h */ \
142 if (pvar.__va_next_fp < pvar.__va_next_fp_limit \
143 && ((__r = (__va_freg *) (((__va_greg) pvar.__va_next_fp + sizeof (TYPE) - 1) & ~(__va_greg) (sizeof (TYPE) - 1))) \
144 < pvar.__va_next_fp_limit)) \
146 pvar.__va_next_fp = __r + (sizeof (TYPE) + 7) / 8; \
150 __r = (__va_freg *) pvar.__va_next_stack; \
151 pvar.__va_next_stack += (sizeof (TYPE) + 7) / 8; \
155 else if (__type < __record_type_class) /* integer? */ \
158 if (pvar.__va_next_o < pvar.__va_next_o_limit) \
159 __r = pvar.__va_next_o++; \
161 __r = pvar.__va_next_stack++; \
162 /* adjust for 4 byte ints */ \
163 __result = (char *) __r + 8 - sizeof (TYPE); \
165 else /* aggregate object */ \
168 if (pvar.__va_next_o < pvar.__va_next_o_limit) \
169 __r = (void **) pvar.__va_next_o++; \
171 __r = (void **) pvar.__va_next_stack++; \
174 (TYPE *) __result;}))
176 #else /* not __arch64__ */
178 #define __va_rounded_size(TYPE) \
179 (((sizeof (TYPE) + sizeof (int) - 1) / sizeof (int)) * sizeof (int))
181 /* We don't declare the union member `d' to have type TYPE
182 because that would lose in C++ if TYPE has a constructor. */
183 /* We cast to void * and then to TYPE * because this avoids
184 a warning about increasing the alignment requirement.
185 The casts to char * avoid warnings about invalid pointer arithmetic. */
186 #define va_arg(pvar,TYPE) \
188 (*({((__builtin_classify_type (*(TYPE*) 0) >= __record_type_class \
189 || (__builtin_classify_type (*(TYPE*) 0) == __real_type_class \
190 && sizeof (TYPE) == 16)) \
191 ? ((pvar) = (char *)(pvar) + __va_rounded_size (TYPE *), \
192 *(TYPE **) (void *) ((char *)(pvar) - __va_rounded_size (TYPE *))) \
193 : __va_rounded_size (TYPE) == 8 \
194 ? ({ union {char __d[sizeof (TYPE)]; int __i[2];} __u; \
195 __u.__i[0] = ((int *) (void *) (pvar))[0]; \
196 __u.__i[1] = ((int *) (void *) (pvar))[1]; \
197 (pvar) = (char *)(pvar) + 8; \
198 (TYPE *) (void *) __u.__d; }) \
199 : ((pvar) = (char *)(pvar) + __va_rounded_size (TYPE), \
200 ((TYPE *) (void *) ((char *)(pvar) - __va_rounded_size (TYPE)))));}))
201 #endif /* not __arch64__ */
203 /* Copy __gnuc_va_list into another variable of this type. */
204 #define __va_copy(dest, src) (dest) = (src)
206 #endif /* defined (_STDARG_H) || defined (_VARARGS_H) */