From 104dfaa8c0bdc7e0538287334bdf8372f1631b2c Mon Sep 17 00:00:00 2001 From: Richard Henderson Date: Fri, 15 Oct 1999 11:07:48 -0700 Subject: [PATCH] Based on patch from Michael Gschwind : * unroll.c (unroll_loop): Cast return value of alloca. * i370/i370.c: Include function.h and toplev.h. (i370_label_scan): Remove c++ commented abort. * i370/i370.h (HANDLE_PRAGMA): Takes three arguments. (ASM_OUTPUT_LABELREF): Fix TOUPPER/else broken 16 Sept. * i370/xm-i370.h (HOST_BITS_PER_LONGLONG): Define. * i370/xm-mvs.h, i370/xm-oe.h: Likewise. From-SVN: r30021 --- gcc/ChangeLog | 11 +++++++++++ gcc/config/i370/i370.c | 4 ++-- gcc/config/i370/i370.h | 8 +++----- gcc/config/i370/xm-i370.h | 1 + gcc/config/i370/xm-mvs.h | 1 + gcc/config/i370/xm-oe.h | 1 + gcc/unroll.c | 2 +- 7 files changed, 20 insertions(+), 8 deletions(-) diff --git a/gcc/ChangeLog b/gcc/ChangeLog index edd78400a33..a9ba8463a1d 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,14 @@ +Fri Oct 15 11:02:46 1999 Richard Henderson + + Based on patch from Michael Gschwind : + * unroll.c (unroll_loop): Cast return value of alloca. + * i370/i370.c: Include function.h and toplev.h. + (i370_label_scan): Remove c++ commented abort. + * i370/i370.h (HANDLE_PRAGMA): Takes three arguments. + (ASM_OUTPUT_LABELREF): Fix TOUPPER/else broken 16 Sept. + * i370/xm-i370.h (HOST_BITS_PER_LONGLONG): Define. + * i370/xm-mvs.h, i370/xm-oe.h: Likewise. + Fri Oct 15 03:01:01 1999 Loren Rittle * config/t-freebsd: Do not override USER_H. diff --git a/gcc/config/i370/i370.c b/gcc/config/i370/i370.c index e6830277fda..6957b5de06e 100644 --- a/gcc/config/i370/i370.c +++ b/gcc/config/i370/i370.c @@ -33,9 +33,10 @@ Boston, MA 02111-1307, USA. */ #include "insn-flags.h" #include "output.h" #include "insn-attr.h" -/* #include "function.h" */ +#include "function.h" #include "flags.h" #include "recog.h" +#include "toplev.h" extern FILE *asm_out_file; @@ -473,7 +474,6 @@ i370_label_scan (void) last week, and so we punt for now. */ debug_rtx (insn); -// abort(); for (j=0; j < XVECLEN (body, 0); j++) { int labelno; diff --git a/gcc/config/i370/i370.h b/gcc/config/i370/i370.h index 45da9fa7c49..4ecc07dd292 100644 --- a/gcc/config/i370/i370.h +++ b/gcc/config/i370/i370.h @@ -152,7 +152,8 @@ extern int mvs_function_name_length; text can be read. CH is the first character after the #pragma. The result of the expression is the terminating character found (newline or EOF). */ -#define HANDLE_PRAGMA(FILE, NODE) handle_pragma ((FILE), (NODE)) +#define HANDLE_PRAGMA(FILE, ungetc_unused, NODE) \ + handle_pragma ((FILE), (NODE)) #endif /* TARGET_HLASM */ /* Define maximum length of page minus page escape overhead. */ @@ -1137,10 +1138,7 @@ enum reg_class else \ ch = '@'; \ for (bp = temp; *bp; bp++) \ - { \ - *bp = TOUPPER (*bp); \ - else if (*bp == '_') *bp = ch; \ - } \ + *bp = (*bp == '_' ? ch : TOUPPER (*bp)); \ fprintf (FILE, "%s", temp); \ } diff --git a/gcc/config/i370/xm-i370.h b/gcc/config/i370/xm-i370.h index ac753633070..b80efb9917d 100644 --- a/gcc/config/i370/xm-i370.h +++ b/gcc/config/i370/xm-i370.h @@ -31,6 +31,7 @@ Boston, MA 02111-1307, USA. */ #define HOST_BITS_PER_SHORT 16 #define HOST_BITS_PER_INT 32 #define HOST_BITS_PER_LONG 32 +#define HOST_BITS_PER_LONGLONG 64 #define HOST_FLOAT_FORMAT IBM_FLOAT_FORMAT #define HOST_EBCDIC 1 diff --git a/gcc/config/i370/xm-mvs.h b/gcc/config/i370/xm-mvs.h index d764eb353a3..f43a8408ce2 100644 --- a/gcc/config/i370/xm-mvs.h +++ b/gcc/config/i370/xm-mvs.h @@ -31,6 +31,7 @@ Boston, MA 02111-1307, USA. */ #define HOST_BITS_PER_SHORT 16 #define HOST_BITS_PER_INT 32 #define HOST_BITS_PER_LONG 32 +#define HOST_BITS_PER_LONGLONG 64 #define HOST_FLOAT_FORMAT IBM_FLOAT_FORMAT #define HOST_EBCDIC 1 diff --git a/gcc/config/i370/xm-oe.h b/gcc/config/i370/xm-oe.h index 22e7bfac6ce..370ec09c9c4 100644 --- a/gcc/config/i370/xm-oe.h +++ b/gcc/config/i370/xm-oe.h @@ -34,6 +34,7 @@ Boston, MA 02111-1307, USA. */ #define HOST_BITS_PER_SHORT 16 #define HOST_BITS_PER_INT 32 #define HOST_BITS_PER_LONG 32 +#define HOST_BITS_PER_LONGLONG 64 #define HOST_FLOAT_FORMAT IBM_FLOAT_FORMAT #define HOST_EBCDIC 1 diff --git a/gcc/unroll.c b/gcc/unroll.c index dce90b23fcf..c21638f1588 100644 --- a/gcc/unroll.c +++ b/gcc/unroll.c @@ -769,7 +769,7 @@ unroll_loop (loop_end, insn_count, loop_start, end_insert_before, splittable_regs = (rtx *) alloca (maxregnum * sizeof (rtx)); bzero ((char *) splittable_regs, maxregnum * sizeof (rtx)); - derived_regs = alloca (maxregnum); + derived_regs = (char *) alloca (maxregnum); bzero (derived_regs, maxregnum); splittable_regs_updates = (int *) alloca (maxregnum * sizeof (int)); bzero ((char *) splittable_regs_updates, maxregnum * sizeof (int));