ceriel 37 gadi atpakaļ
vecāks
revīzija
ad5c37ef7a
2 mainītis faili ar 9 papildinājumiem un 0 dzēšanām
  1. 8 0
      lang/m2/libm2/FORchk.c
  2. 1 0
      lang/m2/libm2/LIST

+ 8 - 0
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);
+	}
+}

+ 1 - 0
lang/m2/libm2/LIST

@@ -16,6 +16,7 @@ Semaphores.mod
 random.mod
 Strings.mod
 catch.c
+FORchk.c
 Traps.mod
 Arguments.c
 LtoUset.e