| 1 | /* GNU C varargs and stdargs support for the DEC Alpha. */ |
|---|
| 2 | |
|---|
| 3 | /* Note: We must use the name __builtin_savregs. GCC attaches special |
|---|
| 4 | significance to that name. In particular, regardless of where in a |
|---|
| 5 | function __builtin_saveregs is called, GCC moves the call up to the |
|---|
| 6 | very start of the function. */ |
|---|
| 7 | |
|---|
| 8 | /* Define __gnuc_va_list. */ |
|---|
| 9 | |
|---|
| 10 | #ifndef __GNUC_VA_LIST |
|---|
| 11 | #define __GNUC_VA_LIST |
|---|
| 12 | |
|---|
| 13 | typedef struct { |
|---|
| 14 | char *__base; /* Pointer to first integer register. */ |
|---|
| 15 | int __offset; /* Byte offset of args so far. */ |
|---|
| 16 | } __gnuc_va_list; |
|---|
| 17 | #endif /* not __GNUC_VA_LIST */ |
|---|
| 18 | |
|---|
| 19 | /* If this is for internal libc use, don't define anything but |
|---|
| 20 | __gnuc_va_list. */ |
|---|
| 21 | #if defined (_STDARG_H) || defined (_VARARGS_H) |
|---|
| 22 | |
|---|
| 23 | #define va_list __gnuc_va_list |
|---|
| 24 | #define _VA_LIST |
|---|
| 25 | #define _VA_LIST_ |
|---|
| 26 | |
|---|
| 27 | #if !defined(_STDARG_H) |
|---|
| 28 | |
|---|
| 29 | /* varargs support */ |
|---|
| 30 | #define va_alist __builtin_va_alist |
|---|
| 31 | #define va_dcl int __builtin_va_alist;... |
|---|
| 32 | #define va_start(pvar) ((pvar) = * (__gnuc_va_list *) __builtin_saveregs ()) |
|---|
| 33 | |
|---|
| 34 | #else /* STDARG.H */ |
|---|
| 35 | |
|---|
| 36 | /* ANSI alternative. */ |
|---|
| 37 | |
|---|
| 38 | /* Call __builtin_next_arg even though we aren't using its value, so that |
|---|
| 39 | we can verify that firstarg is correct. */ |
|---|
| 40 | #define va_start(pvar, firstarg) \ |
|---|
| 41 | (__builtin_next_arg (firstarg), \ |
|---|
| 42 | (pvar) = *(__gnuc_va_list *) __builtin_saveregs ()) |
|---|
| 43 | |
|---|
| 44 | #endif /* _STDARG_H */ |
|---|
| 45 | |
|---|
| 46 | #ifndef va_end |
|---|
| 47 | |
|---|
| 48 | #define va_end(__va) ((void) 0) |
|---|
| 49 | |
|---|
| 50 | /* Values returned by __builtin_classify_type. */ |
|---|
| 51 | |
|---|
| 52 | enum { |
|---|
| 53 | __no_type_class = -1, |
|---|
| 54 | __void_type_class, |
|---|
| 55 | __integer_type_class, |
|---|
| 56 | __char_type_class, |
|---|
| 57 | __enumeral_type_class, |
|---|
| 58 | __boolean_type_class, |
|---|
| 59 | __pointer_type_class, |
|---|
| 60 | __reference_type_class, |
|---|
| 61 | __offset_type_class, |
|---|
| 62 | __real_type_class, |
|---|
| 63 | __complex_type_class, |
|---|
| 64 | __function_type_class, |
|---|
| 65 | __method_type_class, |
|---|
| 66 | __record_type_class, |
|---|
| 67 | __union_type_class, |
|---|
| 68 | __array_type_class, |
|---|
| 69 | __string_type_class, |
|---|
| 70 | __set_type_class, |
|---|
| 71 | __file_type_class, |
|---|
| 72 | __lang_type_class |
|---|
| 73 | }; |
|---|
| 74 | |
|---|
| 75 | #endif |
|---|
| 76 | |
|---|
| 77 | /* Note that parameters are always aligned at least to a word boundary |
|---|
| 78 | (when passed) regardless of what GCC's __alignof__ operator says. */ |
|---|
| 79 | |
|---|
| 80 | /* Avoid errors if compiling GCC v2 with GCC v1. */ |
|---|
| 81 | #if __GNUC__ == 1 |
|---|
| 82 | #define __extension__ |
|---|
| 83 | #endif |
|---|
| 84 | |
|---|
| 85 | /* Get the size of a type in bytes, rounded up to an integral number |
|---|
| 86 | of words. */ |
|---|
| 87 | |
|---|
| 88 | #define __va_tsize(__type) \ |
|---|
| 89 | (((sizeof (__type) + __extension__ sizeof (long long) - 1) \ |
|---|
| 90 | / __extension__ sizeof (long long)) * __extension__ sizeof (long long)) |
|---|
| 91 | |
|---|
| 92 | #define va_arg(__va, __type) \ |
|---|
| 93 | (*(((__va).__offset += __va_tsize (__type)), \ |
|---|
| 94 | (__type *)(void *)((__va).__base + (__va).__offset \ |
|---|
| 95 | - (((__builtin_classify_type (* (__type *) 0) \ |
|---|
| 96 | == __real_type_class) && (__va).__offset <= (6 * 8)) \ |
|---|
| 97 | ? (6 * 8) + 8 : __va_tsize (__type))))) |
|---|
| 98 | |
|---|
| 99 | #endif /* defined (_STDARG_H) || defined (_VARARGS_H) */ |
|---|
| 100 | |
|---|
