MatCat.OpenSource/8sa1-gcc
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fix DO WHILE (compile/19990502-1.f)

Browse Source 
From-SVN: r26727
This commit is contained in:
Craig Burley 1999-05-02 14:04:25 +00:00 committed by Craig Burley
parent a7e34b171b
commit d59c317754
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/f/ChangeLog
View File

@ -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:

9
gcc/f/ste.c
View File

@ -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_ ();