godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

another minor problem fixed: only test on options['R'] once

Browse Source 
in a FOR statement!
This commit is contained in:
ceriel
1988-11-23 13:10:57 +00:00
parent cd47424718
commit 89cb15bcbe
3 changed files with 9 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
lang/m2/comp/walk.c
View File

@@ -448,6 +448,8 @@ WalkStat(nd, exit_label)
assert(nd->nd_class == Stat);
if (nd->nd_symb == ';') return;
DoLineno(nd);
options['R'] = (nd->nd_flags & ROPTION);
options['A'] = (nd->nd_flags & AOPTION);
@@ -462,9 +464,6 @@ WalkStat(nd, exit_label)
}
break;
case ';':
break;
case BECOMES:
DoAssign(left, right);
break;
@@ -574,13 +573,11 @@ WalkStat(nd, exit_label)
nd->nd_def->df_flags |= D_FORLOOP;
def_ilb(l1);
if (! options['R']) {
label x = ++text_label;
ForLoopVarExpr(nd);
C_stl(tmp2);
}
WalkNode(right, exit_label);
nd->nd_def->df_flags &= ~D_FORLOOP;
if (! options['R']) {
label x = ++text_label;
WalkNode(right, exit_label);
C_lol(tmp2);
ForLoopVarExpr(nd);
C_beq(x);
@@ -588,6 +585,8 @@ WalkStat(nd, exit_label)
C_trp();
def_ilb(x);
}
else WalkNode(right, exit_label);
nd->nd_def->df_flags &= ~D_FORLOOP;
FreeInt(tmp2);
if (stepsize) {
C_lol(tmp);