diff options
| author | Diego Novillo <dnovillo@redhat.com> | 2006-01-13 14:20:01 +0000 |
|---|---|---|
| committer | Diego Novillo <dnovillo@gcc.gnu.org> | 2006-01-13 09:20:01 -0500 |
| commit | 690c6eacb13e30f624963ce2abbbbeae0f25dcb3 (patch) | |
| tree | 6c2e2875dfe56cf840aebf59c7f0cc1d9775676d /gcc/fortran | |
| parent | 403e54f013d0186db61adbc5cfee6ed08f35bfe6 (diff) | |
| download | gcc-690c6eacb13e30f624963ce2abbbbeae0f25dcb3.zip gcc-690c6eacb13e30f624963ce2abbbbeae0f25dcb3.tar.gz gcc-690c6eacb13e30f624963ce2abbbbeae0f25dcb3.tar.bz2 | |
trans.c (gfc_add_expr_to_block): Do not fold tcc_statement nodes.
* trans.c (gfc_add_expr_to_block): Do not fold tcc_statement
nodes.
From-SVN: r109665
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/trans.c | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index f82ff40..5f18c76 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2006-01-13 Diego Novillo <dnovillo@redhat.com> + + * trans.c (gfc_add_expr_to_block): Do not fold tcc_statement + nodes. + 2006-01-11 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> * parse.c (next_fixed): Remove superfluous string concatenation. diff --git a/gcc/fortran/trans.c b/gcc/fortran/trans.c index 5c74883..f1c0e02 100644 --- a/gcc/fortran/trans.c +++ b/gcc/fortran/trans.c @@ -361,7 +361,8 @@ gfc_add_expr_to_block (stmtblock_t * block, tree expr) if (expr == NULL_TREE || IS_EMPTY_STMT (expr)) return; - if (TREE_CODE (expr) != STATEMENT_LIST) + if (TREE_CODE (expr) != STATEMENT_LIST + && TREE_CODE_CLASS (TREE_CODE (expr)) != tcc_statement) expr = fold (expr); if (block->head) |