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

Changed semantics of CallAtEnd so that it calls installed procedures

Browse source 
in reversed order
This commit is contained in:
ceriel 1989-03-22 17:36:20 +00:00
parent 61f0a89372
commit c5345bf6ac
2 changed files with 5 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lang/m2/libm2/Epilogue.def
View file

@ -13,8 +13,8 @@ DEFINITION MODULE Epilogue;
PROCEDURE CallAtEnd(p: PROC): BOOLEAN;
(* Add procedure "p" to the list of procedures that must be executed when
the program finishes.
When the program finishes, these procedures are executed in the order in
which they were added to the list.
When the program finishes, these procedures are executed in the REVERSE
order in which they were added to the list.
This procedure returns FALSE when there are too many procedures to be
called (the list has a fixed size).
*)

8
lang/m2/libm2/halt.c
View file

@ -8,7 +8,7 @@
Author: Ceriel J.H. Jacobs
Version: $Header$
*/
#define MAXPROCS 16
#define MAXPROCS 32
static int callindex = 0;
static int (*proclist[MAXPROCS])();
@ -17,7 +17,7 @@ _cleanup()
{
register int i;
for (i = 0; i < callindex; i++) {
for (i = callindex; --i >= 0;) {
(*proclist[i])();
}
callindex = 0;
@ -29,9 +29,7 @@ CallAtEnd(p)
if (callindex >= MAXPROCS) {
return 0;
}
else {
proclist[callindex++] = p;
}
proclist[callindex++] = p;
return 1;
}