Update the compiler memtop register when clearing timer interrupt.

diff --git a/v7/src/microcode/sysprim.c b/v7/src/microcode/sysprim.c
index e52fb7044cf2ea23e8dd913a8802bc57b336bdea..cec707d3fcf83da569d8853369479b174ca6d5ae 100644 (file)
--- 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);
 }
 \f