From a5239b368178d99c07b96353e98ea2ef01cf8796 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 31 Aug 1993 08:52:18 +0000 Subject: [PATCH] Undo random gratuitous changes. --- v7/src/runtime/intrpt.scm | 39 +++++++++++++++++++-------------------- 1 file changed, 19 insertions(+), 20 deletions(-) diff --git a/v7/src/runtime/intrpt.scm b/v7/src/runtime/intrpt.scm index e9f97910c..05a910f5c 100644 --- a/v7/src/runtime/intrpt.scm +++ b/v7/src/runtime/intrpt.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: intrpt.scm,v 14.18 1993/08/31 00:52:44 ziggy Exp $ +$Id: intrpt.scm,v 14.19 1993/08/31 08:52:18 cph Exp $ Copyright (c) 1988-93 Massachusetts Institute of Technology @@ -70,15 +70,15 @@ MIT in each case. |# (process-timer-clear 0) (real-timer-clear 0)) -(define-integrable stack-overflow-slot 0) -(define-integrable global-gc-slot 1) -(define-integrable gc-slot 2) -(define-integrable character-slot 4) -(define-integrable after-gc-slot 5) -(define-integrable timer-slot 6) -(define-integrable suspend-slot 8) +(define-integrable stack-overflow-slot 0) +(define-integrable global-gc-slot 1) +(define-integrable gc-slot 2) +(define-integrable character-slot 4) +(define-integrable after-gc-slot 5) +(define-integrable timer-slot 6) +(define-integrable suspend-slot 8) ;; Room for Descartes profiler interrupt handlers -(define-integrable illegal-interrupt-slot 15) +(define-integrable illegal-interrupt-slot 15) (define index:interrupt-vector) (define index:interrupt-mask-vector) @@ -210,16 +210,15 @@ MIT in each case. |# old-termination-vector) (make-vector length #f))))) - (do ((i - (fix:- (vector-length system-interrupt-vector) 1) - (fix:- i 1))) - ((fix:< i 0)) - (if (not (vector-ref system-interrupt-vector i)) - (begin - (vector-set! interrupt-mask-vector i - (fix:not (fix:lsh 1 i))) - (vector-set! system-interrupt-vector i - illegal-interrupt-handler)))) + (let ((length (vector-length system-interrupt-vector))) + (do ((i 0 (fix:+ i 1))) + ((fix:= i length)) + (if (not (vector-ref system-interrupt-vector i)) + (begin + (vector-set! interrupt-mask-vector i + (fix:not (fix:lsh 1 i))) + (vector-set! system-interrupt-vector i + illegal-interrupt-handler))))) (vector-set! interrupt-mask-vector stack-overflow-slot interrupt-mask/none) @@ -262,4 +261,4 @@ MIT in each case. |# index:termination-vector termination-vector) - (set-fixed-objects-vector! (get-fixed-objects-vector))))))) + (set-fixed-objects-vector! (get-fixed-objects-vector))))))) \ No newline at end of file -- 2.25.1