1 /* ---------------------------------------- */
2 /* VARARGS for MIPS/GNU CC */
7 /* ---------------------------------------- */
10 /* These macros implement varargs for GNU C--either traditional or ANSI. */
12 /* Define __gnuc_va_list. */
14 #ifndef __GNUC_VA_LIST
15 #define __GNUC_VA_LIST
16 #if defined (__mips_eabi) && ! defined (__mips_soft_float) && ! defined (__mips_single_float)
19 /* Pointer to FP regs. */
21 /* Number of FP regs remaining. */
23 /* Pointer to GP regs followed by stack parameters. */
27 #else /* ! (defined (__mips_eabi) && ! defined (__mips_soft_float) && ! defined (__mips_single_float)) */
29 typedef char * __gnuc_va_list;
31 #endif /* ! (defined (__mips_eabi) && ! defined (__mips_soft_float) && ! defined (__mips_single_float)) */
32 #endif /* not __GNUC_VA_LIST */
34 /* If this is for internal libc use, don't define anything but
36 #if defined (_STDARG_H) || defined (_VARARGS_H)
38 #ifndef _VA_MIPS_H_ENUM
39 #define _VA_MIPS_H_ENUM
45 __enumeral_type_class,
48 __reference_type_class,
52 __function_type_class,
64 /* In GCC version 2, we want an ellipsis at the end of the declaration
65 of the argument list. GCC version 1 can't parse it. */
68 #define __va_ellipsis ...
74 #define __va_rounded_size(__TYPE) \
75 (((sizeof (__TYPE) + 8 - 1) / 8) * 8)
77 #define __va_rounded_size(__TYPE) \
78 (((sizeof (__TYPE) + sizeof (int) - 1) / sizeof (int)) * sizeof (int))
82 #define __va_reg_size 8
84 #define __va_reg_size 4
87 /* Get definitions for _MIPS_SIM_ABI64 etc. */
93 #if defined (__mips_eabi)
94 #if ! defined (__mips_soft_float) && ! defined (__mips_single_float)
96 #define va_start(__AP, __LASTARG) \
97 (__AP.__gp_regs = ((char *) __builtin_next_arg (__LASTARG) \
98 - (__builtin_args_info (2) < 8 \
99 ? (8 - __builtin_args_info (2)) * __va_reg_size \
101 __AP.__fp_left = 8 - __builtin_args_info (3), \
102 __AP.__fp_regs = __AP.__gp_regs - __AP.__fp_left * __va_reg_size)
103 #else /* ! defined (__mips64) */
104 #define va_start(__AP, __LASTARG) \
105 (__AP.__gp_regs = ((char *) __builtin_next_arg (__LASTARG) \
106 - (__builtin_args_info (2) < 8 \
107 ? (8 - __builtin_args_info (2)) * __va_reg_size \
109 __AP.__fp_left = (8 - __builtin_args_info (3)) / 2, \
110 __AP.__fp_regs = __AP.__gp_regs - __AP.__fp_left * 8, \
111 __AP.__fp_regs = (char *) ((int) __AP.__fp_regs & -8))
112 #endif /* ! defined (__mips64) */
113 #else /* ! (! defined (__mips_soft_float) && ! defined (__mips_single_float) ) */
114 #define va_start(__AP, __LASTARG) \
115 (__AP = ((__gnuc_va_list) __builtin_next_arg (__LASTARG) \
116 - (__builtin_args_info (2) >= 8 ? 0 \
117 : (8 - __builtin_args_info (2)) * __va_reg_size)))
118 #endif /* ! (! defined (__mips_soft_float) && ! defined (__mips_single_float) ) */
119 #else /* ! defined (__mips_eabi) */
120 #define va_start(__AP, __LASTARG) \
121 (__AP = (__gnuc_va_list) __builtin_next_arg (__LASTARG))
122 #endif /* ! (defined (__mips_eabi) && ! defined (__mips_soft_float) && ! defined (__mips_single_float)) */
123 #else /* ! _STDARG_H */
124 #define va_alist __builtin_va_alist
126 /* This assumes that `long long int' is always a 64 bit type. */
127 #define va_dcl long long int __builtin_va_alist; __va_ellipsis
129 #define va_dcl int __builtin_va_alist; __va_ellipsis
131 #if defined (__mips_eabi)
132 #if ! defined (__mips_soft_float) && ! defined (__mips_single_float)
134 #define va_start(__AP) \
135 (__AP.__gp_regs = ((char *) __builtin_next_arg () \
136 - (__builtin_args_info (2) < 8 \
137 ? (8 - __builtin_args_info (2)) * __va_reg_size \
139 __AP.__fp_left = 8 - __builtin_args_info (3), \
140 __AP.__fp_regs = __AP.__gp_regs - __AP.__fp_left * __va_reg_size)
141 #else /* ! defined (__mips64) */
142 #define va_start(__AP) \
143 (__AP.__gp_regs = ((char *) __builtin_next_arg () \
144 - (__builtin_args_info (2) < 8 \
145 ? (8 - __builtin_args_info (2)) * __va_reg_size \
147 __AP.__fp_left = (8 - __builtin_args_info (3)) / 2, \
148 __AP.__fp_regs = __AP.__gp_regs - __AP.__fp_left * 8, \
149 __AP.__fp_regs = (char *) ((int) __AP.__fp_regs & -8))
150 #endif /* ! defined (__mips64) */
151 #else /* ! (! defined (__mips_soft_float) && ! defined (__mips_single_float)) */
152 #define va_start(__AP) \
153 (__AP = ((__gnuc_va_list) __builtin_next_arg () \
154 - (__builtin_args_info (2) >= 8 ? __va_reg_size \
155 : (8 - __builtin_args_info (2)) * __va_reg_size)))
156 #endif /* ! (! defined (__mips_soft_float) && ! defined (__mips_single_float)) */
157 /* Need alternate code for _MIPS_SIM_ABI64. */
158 #elif defined(_MIPS_SIM) && (_MIPS_SIM == _MIPS_SIM_ABI64 || _MIPS_SIM == _MIPS_SIM_NABI32)
159 #define va_start(__AP) \
160 (__AP = (__gnuc_va_list) __builtin_next_arg () \
161 + (__builtin_args_info (2) >= 8 ? -8 : 0))
163 #define va_start(__AP) __AP = (char *) &__builtin_va_alist
165 #endif /* ! _STDARG_H */
168 void va_end (__gnuc_va_list); /* Defined in libgcc.a */
170 #define va_end(__AP) ((void)0)
172 #if defined (__mips_eabi)
174 #if ! defined (__mips_soft_float) && ! defined (__mips_single_float)
176 #define __va_next_addr(__AP, __type) \
177 ((__builtin_classify_type (*(__type *) 0) == __real_type_class \
178 && __AP.__fp_left > 0) \
179 ? (--__AP.__fp_left, (__AP.__fp_regs += 8) - 8) \
180 : (__AP.__gp_regs += __va_reg_size) - __va_reg_size)
182 #define __va_next_addr(__AP, __type) \
183 ((__builtin_classify_type (*(__type *) 0) == __real_type_class \
184 && __AP.__fp_left > 0) \
185 ? (--__AP.__fp_left, (__AP.__fp_regs += 8) - 8) \
186 : (((__builtin_classify_type (* (__type *) 0) < __record_type_class \
187 && __alignof__ (__type) > 4) \
188 ? __AP.__gp_regs = (char *) (((int) __AP.__gp_regs + 8 - 1) & -8) \
190 (__builtin_classify_type (* (__type *) 0) >= __record_type_class \
191 ? (__AP.__gp_regs += __va_reg_size) - __va_reg_size \
192 : ((__AP.__gp_regs += __va_rounded_size (__type)) \
193 - __va_rounded_size (__type)))))
195 #else /* ! (! defined (__mips_soft_float) && ! defined (__mips_single_float)) */
197 #define __va_next_addr(__AP, __type) \
198 ((__AP += __va_reg_size) - __va_reg_size)
200 #define __va_next_addr(__AP, __type) \
201 (((__builtin_classify_type (* (__type *) 0) < __record_type_class \
202 && __alignof__ (__type) > 4) \
203 ? __AP = (char *) (((__PTRDIFF_TYPE__) __AP + 8 - 1) & -8) \
205 (__builtin_classify_type (* (__type *) 0) >= __record_type_class \
206 ? (__AP += __va_reg_size) - __va_reg_size \
207 : ((__AP += __va_rounded_size (__type)) \
208 - __va_rounded_size (__type))))
210 #endif /* ! (! defined (__mips_soft_float) && ! defined (__mips_single_float)) */
213 #define va_arg(__AP, __type) \
214 ((__va_rounded_size (__type) <= __va_reg_size) \
215 ? *(__type *) (void *) (__va_next_addr (__AP, __type) \
218 : (__builtin_classify_type (*(__type *) 0) >= __record_type_class \
219 ? **(__type **) (void *) (__va_next_addr (__AP, __type) \
222 : *(__type *) (void *) __va_next_addr (__AP, __type)))
224 #define va_arg(__AP, __type) \
225 ((__va_rounded_size (__type) <= __va_reg_size) \
226 ? *(__type *) (void *) __va_next_addr (__AP, __type) \
227 : (__builtin_classify_type (* (__type *) 0) >= __record_type_class \
228 ? **(__type **) (void *) __va_next_addr (__AP, __type) \
229 : *(__type *) (void *) __va_next_addr (__AP, __type)))
232 #else /* ! defined (__mips_eabi) */
234 /* We cast to void * and then to TYPE * because this avoids
235 a warning about increasing the alignment requirement. */
236 /* The __mips64 cases are reversed from the 32 bit cases, because the standard
237 32 bit calling convention left-aligns all parameters smaller than a word,
238 whereas the __mips64 calling convention does not (and hence they are
242 #define va_arg(__AP, __type) \
243 ((__type *) (void *) (__AP = (char *) \
244 ((((__PTRDIFF_TYPE__)__AP + 8 - 1) & -8) \
245 + __va_rounded_size (__type))))[-1]
247 #define va_arg(__AP, __type) \
248 ((__AP = (char *) ((((__PTRDIFF_TYPE__)__AP + 8 - 1) & -8) \
249 + __va_rounded_size (__type))), \
250 *(__type *) (void *) (__AP - __va_rounded_size (__type)))
253 #else /* not __mips64 */
256 /* For big-endian machines. */
257 #define va_arg(__AP, __type) \
258 ((__AP = (char *) ((__alignof__ (__type) > 4 \
259 ? ((__PTRDIFF_TYPE__)__AP + 8 - 1) & -8 \
260 : ((__PTRDIFF_TYPE__)__AP + 4 - 1) & -4) \
261 + __va_rounded_size (__type))), \
262 *(__type *) (void *) (__AP - __va_rounded_size (__type)))
264 /* For little-endian machines. */
265 #define va_arg(__AP, __type) \
266 ((__type *) (void *) (__AP = (char *) ((__alignof__(__type) > 4 \
267 ? ((__PTRDIFF_TYPE__)__AP + 8 - 1) & -8 \
268 : ((__PTRDIFF_TYPE__)__AP + 4 - 1) & -4) \
269 + __va_rounded_size(__type))))[-1]
272 #endif /* ! defined (__mips_eabi) */
274 /* Copy __gnuc_va_list into another variable of this type. */
275 #define __va_copy(dest, src) (dest) = (src)
277 #endif /* defined (_STDARG_H) || defined (_VARARGS_H) */