git://gcc.gnu.org / gcc.git / blame
| Commit | Line | Data |
|---|---|---|
| 8c5ca3b9 DE |
1 | /* GNU C stdarg/varargs support for the M32R */ |
| 2 | ||
| 3 | /* Define __gnuc_va_list. */ | |
| 4 | #ifndef __GNUC_VA_LIST | |
| 5 | #define __GNUC_VA_LIST | |
| 6 | typedef void *__gnuc_va_list; | |
| 7 | #endif /* not __GNUC_VA_LIST */ | |
| 8 | ||
| 9 | /* If this is for internal libc use, don't define anything but | |
| 10 | __gnuc_va_list. */ | |
| 11 | #if defined (_STDARG_H) || defined (_VARARGS_H) | |
| 12 | ||
| 13 | /* Common code for va_start for both varargs and stdarg. */ | |
| 14 | ||
| 15 | #define __va_rounded_size(TYPE) \ | |
| 16 | (((sizeof (TYPE) + sizeof (int) - 1) / sizeof (int)) * sizeof (int)) | |
| 17 | ||
| 18 | #ifdef _STDARG_H /* stdarg.h support */ | |
| 19 | ||
| 20 | /* Calling __builtin_next_arg gives the proper error message if LASTARG is | |
| 21 | not indeed the last argument. */ | |
| 22 | #define va_start(AP, LASTARG) \ | |
| 23 | (AP = ((__gnuc_va_list) __builtin_next_arg (LASTARG))) | |
| 24 | ||
| 25 | #else /* varargs.h support */ | |
| 26 | ||
| 27 | #define va_alist __builtin_va_alist | |
| 28 | /* The ... causes current_function_varargs to be set in cc1. */ | |
| 29 | #define va_dcl int __builtin_va_alist; ... | |
| 30 | #define va_start(AP) AP=(char *) &__builtin_va_alist | |
| 31 | ||
| 32 | #endif /* _STDARG_H */ | |
| 33 | ||
| 34 | /* Nothing needs to be done to end varargs/stdarg processing */ | |
| 35 | #define va_end(AP) ((void) 0) | |
| 36 | ||
| 37 | /* Values returned by __builtin_classify_type. */ | |
| 38 | enum __type_class | |
| 39 | { | |
| 40 | __no_type_class = -1, | |
| 41 | __void_type_class, | |
| 42 | __integer_type_class, | |
| 43 | __char_type_class, | |
| 44 | __enumeral_type_class, | |
| 45 | __boolean_type_class, | |
| 46 | __pointer_type_class, | |
| 47 | __reference_type_class, | |
| 48 | __offset_type_class, | |
| 49 | __real_type_class, | |
| 50 | __complex_type_class, | |
| 51 | __function_type_class, | |
| 52 | __method_type_class, | |
| 53 | __record_type_class, | |
| 54 | __union_type_class, | |
| 55 | __array_type_class, | |
| 56 | __string_type_class, | |
| 57 | __set_type_class, | |
| 58 | __file_type_class, | |
| 59 | __lang_type_class | |
| 60 | }; | |
| 61 | ||
| 62 | /* Return whether a type is passed by reference. */ | |
| 63 | #define __va_by_reference_p(TYPE) (sizeof (TYPE) > 8) | |
| 64 | ||
| 65 | #define va_arg(AP,TYPE) \ | |
| 66 | __extension__ (*({ \ | |
| 67 | register TYPE *__ptr; \ | |
| 68 | \ | |
| 69 | if (__va_by_reference_p (TYPE)) \ | |
| 70 | { \ | |
| 71 | __ptr = *(TYPE **)(void *) (AP); \ | |
| 72 | (AP) = (__gnuc_va_list) ((char *) (AP) + sizeof (void *)); \ | |
| 73 | } \ | |
| 74 | else \ | |
| 75 | { \ | |
| 76 | __ptr = (TYPE *)(void *) \ | |
| 77 | ((char *) (AP) + (sizeof (TYPE) < __va_rounded_size (char) \ | |
| 78 | ? __va_rounded_size (TYPE) - sizeof (TYPE) \ | |
| 79 | : 0)); \ | |
| 80 | (AP) = (__gnuc_va_list) ((char *) (AP) + __va_rounded_size (TYPE)); \ | |
| 81 | } \ | |
| 82 | \ | |
| 83 | __ptr; \ | |
| 84 | })) | |
| 85 | ||
| 86 | #endif /* defined (_STDARG_H) || defined (_VARARGS_H) */ |