1
2/* Define __gnuc_va_list. */
3
4#ifndef __GNUC_VA_LIST
5#define __GNUC_VA_LIST
6
7typedef void *__gnuc_va_list;
8#endif /* not __GNUC_VA_LIST */
9
10/* If this is for internal libc use, don't define anything but
11   __gnuc_va_list.  */
12#if defined (_STDARG_H) || defined (_VARARGS_H)
13#if __GNUC__ > 1
14#define __va_ellipsis ...
15#define __gnuc_va_start(AP) ((AP) = (va_list)__builtin_saveregs())
16#else
17#define va_alist __va_a__, __va_b__, __va_c__, __va_d__
18#define __va_ellipsis
19#define __gnuc_va_start(AP)\
20  (AP) = (double *) &__va_a__, &__va_b__, &__va_c__, &__va_d__, \
21  (AP) = (double *)((char *)(AP) + 4)
22#endif /* __GNUC__ > 1 */
23
24/* Call __builtin_next_arg even though we aren't using its value, so that
25   we can verify that LASTARG is correct.  */
26#ifdef _STDARG_H
27#define va_start(AP,LASTARG) \
28  (__builtin_next_arg (LASTARG), __gnuc_va_start (AP))
29#else
30/* The ... causes current_function_varargs to be set in cc1.  */
31#define va_dcl long va_alist; __va_ellipsis
32#define va_start(AP) __gnuc_va_start (AP)
33#endif
34
35#define va_arg(AP,TYPE)						\
36  (*(sizeof(TYPE) > 8 ?						\
37   ((AP = (__gnuc_va_list) ((char *)AP - sizeof (int))),	\
38    (((TYPE *) (void *) (*((int *) (AP))))))			\
39   :((AP =							\
40      (__gnuc_va_list) ((long)((char *)AP - sizeof (TYPE))	\
41			& (sizeof(TYPE) > 4 ? ~0x7 : ~0x3))),	\
42     (((TYPE *) (void *) ((char *)AP + ((8 - sizeof(TYPE)) % 4)))))))
43
44#ifndef va_end
45void va_end (__gnuc_va_list);		/* Defined in libgcc.a */
46#endif
47#define va_end(AP)	((void)0)
48
49/* Copy __gnuc_va_list into another variable of this type.  */
50#define __va_copy(dest, src) (dest) = (src)
51
52#endif /* defined (_STDARG_H) || defined (_VARARGS_H) */
53