summaryrefslogtreecommitdiff
path: root/include/va-sh.h
diff options
context:
space:
mode:
Diffstat (limited to 'include/va-sh.h')
-rw-r--r--include/va-sh.h202
1 files changed, 202 insertions, 0 deletions
diff --git a/include/va-sh.h b/include/va-sh.h
new file mode 100644
index 000000000..d891c171f
--- /dev/null
+++ b/include/va-sh.h
@@ -0,0 +1,202 @@
+/* This is just like the default gvarargs.h
+ except for differences described below. */
+
+/* Define __gnuc_va_list. */
+
+#ifndef __GNUC_VA_LIST
+#define __GNUC_VA_LIST
+
+#ifdef __SH3E__
+
+typedef long __va_greg;
+typedef double __va_freg;
+
+typedef struct {
+ __va_greg * __va_next_o; /* next available register */
+ __va_greg * __va_next_o_limit; /* past last available register */
+ __va_freg * __va_next_fp; /* next available fp register */
+ __va_freg * __va_next_fp_limit; /* last available fp register */
+ __va_greg * __va_next_stack; /* next extended word on stack */
+} __gnuc_va_list;
+
+#else /* ! SH3E */
+
+typedef void *__gnuc_va_list;
+
+#endif /* ! SH3E */
+
+#endif /* __GNUC_VA_LIST */
+
+/* If this is for internal libc use, don't define anything but
+ __gnuc_va_list. */
+#if defined (_STDARG_H) || defined (_VARARGS_H)
+
+#ifdef _STDARG_H
+
+#ifdef __SH3E__
+
+#define va_start(AP, LASTARG) \
+__extension__ \
+ ({ \
+ AP.__va_next_fp = (__va_freg *) __builtin_saveregs (); \
+ AP.__va_next_fp_limit = (AP.__va_next_fp + \
+ (__builtin_args_info (1) < 8 ? 8 - __builtin_args_info (1) : 0)); \
+ AP.__va_next_o = (__va_greg *) AP.__va_next_fp_limit; \
+ AP.__va_next_o_limit = (AP.__va_next_o + \
+ (__builtin_args_info (0) < 4 ? 4 - __builtin_args_info (0) : 0)); \
+ AP.__va_next_stack = (__va_greg *) __builtin_next_arg (LASTARG); \
+ })
+
+#else /* ! SH3E */
+
+#define va_start(AP, LASTARG) \
+do { \
+ __builtin_saveregs();\
+ (AP = ((__gnuc_va_list) __builtin_next_arg (LASTARG))); \
+} while (0)
+
+#endif /* ! SH3E */
+
+#else /* _VARARGS_H */
+
+#define va_alist __builtin_va_alist
+#define va_dcl int __builtin_va_alist;...
+
+#ifdef __SH3E__
+
+#define va_start(AP) \
+__extension__ \
+ ({ \
+ AP.__va_next_fp = (__va_freg *) __builtin_saveregs (); \
+ AP.__va_next_fp_limit = (AP.__va_next_fp + \
+ (__builtin_args_info (1) < 8 ? 8 - __builtin_args_info (1) : 0)); \
+ AP.__va_next_o = (__va_greg *) AP.__va_next_fp_limit; \
+ AP.__va_next_o_limit = (AP.__va_next_o + \
+ (__builtin_args_info (0) < 4 ? 4 - __builtin_args_info (0) : 0)); \
+ AP.__va_next_stack = (__va_greg *) __builtin_next_arg (__builtin_va_alist) \
+ - (__builtin_args_info (0) >= 4 || __builtin_args_info (1) >= 8 ? 1 : 0); \
+ })
+
+#else /* ! SH3E */
+
+#define va_start(AP) AP=(char *) &__builtin_va_alist
+
+#endif /* ! SH3E */
+
+#endif /* _STDARG */
+
+#ifndef va_end
+void va_end (__gnuc_va_list); /* Defined in libgcc.a */
+
+/* Values returned by __builtin_classify_type. */
+
+enum __va_type_classes {
+ __no_type_class = -1,
+ __void_type_class,
+ __integer_type_class,
+ __char_type_class,
+ __enumeral_type_class,
+ __boolean_type_class,
+ __pointer_type_class,
+ __reference_type_class,
+ __offset_type_class,
+ __real_type_class,
+ __complex_type_class,
+ __function_type_class,
+ __method_type_class,
+ __record_type_class,
+ __union_type_class,
+ __array_type_class,
+ __string_type_class,
+ __set_type_class,
+ __file_type_class,
+ __lang_type_class
+};
+
+#endif
+#define va_end(pvar) ((void)0)
+
+#ifdef __LITTLE_ENDIAN__
+#define __LITTLE_ENDIAN_P 1
+#else
+#define __LITTLE_ENDIAN_P 0
+#endif
+
+#define __SCALAR_TYPE(TYPE) \
+ ((TYPE) == __integer_type_class \
+ || (TYPE) == __char_type_class \
+ || (TYPE) == __enumeral_type_class)
+
+/* RECORD_TYPE args passed using the C calling convention are
+ passed by invisible reference. ??? RECORD_TYPE args passed
+ in the stack are made to be word-aligned; for an aggregate that is
+ not word-aligned, we advance the pointer to the first non-reg slot. */
+
+ /* When this is a smaller-than-int integer, using
+ auto-increment in the promoted (SImode) is fastest;
+ however, there is no way to express that is C. Therefore,
+ we use an asm.
+ We want the MEM_IN_STRUCT_P bit set in the emitted RTL, therefore we
+ use unions even when it would otherwise be unnecessary. */
+
+#define __va_arg_sh1(AP, TYPE) __extension__ \
+__extension__ \
+({(sizeof (TYPE) == 1 \
+ ? ({union {TYPE t; char c;} __t; \
+ __asm("" \
+ : "=r" (__t.c) \
+ : "0" ((((union { int i, j; } *) (AP))++)->i)); \
+ __t.t;}) \
+ : sizeof (TYPE) == 2 \
+ ? ({union {TYPE t; short s;} __t; \
+ __asm("" \
+ : "=r" (__t.s) \
+ : "0" ((((union { int i, j; } *) (AP))++)->i)); \
+ __t.t;}) \
+ : sizeof (TYPE) >= 4 || __LITTLE_ENDIAN_P \
+ ? (((union { TYPE t; int i;} *) (AP))++)->t \
+ : ((union {TYPE t;TYPE u;}*) ((char *)++(int *)(AP) - sizeof (TYPE)))->t);})
+
+#ifdef __SH3E__
+
+#define __PASS_AS_FLOAT(TYPE_CLASS,SIZE) \
+ (TYPE_CLASS == __real_type_class && SIZE == 4)
+
+#define va_arg(pvar,TYPE) \
+__extension__ \
+({int __type = __builtin_classify_type (* (TYPE *) 0); \
+ void * __result_p; \
+ if (__PASS_AS_FLOAT (__type, sizeof(TYPE))) \
+ { \
+ if (pvar.__va_next_fp < pvar.__va_next_fp_limit) \
+ { \
+ __result_p = &pvar.__va_next_fp; \
+ } \
+ else \
+ __result_p = &pvar.__va_next_stack; \
+ } \
+ else \
+ { \
+ if (pvar.__va_next_o + ((sizeof (TYPE) + 3) / 4) \
+ <= pvar.__va_next_o_limit) \
+ __result_p = &pvar.__va_next_o; \
+ else \
+ { \
+ if (sizeof (TYPE) > 4) \
+ pvar.__va_next_o = pvar.__va_next_o_limit; \
+ \
+ __result_p = &pvar.__va_next_stack; \
+ } \
+ } \
+ __va_arg_sh1(*(void **)__result_p, TYPE);})
+
+#else /* ! SH3E */
+
+#define va_arg(AP, TYPE) __va_arg_sh1((AP), TYPE)
+
+#endif /* SH3E */
+
+/* Copy __gnuc_va_list into another variable of this type. */
+#define __va_copy(dest, src) (dest) = (src)
+
+#endif /* defined (_STDARG_H) || defined (_VARARGS_H) */