diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-05-29 22:23:29 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-05-29 22:23:29 +0000 |
| commit | 6bb419210bcc769a6f32afb6b5fa03c415224235 (patch) | |
| tree | 82acf55d596afc1567cd43ff57cc3ce5e72c2f7e | |
| parent | 84e34aadff5dc2980d61bf6ba8ff2b7f77892d7a (diff) | |
| download | ppe42-gcc-6bb419210bcc769a6f32afb6b5fa03c415224235.tar.gz ppe42-gcc-6bb419210bcc769a6f32afb6b5fa03c415224235.zip | |
* trans-array.c: Fix previous commit, which included parts of
patches in preparation.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@114219 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/fortran/trans-array.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 7dfba2afd6c..be640bb487f 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -1783,7 +1783,7 @@ gfc_trans_array_bound_check (gfc_se * se, tree descriptor, tree index, int n) cond = fold_build2 (GT_EXPR, boolean_type_node, index, tmp); fault = fold_build2 (TRUTH_OR_EXPR, boolean_type_node, fault, cond); - gfc_trans_runtime_check (fault, gfc_msg_fault, &se->pre); + gfc_trans_runtime_check (fault, gfc_strconst_fault, &se->pre); return index; } @@ -1979,7 +1979,7 @@ gfc_conv_array_ref (gfc_se * se, gfc_array_ref * ar) } if (flag_bounds_check) - gfc_trans_runtime_check (fault, gfc_msg_fault, &se->pre); + gfc_trans_runtime_check (fault, gfc_strconst_fault, &se->pre); tmp = gfc_conv_array_offset (se->expr); if (!integer_zerop (tmp)) @@ -2520,7 +2520,7 @@ gfc_conv_ss_startstride (gfc_loopinfo * loop) size[n] = gfc_evaluate_now (tmp, &block); } } - gfc_trans_runtime_check (fault, gfc_msg_bounds, &block); + gfc_trans_runtime_check (fault, gfc_strconst_bounds, &block); tmp = gfc_finish_block (&block); gfc_add_expr_to_block (&loop->pre, tmp); @@ -3715,7 +3715,7 @@ gfc_trans_dummy_array_bias (gfc_symbol * sym, tree tmpdesc, tree body) stride2 = build2 (MINUS_EXPR, gfc_array_index_type, dubound, dlbound); tmp = fold_build2 (NE_EXPR, gfc_array_index_type, tmp, stride2); - gfc_trans_runtime_check (tmp, gfc_msg_bounds, &block); + gfc_trans_runtime_check (tmp, gfc_strconst_bounds, &block); } } else |
