From 3a508cbac6f88eee27ac96e16c55e4e0c9f36792 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 11 Feb 1993 21:27:47 +0000 Subject: [PATCH] Update to reflect new hook for SET-INTERRUPT-ENABLES!. --- v7/src/compiler/machines/bobcat/dassm2.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/machines/bobcat/dassm2.scm b/v7/src/compiler/machines/bobcat/dassm2.scm index 3bc090bc6..4a9f8dd5d 100644 --- a/v7/src/compiler/machines/bobcat/dassm2.scm +++ b/v7/src/compiler/machines/bobcat/dassm2.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: dassm2.scm,v 4.21 1993/01/08 00:03:51 cph Exp $ +$Id: dassm2.scm,v 4.22 1993/02/11 21:27:47 cph Exp $ Copyright (c) 1988-1993 Massachusetts Institute of Technology @@ -283,7 +283,7 @@ MIT in each case. |# (define interpreter-register-assignments (let* ((first-entry (* 4 16)) - (first-temp (+ first-entry (* 8 40)))) + (first-temp (+ first-entry (* 8 80)))) (define (make-entries index names) (if (null? names) '() @@ -345,6 +345,7 @@ MIT in each case. |# stack-and-interrupt-check-18 stack-and-interrupt-check-22 stack-and-interrupt-check-24 + set-interrupt-enables )) ;; Compiled code temporaries ,@(let loop ((i 0) (index first-temp)) -- 2.25.1