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

new version number

Browse source
This commit is contained in:
ceriel 1988-11-04 10:24:34 +00:00
parent f8a3f67ddb
commit d418617de6
2 changed files with 8 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lang/m2/comp/Version.c
View file

@ -1 +1 @@
static char Version[] = "ACK Modula-2 compiler Version 0.40"; static char Version[] = "ACK Modula-2 compiler Version 0.41";

16
lang/m2/comp/walk.c
View file

@ -544,23 +544,22 @@ WalkStat(nd, exit_label)
if (good_forvar) { if (good_forvar) {
bstp = BaseType(nd->nd_type); bstp = BaseType(nd->nd_type);
uns = bstp->tp_fund != T_INTEGER; uns = bstp->tp_fund != T_INTEGER;
C_dup(int_size);
CodeDStore(nd);
CodePExpr(fnd); CodePExpr(fnd);
C_stl(tmp); C_stl(tmp);
CodePExpr(left->nd_left);
C_dup(int_size);
CodeDStore(nd);
C_lol(tmp); C_lol(tmp);
if (uns) C_cmu(int_size); if (uns) C_cmu(int_size);
else C_cmi(int_size); else C_cmi(int_size);
C_zgt(l2);
C_lol(tmp);
ForLoopVarExpr(nd);
if (left->nd_INT >= 0) { if (left->nd_INT >= 0) {
C_zgt(l2);
C_lol(tmp);
ForLoopVarExpr(nd);
} }
else { else {
stepsize = -stepsize; stepsize = -stepsize;
C_zlt(l2); C_exg(int_size);
ForLoopVarExpr(nd);
C_lol(tmp);
} }
C_sbu(int_size); C_sbu(int_size);
if (stepsize) { if (stepsize) {
@ -797,7 +796,6 @@ node_warning(nd, W_OLDFASHIONED, "compatibility required in FOR statement");
return 1; return 1;
} }
CodePExpr(left->nd_left);
return 1; return 1;
} }