diff options
| author | Craig Burley <burley@gnu.org> | 1998-05-14 07:24:52 +0000 |
|---|---|---|
| committer | Dave Love <fx@gcc.gnu.org> | 1998-05-14 07:24:52 +0000 |
| commit | 2b0c2df0c5d278e6e91482cd66e8deebcc8c9ec1 (patch) | |
| tree | 66235fb7453f9f53ec5c62d5b8e9b1eff661d9fc | |
| parent | 945beb7c437e0f2d0b50b7794fa5e4c2a33d3f9f (diff) | |
| download | gcc-2b0c2df0c5d278e6e91482cd66e8deebcc8c9ec1.zip gcc-2b0c2df0c5d278e6e91482cd66e8deebcc8c9ec1.tar.gz gcc-2b0c2df0c5d278e6e91482cd66e8deebcc8c9ec1.tar.bz2 | |
[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
| -rw-r--r-- | gcc/f/com.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/f/com.c b/gcc/f/com.c index 75b7274..c10d6fe 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 { |