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

changed mechanism for for-loop checking, added some trap numbers

Browse source
This commit is contained in:
ceriel 1987-11-09 11:36:45 +00:00
parent 785e174cbb
commit b6d6c4ee57
4 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lang/m2/libm2/LIST
View file

@ -16,7 +16,6 @@ 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

2
lang/m2/libm2/Makefile
View file

@ -11,4 +11,4 @@ all:
install: install:
-mkdir $(DEFDIR) -mkdir $(DEFDIR)
for i in $(SOURCES) ; do cp $$i $(DEFDIR)/$$i ; done cp $(SOURCES) $(DEFDIR)

3
lang/m2/libm2/Traps.def
View file

@ -7,6 +7,9 @@ DEFINITION MODULE Traps;
ERRTOOMANY = 65; (* too many nested traps + handlers *) ERRTOOMANY = 65; (* too many nested traps + handlers *)
ERRNORESULT = 66; (* no RETURN from function procedure *) ERRNORESULT = 66; (* no RETURN from function procedure *)
ERRCARDOVFL = 67; (* CARDINAL overflow *) ERRCARDOVFL = 67; (* CARDINAL overflow *)
ERRFORLOOP = 68; (* value of FOR-loop control variable changed
in loop
*)
TYPE TrapHandler = EM.TrapHandler; TYPE TrapHandler = EM.TrapHandler;

4
lang/m2/libm2/catch.c
View file

@ -34,6 +34,7 @@ static struct errm {
{ M2_TOOMANY, "too many nested traps + handlers"}, { M2_TOOMANY, "too many nested traps + handlers"},
{ M2_NORESULT, "no RETURN from procedure function"}, { M2_NORESULT, "no RETURN from procedure function"},
{ M2_UOVFL, "cardinal overflow"}, { M2_UOVFL, "cardinal overflow"},
{ M2_FORCH, "Warning: FOR-loop control variable was changed in the body"},
{ -1, 0} { -1, 0}
}; };
@ -70,5 +71,6 @@ _catch(trapno)
*p = 0; *p = 0;
Traps_Message(q, 0, (int) (p - q), 1); Traps_Message(q, 0, (int) (p - q), 1);
} }
exit(trapno); if (trapno != M2_FORCH) exit(trapno);
SIG(_catch);
} }