From 13bc7e128d76922fb19054f046901839c97e676f Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Fri, 12 May 1989 09:36:16 +0000
Subject: [PATCH] a trap from a routine called by the termination sequence
 could cause an infinite loop. This is prevented

---
 lang/m2/libm2/halt.c | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/lang/m2/libm2/halt.c b/lang/m2/libm2/halt.c
index ca98a6969..1b504f904 100644
--- 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;
 }
-- 
2.34.1