fprintf (asmfile, "%s \"%s:", ASM_STABS_OP,
IDENTIFIER_POINTER (DECL_NAME (decl)));
-/* #ifndef DBX_NO_EXTRA_TAGS rms: I think this is no longer needed. */
- /* This section makes absolutely no sense to me. Why would a tag
- ever be needed at this point? The result of this is that any
- structure typedef with the tag omitted is treated as if the
- tag was given to be the same as the typedef name. Probably
- no harm in it, unless the programmer used the same name for
- the tag of a *different* structure. At any rate, Alliant's
- debugger would want the tag output before the typedef, so
- this code still loses. -- hyc */
-
/* Short cut way to output a tag also. */
if ((TREE_CODE (type) == RECORD_TYPE
|| TREE_CODE (type) == UNION_TYPE)
tag_needed = 1;
#endif
}
-/* #endif */
putc ('t', asmfile);
current_sym_code = DBX_TYPE_DECL_STABS_CODE;
} __f_regs;
typedef struct {
-#ifdef __SVR4__
+#if defined(__SVR4__) || defined(__alliant__)
__f_regs __float_regs; long __ireg[12];
#else /* pre-SVR4 */
long __ireg[12]; __f_regs __float_regs;
#define __GNU_VA_LIST /* Field names were properly prefixed with `__'. */
typedef struct {
-#ifdef __SVR4__
+#if defined(__SVR4__) || defined(__alliant__)
unsigned __ireg_used; /* How many int regs consumed 'til now? */
unsigned __freg_used; /* How many flt regs consumed 'til now? */
long *__reg_base; /* Address of where we stored the regs. */
\f
#ifdef L_varargs
#ifdef __i860__
-#ifdef SVR4
+#if defined(SVR4) || defined(__alliant__)
asm (" .text");
asm (" .align 4");
+/* The Alliant needs the added underscore. */
asm (".globl __builtin_saveregs");
asm ("__builtin_saveregs:");
- asm (" andnot 0x0f,%sp,%sp"); /* round down to 16-byte boundary */
+ asm (".globl ___builtin_saveregs");
+asm ("___builtin_saveregs:");
+
+ asm (" andnot 0x0f,%sp,%sp"); /* round down to 16-byte boundary */
asm (" adds -96,%sp,%sp"); /* allocate stack space for reg save
area and also for a new va_list
structure */