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

Added FORchk.c

Browse source
This commit is contained in:
ceriel 1987-09-10 15:56:28 +00:00
parent 286acd933c
commit 617f210cf8
2 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lang/m2/libm2/FORchk.c Normal file
View file

@ -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
lang/m2/libm2/LIST
View file

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