a trap from a routine called by the termination sequence could

cause an infinite loop. This is prevented

diff --git a/lang/m2/libm2/halt.c b/lang/m2/libm2/halt.c
index ca98a69..1b504f9 100644 (file)
--- a/lang/m2/libm2/halt.c
+++ b/lang/m2/libm2/halt.c
@@ -15,10 +15,8 @@ static int (*proclist[MAXPROCS])();
 
 _cleanup()
 {
-       register int i;
-
-       for (i = callindex; --i >= 0;) {
-               (*proclist[i])();
+       while (--callindex >= 0)
+               (*proclist[callindex])();
        }
        callindex = 0;
 }