Based on patch from Michael Gschwind <mikeg@watson.ibm.com>:

        * 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

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index edd78400a33ab2470f9e10d3326c1179c43916be..a9ba8463a1d1af04eb43ced0fd413b68d8770b3f 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,14 @@
+Fri Oct 15 11:02:46 1999  Richard Henderson  <rth@cygnus.com>
+
+       Based on patch from Michael Gschwind <mikeg@watson.ibm.com>:
+       * 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  <ljrittle@acm.org>
 
        * config/t-freebsd: Do not override USER_H.

diff --git a/gcc/config/i370/i370.c b/gcc/config/i370/i370.c
index e6830277fda3d9d9e3810e15845b571a01ea39ad..6957b5de06e270cccf6e25b75d1083591035db3a 100644 (file)
--- 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 45da9fa7c49baea7f7bcee7e939bf91c6b174a15..4ecc07dd29210fd298156407b961f568c760dd2b 100644 (file)
--- 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 ac753633070c801c0da84c0503a64c105fd46782..b80efb9917d725a02f7f96ca8aaaf47ce2731cab 100644 (file)
--- 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 d764eb353a3a616fac95ecf9b5282183ad62afe4..f43a8408ce2188e9b37a13dc00fa82b8224a66e6 100644 (file)
--- 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 22e7bfac6ce401388b7c96f98ebebcc5ccced0bb..370ec09c9c44ae1421235fa0968666dcd6e1f63d 100644 (file)
--- 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 dce90b23fcf8e38aed12ea5acf087c61c592324b..c21638f15887e4a9c65b3fd4fc9fd2b3264a2ada 100644 (file)
--- 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));