From a92bc8e6d83186668652fb8ecb7adc50e4140b5f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 11 Sep 1992 22:34:34 +0000 Subject: [PATCH] Add new hook for close-coded stack/interrupt check. --- v7/src/compiler/machines/spectrum/lapgen.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v7/src/compiler/machines/spectrum/lapgen.scm b/v7/src/compiler/machines/spectrum/lapgen.scm index 31a7160e0..81d9d1067 100644 --- a/v7/src/compiler/machines/spectrum/lapgen.scm +++ b/v7/src/compiler/machines/spectrum/lapgen.scm @@ -1,7 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/lapgen.scm,v 4.39 1992/07/29 19:56:09 cph Exp $ -$MC68020-Header: /scheme/compiler/bobcat/RCS/lapgen.scm,v 4.41 1991/05/06 23:05:51 jinx Exp $ +$Id: lapgen.scm,v 4.40 1992/09/11 22:34:34 cph Exp $ Copyright (c) 1988-92 Massachusetts Institute of Technology @@ -588,7 +587,8 @@ MIT in each case. |# shortcircuit-apply-5 shortcircuit-apply-6 shortcircuit-apply-7 - shortcircuit-apply-8)) + shortcircuit-apply-8 + stack-and-interrupt-check)) (define (invoke-hook hook) (LAP (BLE () (OFFSET ,hook 4 ,regnum:scheme-to-interface-ble)) -- 2.25.1