diff options
| author | Kaveh R. Ghazi <ghazi@caip.rutgers.edu> | 1998-02-12 23:18:26 +0000 |
|---|---|---|
| committer | Jeff Law <law@gcc.gnu.org> | 1998-02-12 16:18:26 -0700 |
| commit | 567f3d36034ac69ab042945ed545bcc398ebc93b (patch) | |
| tree | 1eb478f06fc9a3bbfdb8e87eb73dde4310ba3b62 /gcc/f/ste.c | |
| parent | c4e8876e9b153cbf6fd7b50b005b43d435163196 (diff) | |
| download | gcc-567f3d36034ac69ab042945ed545bcc398ebc93b.zip gcc-567f3d36034ac69ab042945ed545bcc398ebc93b.tar.gz gcc-567f3d36034ac69ab042945ed545bcc398ebc93b.tar.bz2 | |
com.c (type_for_mode): Add explicit braces to avoid ambiguous `else'.
* com.c (type_for_mode): Add explicit braces to avoid ambiguous `else'.
* expr.c (ffeexpr_type_combine): Likewise.
(ffeexpr_reduce_): Likewise.
(ffeexpr_declare_parenthesized_): Likewise.
* src.c (ffesrc_strcmp_1ns2i): Likewise.
(ffesrc_strcmp_2c): Likewise.
(ffesrc_strncmp_2c): Likewise.
* stb.c (ffestb_halt1_): Likewise.
(ffestb_R90910_): Likewise.
(ffestb_R9109_): Likewise.
* stc.c (ffestc_R544_equiv_): Likewise.
* std.c (ffestd_subr_copy_easy_): Likewise.
(ffestd_R1001dump_): Likewise.
(ffestd_R1001dump_1005_1_): Likewise.
(ffestd_R1001dump_1005_2_): Likewise.
(ffestd_R1001dump_1005_3_): Likewise.
(ffestd_R1001dump_1005_4_): Likewise.
(ffestd_R1001dump_1005_5_): Likewise.
(ffestd_R1001dump_1010_2_): Likewise.
* ste.c (ffeste_R840): Likewise.
* sts.c (ffests_puttext): Likewise.
* symbol.c (ffesymbol_check_token_): Likewise.
* target.c (ffetarget_real1): Likewise.
(ffetarget_real2): Likewise.
From-SVN: r17884
Diffstat (limited to 'gcc/f/ste.c')
| -rw-r--r-- | gcc/f/ste.c | 32 |
1 files changed, 17 insertions, 15 deletions
diff --git a/gcc/f/ste.c b/gcc/f/ste.c index 31ae6a4..91698f1 100644 --- a/gcc/f/ste.c +++ b/gcc/f/ste.c @@ -2905,22 +2905,24 @@ ffeste_R840 (ffebld expr, ffelab neg, ffelab zero, ffelab pos) ffecom_push_calltemps (); if (neg == zero) - if (neg == pos) - expand_goto (gzero); - else - { /* IF (expr.LE.0) THEN GOTO neg/zero ELSE - GOTO pos. */ - texpr = ffecom_expr (expr); - texpr = ffecom_2 (LE_EXPR, integer_type_node, - texpr, - convert (TREE_TYPE (texpr), - integer_zero_node)); - expand_start_cond (ffecom_truth_value (texpr), 0); + { + if (neg == pos) expand_goto (gzero); - expand_start_else (); - expand_goto (gpos); - expand_end_cond (); - } + else + { /* IF (expr.LE.0) THEN GOTO neg/zero ELSE + GOTO pos. */ + texpr = ffecom_expr (expr); + texpr = ffecom_2 (LE_EXPR, integer_type_node, + texpr, + convert (TREE_TYPE (texpr), + integer_zero_node)); + expand_start_cond (ffecom_truth_value (texpr), 0); + expand_goto (gzero); + expand_start_else (); + expand_goto (gpos); + expand_end_cond (); + } + } else if (neg == pos) { /* IF (expr.NE.0) THEN GOTO neg/pos ELSE GOTO zero. */ |