diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-02-14 08:28:50 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-02-14 08:28:50 +0000 |
| commit | bc51e7261200de6aa426185513de950e278ab51f (patch) | |
| tree | 6a9abd645ffe346f04c5f9e2b9e35c9d59448034 /gcc/fortran/trans-stmt.h | |
| parent | 89fdbef28dab9e7c56781b17cd50d6894d6f425e (diff) | |
| download | gcc-bc51e7261200de6aa426185513de950e278ab51f.zip gcc-bc51e7261200de6aa426185513de950e278ab51f.tar.gz gcc-bc51e7261200de6aa426185513de950e278ab51f.tar.bz2 | |
re PR fortran/32382 (missed optimization in internal read)
2010-02-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/32382
* trans-stmt.h: Add prototype for gfc_trans_code_cond. Add tree cond to
gfc_trans_do prototype.
* trans-stmt.c (gfc_trans_simple_do): Add optional argument to pass in
a loop exit condition. If exit condition is given, build the loop exit
code, checking IO results of implied do loops in READ and WRITE.
(gfc_trans_do): Likewise.
* trans.c (trans_code): New static work function, previously
gfc_trans_code. Passes exit condition to gfc_trans_do.
(gfc_trans_code): Calls trans_code with NULL_TREE condition.
(gfc_trans_code_cond): Calls trans_code with loop exit condition.
* trans-io.c (build_dt): Build an exit condition to allow checking IO
result status bits in the dtparm structure. Use this condition in call
to gfc_trans_code_cond.
From-SVN: r156755
Diffstat (limited to 'gcc/fortran/trans-stmt.h')
| -rw-r--r-- | gcc/fortran/trans-stmt.h | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/fortran/trans-stmt.h b/gcc/fortran/trans-stmt.h index e6faacd..46abc09 100644 --- a/gcc/fortran/trans-stmt.h +++ b/gcc/fortran/trans-stmt.h @@ -23,6 +23,9 @@ along with GCC; see the file COPYING3. If not see Calls gfc_trans_*. */ tree gfc_trans_code (gfc_code *); +/* Wrapper function used to pass a check condition for implied DO loops. */ +tree gfc_trans_code_cond (gfc_code *, tree); + /* All other gfc_trans_* should only need be called by gfc_trans_code */ /* trans-expr.c */ @@ -45,7 +48,7 @@ tree gfc_trans_return (gfc_code *); tree gfc_trans_if (gfc_code *); tree gfc_trans_arithmetic_if (gfc_code *); tree gfc_trans_block_construct (gfc_code *); -tree gfc_trans_do (gfc_code *); +tree gfc_trans_do (gfc_code *, tree); tree gfc_trans_do_while (gfc_code *); tree gfc_trans_select (gfc_code *); tree gfc_trans_forall (gfc_code *); |