diff options
| author | Steven Bosscher <steven@gcc.gnu.org> | 2012-04-18 18:27:51 +0000 |
|---|---|---|
| committer | Steven Bosscher <steven@gcc.gnu.org> | 2012-04-18 18:27:51 +0000 |
| commit | 0cd2402db7edd870e3219e436947e75f5ae186fd (patch) | |
| tree | 4f4b399e94dc6b7d86f56ab58f0145e056fbe1dd /gcc/fortran/trans-io.c | |
| parent | 474ffc723e5888c328b33f3cefe972fbeda4548c (diff) | |
| download | gcc-0cd2402db7edd870e3219e436947e75f5ae186fd.zip gcc-0cd2402db7edd870e3219e436947e75f5ae186fd.tar.gz gcc-0cd2402db7edd870e3219e436947e75f5ae186fd.tar.bz2 | |
targhooks.c (default_case_values_threshold): Fix code style nit.
gcc/
* targhooks.c (default_case_values_threshold): Fix code style nit.
* stmt.c (add_case_node, expand_case): Move logic to remove/reduce
case range and type folding from here...
* gimplify.c (gimplify_switch_expr): ... to here. Expect NULL_TREE
type, as documented in tree.def
fortran/
* trans-decl.c (gfc_trans_entry_master_switch): Build SWITCH_EXPR
with NULL_TREE type instead of void_type_node.
* trans-io.c (io_result): Likewise.
* trans-stmt.c (gfc_trans_integer_select,
gfc_trans_character_select): Likewise.
go/
* go-gcc.cc (Gcc_backend::switch_statement): Build SWITCH_EXPR
with NULL_TREE type instead of void_type_node.
From-SVN: r186579
Diffstat (limited to 'gcc/fortran/trans-io.c')
| -rw-r--r-- | gcc/fortran/trans-io.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index 12dfcf8..8218f85 100644 --- a/gcc/fortran/trans-io.c +++ b/gcc/fortran/trans-io.c @@ -882,7 +882,8 @@ io_result (stmtblock_t * block, tree var, gfc_st_label * err_label, rc, build_int_cst (TREE_TYPE (rc), IOPARM_common_libreturn_mask)); - tmp = build3_v (SWITCH_EXPR, rc, tmp, NULL_TREE); + tmp = fold_build3_loc (input_location, SWITCH_EXPR, NULL_TREE, + rc, tmp, NULL_TREE); gfc_add_expr_to_block (block, tmp); } |