diff options
| author | sayle <sayle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-04-15 05:50:42 +0000 |
|---|---|---|
| committer | sayle <sayle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-04-15 05:50:42 +0000 |
| commit | be813b1bf4a9672d37d04a07d7bb18aaf7d5a895 (patch) | |
| tree | 34d50e038e1fa1be7464a9855bb63a2ecb849cfe /gcc | |
| parent | 85af9d2a8de1329b800534bcf6dfa9daf9012fa9 (diff) | |
| download | ppe42-gcc-be813b1bf4a9672d37d04a07d7bb18aaf7d5a895.tar.gz ppe42-gcc-be813b1bf4a9672d37d04a07d7bb18aaf7d5a895.zip | |
* trans-io.c (set_string): Use fold_build2 and build_int_cst instead
of build2 and convert to construct "x < 0" rather than "x <= -1".
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@112968 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/trans-io.c | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 8523b9af6f2..df5a576235a 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2006-04-14 Roger Sayle <roger@eyesopen.com> + + * trans-io.c (set_string): Use fold_build2 and build_int_cst instead + of build2 and convert to construct "x < 0" rather than "x <= -1". + 2006-04-13 Richard Henderson <rth@redhat.com> * trans-openmp.c (gfc_trans_omp_sections): Adjust for changed diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index db1a4813be1..9a6016148e7 100644 --- a/gcc/fortran/trans-io.c +++ b/gcc/fortran/trans-io.c @@ -532,8 +532,8 @@ set_string (stmtblock_t * block, stmtblock_t * postblock, tree var, msg = gfc_build_cstring_const ("Assigned label is not a format label"); tmp = GFC_DECL_STRING_LEN (se.expr); - tmp = build2 (LE_EXPR, boolean_type_node, - tmp, convert (TREE_TYPE (tmp), integer_minus_one_node)); + tmp = fold_build2 (LT_EXPR, boolean_type_node, + tmp, build_int_cst (TREE_TYPE (tmp), 0)); gfc_trans_runtime_check (tmp, msg, &se.pre); gfc_add_modify_expr (&se.pre, io, fold_convert (TREE_TYPE (io), GFC_DECL_ASSIGN_ADDR (se.expr))); |
