From 617f210cf84c613506725ab47b88325cc97c3ca0 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Thu, 10 Sep 1987 15:56:28 +0000
Subject: [PATCH] Added FORchk.c

---
 lang/m2/libm2/FORchk.c | 8 ++++++++
 lang/m2/libm2/LIST     | 1 +
 2 files changed, 9 insertions(+)
 create mode 100644 lang/m2/libm2/FORchk.c

diff --git a/lang/m2/libm2/FORchk.c b/lang/m2/libm2/FORchk.c
new file mode 100644
index 000000000..f911e2955
--- /dev/null
+++ b/lang/m2/libm2/FORchk.c
@@ -0,0 +1,8 @@
+static char m[] = "Warning: FOR-loop control variable was changed in the body";
+_forloopchk(a,b)
+	unsigned a, b;
+{
+	if (a != b) {
+		Traps_Message(m , 0, sizeof(m) - 2, 1);
+	}
+}
diff --git a/lang/m2/libm2/LIST b/lang/m2/libm2/LIST
index f9bd631de..ab3d139b6 100644
--- a/lang/m2/libm2/LIST
+++ b/lang/m2/libm2/LIST
@@ -16,6 +16,7 @@ Semaphores.mod
 random.mod
 Strings.mod
 catch.c
+FORchk.c
 Traps.mod
 Arguments.c
 LtoUset.e
-- 
2.34.1