diff options
| author | Richard Guenther <rguenther@suse.de> | 2006-01-16 09:40:16 +0000 |
|---|---|---|
| committer | Richard Biener <rguenth@gcc.gnu.org> | 2006-01-16 09:40:16 +0000 |
| commit | 3f2ec06a70b07a1088921e3e8144c39177b98517 (patch) | |
| tree | fc6d702400be0fd59d870552e0212a004b075ee4 /gcc/fortran/trans-expr.c | |
| parent | cab2264d17e4602aa2de844413c36a207ba4665a (diff) | |
| download | gcc-3f2ec06a70b07a1088921e3e8144c39177b98517.zip gcc-3f2ec06a70b07a1088921e3e8144c39177b98517.tar.gz gcc-3f2ec06a70b07a1088921e3e8144c39177b98517.tar.bz2 | |
trans-expr.c (gfc_conv_function_call): Use fold_build2.
2006-01-16 Richard Guenther <rguenther@suse.de>
* trans-expr.c (gfc_conv_function_call): Use fold_build2.
* trans-stmt.c (gfc_trans_goto): Likewise. Use build_int_cst.
* trans.c (gfc_trans_runtime_check): Don't fold the condition
again.
From-SVN: r109745
Diffstat (limited to 'gcc/fortran/trans-expr.c')
| -rw-r--r-- | gcc/fortran/trans-expr.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index dc2e822..880994a 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -1830,7 +1830,8 @@ gfc_conv_function_call (gfc_se * se, gfc_symbol * sym, /* Check the data pointer hasn't been modified. This would happen in a function returning a pointer. */ tmp = gfc_conv_descriptor_data_get (info->descriptor); - tmp = build2 (NE_EXPR, boolean_type_node, tmp, info->data); + tmp = fold_build2 (NE_EXPR, boolean_type_node, + tmp, info->data); gfc_trans_runtime_check (tmp, gfc_strconst_fault, &se->pre); } se->expr = info->descriptor; |