d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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; PROCEDURE CallAtEnd(p: PROC): BOOLEAN;
(* Add procedure "p" to the list of procedures that must be executed when (* Add procedure "p" to the list of procedures that must be executed when
the program finishes. the program finishes.
When the program finishes, these procedures are executed in the order in When the program finishes, these procedures are executed in the REVERSE
which they were added to the list. order in which they were added to the list.
This procedure returns FALSE when there are too many procedures to be This procedure returns FALSE when there are too many procedures to be
called (the list has a fixed size). called (the list has a fixed size).
*) *)

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

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