diff options
| author | burley <burley@138bc75d-0d04-0410-961f-82ee72b054a4> | 1999-04-19 21:38:54 +0000 |
|---|---|---|
| committer | burley <burley@138bc75d-0d04-0410-961f-82ee72b054a4> | 1999-04-19 21:38:54 +0000 |
| commit | bea920cabbc9229327083e6501e5483025f45a62 (patch) | |
| tree | 186f26d9ba06dcc3d6b3100b17e9b6982a08bb45 /gcc/f/ste.c | |
| parent | 27381425a296c8cff204accfacf0b4d938ee7ea4 (diff) | |
| download | gcc-bea920cabbc9229327083e6501e5483025f45a62.tar.gz | |
fix DO WHILE
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@26553 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/f/ste.c')
| -rw-r--r-- | gcc/f/ste.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/f/ste.c b/gcc/f/ste.c index b87f532e6a5..92c31429ae7 100644 --- a/gcc/f/ste.c +++ b/gcc/f/ste.c @@ -3096,8 +3096,11 @@ ffeste_R819B (ffestw block, ffelab label UNUSED, ffebld expr) if (expr) { + tree loop; + result = ffecom_make_tempvar ("dowhile", integer_type_node, FFETARGET_charactersizeNONE, -1); + loop = expand_start_loop (1); ffeste_start_stmt_ (); @@ -3112,7 +3115,7 @@ ffeste_R819B (ffestw block, ffelab label UNUSED, ffebld expr) ffeste_end_stmt_ (); - ffestw_set_do_hook (block, expand_start_loop (1)); + ffestw_set_do_hook (block, loop); expand_exit_loop_if_false (0, result); } else |