1 | |
---|
2 | /* Define __gnuc_va_list. */ |
---|
3 | |
---|
4 | #ifndef __GNUC_VA_LIST |
---|
5 | #define __GNUC_VA_LIST |
---|
6 | |
---|
7 | typedef double *__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 |
---|
45 | void va_end (__gnuc_va_list); /* Defined in libgcc.a */ |
---|
46 | #endif |
---|
47 | #define va_end(AP) ((void)0) |
---|
48 | |
---|
49 | #endif /* defined (_STDARG_H) || defined (_VARARGS_H) */ |
---|