From d59c31775454c2e1a5b9a1a2f4b79d573dd86f66 Mon Sep 17 00:00:00 2001 From: Craig Burley Date: Sun, 2 May 1999 14:04:25 +0000 Subject: [PATCH] fix DO WHILE (compile/19990502-1.f) From-SVN: r26727 --- gcc/f/ChangeLog | 6 ++++++ gcc/f/ste.c | 9 +++++---- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 885051abcac..7dff3adc23d 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,9 @@ +Sun May 2 16:53:01 1999 Craig Burley + + 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 Fix 19990325-0.f and 19990325-1.f: diff --git a/gcc/f/ste.c b/gcc/f/ste.c index 2b018555b1e..dbe48ddea41 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_ (); -- 2.30.2