diff options
| author | Craig Burley <craig@jcb-sc.com> | 1999-05-02 14:04:25 +0000 |
|---|---|---|
| committer | Craig Burley <burley@gcc.gnu.org> | 1999-05-02 10:04:25 -0400 |
| commit | d59c31775454c2e1a5b9a1a2f4b79d573dd86f66 (patch) | |
| tree | 2f0eb5d161accc509b14b36a8c37076850e9219e /gcc | |
| parent | a7e34b171b68ba66eae62aa80a41e19cc78380d5 (diff) | |
| download | gcc-d59c31775454c2e1a5b9a1a2f4b79d573dd86f66.zip gcc-d59c31775454c2e1a5b9a1a2f4b79d573dd86f66.tar.gz gcc-d59c31775454c2e1a5b9a1a2f4b79d573dd86f66.tar.bz2 | |
fix DO WHILE (compile/19990502-1.f)
From-SVN: r26727
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/f/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/f/ste.c | 9 |
2 files changed, 11 insertions, 4 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 885051a..7dff3ad 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,9 @@ +Sun May 2 16:53:01 1999 Craig Burley <craig@jcb-sc.com> + + Fix compile/19990502-1.f: + * ste.c (ffeste_R819B): Don't overwrite tree for temp + variable when expanding the assignment into it. + Sun Apr 25 20:55:10 1999 Craig Burley <craig@jcb-sc.com> Fix 19990325-0.f and 19990325-1.f: diff --git a/gcc/f/ste.c b/gcc/f/ste.c index 2b01855..dbe48dd 100644 --- a/gcc/f/ste.c +++ b/gcc/f/ste.c @@ -3097,6 +3097,7 @@ ffeste_R819B (ffestw block, ffelab label UNUSED, ffebld expr) if (expr) { struct nesting *loop; + tree mod; result = ffecom_make_tempvar ("dowhile", integer_type_node, FFETARGET_charactersizeNONE, -1); @@ -3108,10 +3109,10 @@ ffeste_R819B (ffestw block, ffelab label UNUSED, ffebld expr) ffecom_prepare_end (); - result = ffecom_modify (void_type_node, - result, - ffecom_truth_value (ffecom_expr (expr))); - expand_expr_stmt (result); + mod = ffecom_modify (void_type_node, + result, + ffecom_truth_value (ffecom_expr (expr))); + expand_expr_stmt (mod); ffeste_end_stmt_ (); |