From: Craig Burley <burley@gnu.org>
Date: Thu, 14 May 1998 07:24:52 +0000 (+0000)
Subject: [multiple changes]
X-Git-Tag: prereleases/egcs-1.1-prerelease~1307
X-Git-Url: https://gcc.gnu.org/git/?a=commitdiff_plain;ds=sidebyside;h=2b0c2df0c5d278e6e91482cd66e8deebcc8c9ec1;p=gcc.git

[multiple changes]

Sun Apr 26 09:05:50 1998  Craig Burley  <burley@gnu.org>
        * com.c (ffecom_char_enhance_arg_): Wrap the upper bound
        (the PARM_DECL specifying the length of the CHARACTER*(*)
        dummy arg) in a variable_size invocation, to prevent
        dwarf2out.c crashing when compiling code with -g.
Sat Apr 18 05:03:21 1998  Craig Burley  <burley@gnu.org>
        * com.c (ffecom_check_size_overflow_): Ignore overflow
        as well if dummy argument.

From-SVN: r19740
---

diff --git a/gcc/f/com.c b/gcc/f/com.c
index 75b7274ae558..c10d6fef6ff8 100644
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -2027,8 +2027,8 @@ ffecom_check_size_overflow_ (ffesymbol s, tree type, bool dummy)
     return type;
 
   if ((tree_int_cst_sgn (TYPE_SIZE (type)) < 0)
-      || (!dummy && (TREE_INT_CST_HIGH (TYPE_SIZE (type)) != 0))
-      || TREE_OVERFLOW (TYPE_SIZE (type)))
+      || (!dummy && (((TREE_INT_CST_HIGH (TYPE_SIZE (type)) != 0))
+		     || TREE_OVERFLOW (TYPE_SIZE (type)))))
     {
       ffebad_start (FFEBAD_ARRAY_LARGE);
       ffebad_string (ffesymbol_text (s));
@@ -2074,7 +2074,7 @@ ffecom_char_enhance_arg_ (tree *xtype, ffesymbol s)
   if (sz == FFETARGET_charactersizeNONE)
     {
       assert (tlen != NULL_TREE);
-      highval = tlen;
+      highval = variable_size (tlen);
     }
   else
     {