diff options
| author | Bud Davis <bdavis9659@comcast.net> | 2003-03-22 13:01:08 +0000 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2003-03-22 13:01:08 +0000 |
| commit | 6dd0f30b36df25e1e9b01f1253e08ae2d341b080 (patch) | |
| tree | 8a407bae36a52fb2123c2e1a020e6fee6d41df06 /gcc/f/ste.c | |
| parent | dcde977582f92d6e8e6b0df8862504be064dd3ec (diff) | |
| download | gcc-6dd0f30b36df25e1e9b01f1253e08ae2d341b080.zip gcc-6dd0f30b36df25e1e9b01f1253e08ae2d341b080.tar.gz gcc-6dd0f30b36df25e1e9b01f1253e08ae2d341b080.tar.bz2 | |
com.c (ffecom_constantunion_with_type): New function.
2003-03-22 Bud Davis <bdavis9659@comcast.net>
* com.c (ffecom_constantunion_with_type): New function.
* com.h (ffecom_constantunion_with_type): Declare.
* stc.c (ffestc_R810): Check for kind type.
* ste.c (ffeste_R810): Use ffecom_constantunion_with_type
to discern SELECT CASE variables.
From-SVN: r64709
Diffstat (limited to 'gcc/f/ste.c')
| -rw-r--r-- | gcc/f/ste.c | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/gcc/f/ste.c b/gcc/f/ste.c index 7b9b86c..7d625cb 100644 --- a/gcc/f/ste.c +++ b/gcc/f/ste.c @@ -2711,21 +2711,18 @@ ffeste_R810 (ffestw block, unsigned long casenum) do { texprlow = (c->low == NULL) ? NULL_TREE - : ffecom_constantunion (&ffebld_constant_union (c->low), s->type, - s->kindtype, - ffecom_tree_type[s->type][s->kindtype]); + : ffecom_constantunion_with_type (&ffebld_constant_union (c->low), + ffecom_tree_type[s->type][s->kindtype],c->low->consttype); if (c->low != c->high) { texprhigh = (c->high == NULL) ? NULL_TREE - : ffecom_constantunion (&ffebld_constant_union (c->high), - s->type, s->kindtype, - ffecom_tree_type[s->type][s->kindtype]); + : ffecom_constantunion_with_type (&ffebld_constant_union (c->high), + ffecom_tree_type[s->type][s->kindtype],c->high->consttype); pushok = pushcase_range (texprlow, texprhigh, convert, tlabel, &duplicate); } else pushok = pushcase (texprlow, convert, tlabel, &duplicate); - assert((pushok != 2) || (pushok != 0)); if (pushok == 2) { ffebad_start_msg ("SELECT (at %0) has duplicate cases -- check integer overflow of CASE(s)", |