1 /* This is just like the default gvarargs.h
2 except for differences described below. */
4 /* Define __gnuc_va_list. */
11 typedef long __va_greg
;
12 typedef double __va_freg
;
15 __va_greg
* __va_next_o
; /* next available register */
16 __va_greg
* __va_next_o_limit
; /* past last available register */
17 __va_freg
* __va_next_fp
; /* next available fp register */
18 __va_freg
* __va_next_fp_limit
; /* last available fp register */
19 __va_greg
* __va_next_stack
; /* next extended word on stack */
24 typedef void *__gnuc_va_list
;
26 #define __va_rounded_size(TYPE) \
27 (((sizeof (TYPE) + sizeof (int) - 1) / sizeof (int)) * sizeof (int))
31 #endif /* __GNUC_VA_LIST */
33 /* If this is for internal libc use, don't define anything but
35 #if defined (_STDARG_H) || defined (_VARARGS_H)
41 #define va_start(AP, LASTARG) \
44 AP.__va_next_fp = (__va_freg *) __builtin_saveregs (); \
45 AP.__va_next_fp_limit = (AP.__va_next_fp + \
46 (__builtin_args_info (1) < 8 ? 8 - __builtin_args_info (1) : 0)); \
47 AP.__va_next_o = (__va_greg *) AP.__va_next_fp_limit; \
48 AP.__va_next_o_limit = (AP.__va_next_o + \
49 (__builtin_args_info (0) < 4 ? 4 - __builtin_args_info (0) : 0)); \
50 AP.__va_next_stack = (__va_greg *) __builtin_next_arg (LASTARG); \
55 #define va_start(AP, LASTARG) \
56 (AP = ((__gnuc_va_list) __builtin_next_arg (LASTARG)))
60 #else /* _VARARGS_H */
62 #define va_alist __builtin_va_alist
63 #define va_dcl int __builtin_va_alist;...
67 #define va_start(AP) \
70 AP.__va_next_fp = (__va_freg *) __builtin_saveregs (); \
71 AP.__va_next_fp_limit = (AP.__va_next_fp + \
72 (__builtin_args_info (1) < 8 ? 8 - __builtin_args_info (1) : 0)); \
73 AP.__va_next_o = (__va_greg *) AP.__va_next_fp_limit; \
74 AP.__va_next_o_limit = (AP.__va_next_o + \
75 (__builtin_args_info (0) < 4 ? 4 - __builtin_args_info (0) : 0)); \
76 AP.__va_next_stack = (__va_greg *) __builtin_next_arg (__builtin_va_alist) \
77 - (__builtin_args_info (0) >= 4 || __builtin_args_info (1) >= 8 ? 1 : 0); \
82 #define va_start(AP) AP=(char *) &__builtin_va_alist
89 void va_end (__gnuc_va_list
); /* Defined in libgcc.a */
91 /* Values returned by __builtin_classify_type. */
93 enum __va_type_classes
{
98 __enumeral_type_class
,
100 __pointer_type_class
,
101 __reference_type_class
,
104 __complex_type_class
,
105 __function_type_class
,
117 #define va_end(pvar) ((void)0)
119 /* RECORD_TYPE args passed using the C calling convention are
120 passed by invisible reference. ??? RECORD_TYPE args passed
121 in the stack are made to be word-aligned; for an aggregate that is
122 not word-aligned, we advance the pointer to the first non-reg slot. */
126 #ifdef __LITTLE_ENDIAN__
128 #define va_arg(pvar,TYPE) \
130 (*({int __type = __builtin_classify_type (* (TYPE *) 0); \
132 if (__type == __real_type_class && sizeof(TYPE) == 4) \
136 if (pvar.__va_next_fp < pvar.__va_next_fp_limit) \
137 __r = (__va_freg *) pvar.__va_next_fp++; \
139 __r = (__va_freg *) pvar.__va_next_stack++; \
140 __result = (char *) __r; \
145 if (pvar.__va_next_o + ((sizeof (TYPE) + 3) / 4) \
146 <= pvar.__va_next_o_limit) \
148 _r = pvar.__va_next_o; \
149 pvar.__va_next_o += (sizeof (TYPE) + 3) / 4; \
153 _r = pvar.__va_next_stack; \
154 pvar.__va_next_stack += (sizeof (TYPE) + 3) / 4; \
156 __result = (char *) _r; \
158 (TYPE *) __result;}))
160 #else /* ! __LITTLE_ENDIAN__ */
162 #define va_arg(pvar,TYPE) \
164 (*({int __type = __builtin_classify_type (* (TYPE *) 0); \
166 if (__type == __real_type_class && sizeof(TYPE) == 4) \
170 if (pvar.__va_next_fp < pvar.__va_next_fp_limit) \
171 __r = (__va_freg *) pvar.__va_next_fp++; \
173 __r = (__va_freg *) pvar.__va_next_stack++; \
174 __result = (char *) __r; \
179 if (pvar.__va_next_o + ((sizeof (TYPE) + 3) / 4) \
180 <= pvar.__va_next_o_limit) \
182 pvar.__va_next_o += (sizeof (TYPE) + 3) / 4; \
183 _r = pvar.__va_next_o; \
187 pvar.__va_next_stack += (sizeof (TYPE) + 3) / 4; \
188 _r = pvar.__va_next_stack; \
190 __result = ((char *) _r \
191 - (sizeof (TYPE) < 4 ? sizeof (TYPE) \
192 : ((sizeof (TYPE) + 3) / 4) * 4)); \
194 (TYPE *) __result;}))
196 #endif /* __LITTLE_ENDIAN__ */
200 #ifdef __LITTLE_ENDIAN__
202 /* This is for little-endian machines; small args are padded upward. */
203 #define va_arg(AP, TYPE) \
204 (AP = (__gnuc_va_list) ((char *) (AP) + __va_rounded_size (TYPE)), \
205 *((TYPE *) (void *) ((char *) (AP) - __va_rounded_size (TYPE))))
207 #else /* ! __LITTLE_ENDIAN__ */
209 /* This is for big-endian machines; small args are padded downward. */
210 #define va_arg(AP, TYPE) \
211 (AP = (__gnuc_va_list) ((char *) (AP) + __va_rounded_size (TYPE)), \
212 *((TYPE *) (void *) ((char *) (AP) \
213 - ((sizeof (TYPE) < __va_rounded_size (char) \
214 ? sizeof (TYPE) : __va_rounded_size (TYPE))))))
216 #endif /* __LITTLE_ENDIAN__ */
220 /* Copy __gnuc_va_list into another variable of this type. */
221 #define __va_copy(dest, src) (dest) = (src)
223 #endif /* defined (_STDARG_H) || defined (_VARARGS_H) */