Initial revision

From-SVN: r16981

diff --git a/gcc/ginclude/va-mips.h.hold b/gcc/ginclude/va-mips.h.hold
new file mode 100644 (file)
index 0000000..c8c84ee
--- /dev/null
+++ b/gcc/ginclude/va-mips.h.hold
@@ -0,0 +1,211 @@
+/* ---------------------------------------- */
+/*           VARARGS  for MIPS/GNU CC       */
+/*                                          */
+/*                                          */
+/*                                          */
+/*                                          */
+/* ---------------------------------------- */
+
+
+/* These macros implement varargs for GNU C--either traditional or ANSI.  */
+
+/* Define __gnuc_va_list.  */
+
+#ifndef __GNUC_VA_LIST
+#define __GNUC_VA_LIST
+#if defined (__mips_eabi) && ! defined (__mips_soft_float)
+
+typedef struct {
+  /* Pointer to FP regs.  */
+  char *__fp_regs;
+  /* Number of FP regs remaining.  */
+  int __fp_left;
+  /* Pointer to GP regs followed by stack parameters.  */
+  char *__gp_regs;
+} __gnuc_va_list;
+
+#ifdef __mips64
+#define __va_reg_size 8
+#else
+#define __va_reg_size 4
+#endif
+
+enum {
+  __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
+};
+
+#else /* ! (defined (__mips_eabi) && ! defined (__mips_soft_float)) */
+
+typedef char * __gnuc_va_list;
+
+#endif /* ! (defined (__mips_eabi) && ! defined (__mips_soft_float)) */
+#endif /* not __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)
+
+/* In GCC version 2, we want an ellipsis at the end of the declaration
+   of the argument list.  GCC version 1 can't parse it.  */
+
+#if __GNUC__ > 1
+#define __va_ellipsis ...
+#else
+#define __va_ellipsis
+#endif
+
+#ifdef __mips64
+#define __va_rounded_size(__TYPE)  \
+  (((sizeof (__TYPE) + 8 - 1) / 8) * 8)
+#else
+#define __va_rounded_size(__TYPE)  \
+  (((sizeof (__TYPE) + sizeof (int) - 1) / sizeof (int)) * sizeof (int))
+#endif
+
+/* Get definitions for _MIPS_SIM_ABI64 etc.  */
+#ifdef _MIPS_SIM
+#include <sgidefs.h>
+#endif
+
+#ifdef _STDARG_H
+#if defined (__mips_eabi) && ! defined (__mips_soft_float)
+#define va_start(__AP, __LASTARG)                                      \
+  (__AP.__gp_regs = ((char *) __builtin_next_arg (__LASTARG)           \
+                    - (__builtin_args_info (2) < 8                     \
+                       ? (8 - __builtin_args_info (2)) * __va_reg_size \
+                       : 0)),                                          \
+   __AP.__fp_left = 8 - __builtin_args_info (3),                       \
+   __AP.__fp_regs = __AP.__gp_regs - __AP.__fp_left * __va_reg_size)
+#else /* ! (defined (__mips_eabi) && ! defined (__mips_soft_float)) */
+#define va_start(__AP, __LASTARG) \
+  (__AP = (__gnuc_va_list) __builtin_next_arg (__LASTARG))
+#endif /* ! (defined (__mips_eabi) && ! defined (__mips_soft_float)) */
+#else /* ! _STDARG_H */
+#define va_alist  __builtin_va_alist
+#ifdef __mips64
+/* This assumes that `long long int' is always a 64 bit type.  */
+#define va_dcl    long long int __builtin_va_alist; __va_ellipsis
+#else
+#define va_dcl    int __builtin_va_alist; __va_ellipsis
+#endif
+#if defined (__mips_eabi) && ! defined (__mips_soft_float)
+#define va_start(__AP)                                                 \
+  (__AP.__gp_regs = ((char *) __builtin_next_arg ()                    \
+                    - (__builtin_args_info (2) < 8                     \
+                       ? (8 - __builtin_args_info (2)) * __va_reg_size \
+                       : 8)),                                          \
+   __AP.__fp_left = 8 - __builtin_args_info (3),                       \
+   __AP.__fp_regs = __AP.__gp_regs - __AP.__fp_left * __va_reg_size)
+/* Need alternate code for _MIPS_SIM_ABI64.  */
+#elif defined(_MIPS_SIM) && (_MIPS_SIM == _MIPS_SIM_ABI64 || _MIPS_SIM == _MIPS_SIM_NABI32)
+#define va_start(__AP)                                                 \
+  (__AP = (__gnuc_va_list) __builtin_next_arg ()                       \
+   + (__builtin_args_info (2) >= 8 ? -8 : 0))
+#else
+#define va_start(__AP)  __AP = (char *) &__builtin_va_alist
+#endif
+#endif /* ! _STDARG_H */
+
+#ifndef va_end
+void va_end (__gnuc_va_list);          /* Defined in libgcc.a */
+#endif
+#define va_end(__AP)   ((void)0)
+
+#if defined (__mips_eabi) && ! defined (__mips_soft_float)
+
+#ifdef __mips64
+#define __va_next_addr(__AP, __type)                                   \
+  ((__builtin_classify_type (*(__type *) 0) == __real_type_class       \
+    && __AP.__fp_left > 0)                                             \
+   ? (--__AP.__fp_left, (__AP.__fp_regs += 8) - 8)                     \
+   : (__AP.__gp_regs += __va_reg_size) - __va_reg_size)
+#else
+#define __va_next_addr(__AP, __type)                                   \
+  ((__builtin_classify_type (*(__type *) 0) == __real_type_class       \
+    && __AP.__fp_left > 0)                                             \
+   ? (--__AP.__fp_left, (__AP.__fp_regs += 8) - 8)                     \
+   : (((__builtin_classify_type (* (__type *) 0) < record_type_class   \
+       && __alignof__ (__type) > 4)                                    \
+       ? __AP.__gp_regs = (__AP.__gp_regs + 8 - 1) & -8),              \
+      (__AP.__gp_regs += __va_reg_size) - __va_reg_size))
+#endif
+
+#ifdef __MIPSEB__
+#define va_arg(__AP, __type)                                           \
+  ((__va_rounded_size (__type) <= __va_reg_size)                       \
+   ? *(__type *) (void *) (__va_next_addr (__AP, __type)               \
+                          + __va_reg_size                              \
+                          - sizeof (__type))                           \
+   : (__builtin_classify_type (*(__type *) 0) >= __record_type_class   \
+      ? **(__type **) (void *) (__va_next_addr (__AP, __type)          \
+                               + __va_reg_size                         \
+                               - sizeof (char *))                      \
+      : *(__type *) (void *) __va_next_addr (__AP, __type)))
+#else
+#define va_arg(__AP, __type)                                           \
+  (__builtin_classify_type (* (__type *) 0) >= __record_type_class     \
+   ? **(__type **) (void *) __va_next_addr (__AP, __type)              \
+   : *(__type *) (void *) __va_next_addr (__AP, __type))
+#endif
+
+#else /* ! (defined (__mips_eabi) && ! defined (__mips_soft_float)) */
+
+/* We cast to void * and then to TYPE * because this avoids
+   a warning about increasing the alignment requirement.  */
+/* The __mips64 cases are reversed from the 32 bit cases, because the standard
+   32 bit calling convention left-aligns all parameters smaller than a word,
+   whereas the __mips64 calling convention does not (and hence they are
+   right aligned).  */
+#ifdef __mips64
+#ifdef __MIPSEB__
+#define va_arg(__AP, __type)                                    \
+  ((__type *) (void *) (__AP = (char *) ((((__PTRDIFF_TYPE__)__AP + 8 - 1) & -8) \
+                                        + __va_rounded_size (__type))))[-1]
+#else
+#define va_arg(__AP, __type)                                    \
+  ((__AP = (char *) ((((__PTRDIFF_TYPE__)__AP + 8 - 1) & -8)   \
+                    + __va_rounded_size (__type))),            \
+   *(__type *) (void *) (__AP - __va_rounded_size (__type)))
+#endif
+
+#else /* not __mips64 */
+
+#ifdef __MIPSEB__
+/* For big-endian machines.  */
+#define va_arg(__AP, __type)                                   \
+  ((__AP = (char *) ((__alignof__ (__type) > 4                 \
+                     ? ((int)__AP + 8 - 1) & -8                \
+                     : ((int)__AP + 4 - 1) & -4)               \
+                    + __va_rounded_size (__type))),            \
+   *(__type *) (void *) (__AP - __va_rounded_size (__type)))
+#else
+/* For little-endian machines.  */
+#define va_arg(__AP, __type)                                               \
+  ((__type *) (void *) (__AP = (char *) ((__alignof__(__type) > 4          \
+                                         ? ((int)__AP + 8 - 1) & -8        \
+                                         : ((int)__AP + 4 - 1) & -4)       \
+                                        + __va_rounded_size(__type))))[-1]
+#endif
+#endif
+#endif /* ! (defined (__mips_eabi) && ! defined (__mips_soft_float)) */
+
+#endif /* defined (_STDARG_H) || defined (_VARARGS_H) */