From d418617de635e59dced56ff261e7417aae2ca078 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Fri, 4 Nov 1988 10:24:34 +0000
Subject: [PATCH] new version number

---
 lang/m2/comp/Version.c |  2 +-
 lang/m2/comp/walk.c    | 16 +++++++---------
 2 files changed, 8 insertions(+), 10 deletions(-)

diff --git a/lang/m2/comp/Version.c b/lang/m2/comp/Version.c
index 12662b641..6bebc5a7c 100644
--- a/lang/m2/comp/Version.c
+++ b/lang/m2/comp/Version.c
@@ -1 +1 @@
-static char Version[] = "ACK Modula-2 compiler Version 0.40";
+static char Version[] = "ACK Modula-2 compiler Version 0.41";
diff --git a/lang/m2/comp/walk.c b/lang/m2/comp/walk.c
index 97e434902..472a849aa 100644
--- a/lang/m2/comp/walk.c
+++ b/lang/m2/comp/walk.c
@@ -544,23 +544,22 @@ WalkStat(nd, exit_label)
 			if (good_forvar) {
 				bstp = BaseType(nd->nd_type);
 				uns = bstp->tp_fund != T_INTEGER;
-				C_dup(int_size);
-				CodeDStore(nd);
 				CodePExpr(fnd);
 				C_stl(tmp);
+				CodePExpr(left->nd_left);
+				C_dup(int_size);
+				CodeDStore(nd);
 				C_lol(tmp);
 				if (uns) C_cmu(int_size);
 				else C_cmi(int_size);
+				C_zgt(l2);
+				C_lol(tmp);
+				ForLoopVarExpr(nd);
 				if (left->nd_INT >= 0) {
-					C_zgt(l2);
-					C_lol(tmp);
-					ForLoopVarExpr(nd);
 				}
 				else {
 					stepsize = -stepsize;
-					C_zlt(l2);
-					ForLoopVarExpr(nd);
-					C_lol(tmp);
+					C_exg(int_size);
 				}
 				C_sbu(int_size);
 				if (stepsize) {
@@ -797,7 +796,6 @@ node_warning(nd, W_OLDFASHIONED, "compatibility required in FOR statement");
 		return 1;
 	}
 
-	CodePExpr(left->nd_left);
 	return 1;
 }
 
-- 
2.34.1