From a4462c2390ad9b01434fc7759a684b9d830e8a1c Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 9 Nov 1987 21:26:16 +0000
Subject: [PATCH] Update the compiler memtop register when clearing timer
 interrupt.

---
 v7/src/microcode/sysprim.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/v7/src/microcode/sysprim.c b/v7/src/microcode/sysprim.c
index e52fb7044..cec707d3f 100644
--- a/v7/src/microcode/sysprim.c
+++ b/v7/src/microcode/sysprim.c
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/sysprim.c,v 9.24 1987/10/28 18:42:53 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/sysprim.c,v 9.25 1987/11/09 21:26:16 cph Exp $
  *
  * Random system primitives.  Most are implemented in terms of
  * utilities in os.c
@@ -97,6 +97,7 @@ Built_In_Primitive(Prim_Setup_Timer_Interrupt, 2,
     Set_Int_Timer(Days, Centi_Seconds);
   }
   IntCode &= ~INT_Timer;
+  New_Compiler_Memtop ();
   PRIMITIVE_RETURN(NIL);
 }
 
-- 
2.25.1