Initial revision
authorRichard Stallman <rms@gnu.org>
Thu, 12 Sep 1991 22:23:09 +0000 (22:23 +0000)
committerRichard Stallman <rms@gnu.org>
Thu, 12 Sep 1991 22:23:09 +0000 (22:23 +0000)
From-SVN: r40

gcc/ginclude/va-sparc.h [new file with mode: 0644]

diff --git a/gcc/ginclude/va-sparc.h b/gcc/ginclude/va-sparc.h
new file mode 100644 (file)
index 0000000..f60f1e5
--- /dev/null
@@ -0,0 +1,42 @@
+/* This is just like the default gvarargs.h
+   except for differences decribed below.  */
+
+/* Make this a macro rather than a typedef, so we can undef any other defn.  */
+#define va_list __va___list
+/* This has to be a char * to be compatible with Sun.
+   i.e., we have to pass a `va_list' to vsprintf.  */
+typedef char * __va___list;
+
+/* 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
+
+#define va_alist  __builtin_va_alist
+/* The ... causes current_function_varargs to be set in cc1.  */
+#define va_dcl    int __builtin_va_alist; __va_ellipsis
+
+/* The difference is to store the stack address in both components
+   instead of in AP itself.  */
+#define va_start(AP)                                           \
+ (__builtin_saveregs (), (AP) = ((char *) &__builtin_va_alist))
+#define va_end(pvar)
+
+#define __va_rounded_size(TYPE)  \
+  (((sizeof (TYPE) + sizeof (int) - 1) / sizeof (int)) * sizeof (int))
+
+/* 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.  */
+#define va_arg(pvar,TYPE)                                      \
+({ TYPE __va_temp;                                             \
+   ((__builtin_classify_type (__va_temp) >= 12)                        \
+    ? ((pvar) += __va_rounded_size (TYPE *),                   \
+       **(TYPE **) (pvar) - __va_rounded_size (TYPE *))                \
+    : ((pvar) += __va_rounded_size (TYPE),             \
+       *((TYPE *) ((pvar) - __va_rounded_size (TYPE)))));})