d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

fix to for-loop code was wrong; fixed again

Browse source
This commit is contained in:
ceriel 1989-10-30 15:45:43 +00:00
parent 67e5a8e7a5
commit 8cb76d3ed8
2 changed files with 5 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lang/pc/comp/body.c
View file

@ -219,7 +219,7 @@ arith
CodeInitFor(nd, priority)
register struct node *nd;
{
/* Push init-value or final-value, the value may only be evaluated
/* Push final-value, the value may only be evaluated
once, so generate a temporary for it, when not a constant.
*/
@ -237,10 +237,9 @@ CodeInitFor(nd, priority)
return (arith) 0;
}
CodeFor(nd, stepsize, l1, l2, tmp1)
CodeFor(nd, stepsize, l1, l2)
struct node *nd;
label l1, l2;
arith tmp1;
{
/* Test if loop has to be done */
if( stepsize == 1 ) /* TO */
@ -248,12 +247,6 @@ CodeFor(nd, stepsize, l1, l2, tmp1)
else /* DOWNTO */
C_blt(l2);
/* Store init-value in control-variable */
if( tmp1 )
C_lol(tmp1);
else
CodePExpr(nd->nd_left);
/* Label at begin of the body */
C_df_ilb(l1);

7
lang/pc/comp/statement.g
View file

@ -341,7 +341,6 @@ ForStatement
int stepsize;
label l1 = ++text_label;
label l2 = ++text_label;
arith tmp1 = (arith) 0;
arith tmp2 = (arith) 0;
} :
FOR
@ -357,9 +356,10 @@ ForStatement
Expression(&(nd->nd_right))
{ ChkForStat(nd);
if( !err_occurred ) {
tmp1 = CodeInitFor(nd->nd_left, 0);
CodePExpr(nd->nd_left);
C_dup(int_size);
tmp2 = CodeInitFor(nd->nd_right, 2);
CodeFor(nd, stepsize, l1, l2, tmp1);
CodeFor(nd, stepsize, l1, l2);
}
}
DO
@ -369,7 +369,6 @@ ForStatement
EndForStat(nd);
chk_labels(slevel + 1);
FreeNode(nd);
if( tmp1 ) FreeInt(tmp1);
if( tmp2 ) FreeInt(tmp2);
}
;