From fd32d6e1b233222ea24d3a441961999b8ef1a39e Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 27 Aug 1993 15:01:46 +0000
Subject: [PATCH] suspends => interrupts.

---
 assembly/mips/alloc.lisp | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/assembly/mips/alloc.lisp b/assembly/mips/alloc.lisp
index 8b7cc4624..c5c025779 100644
--- a/assembly/mips/alloc.lisp
+++ b/assembly/mips/alloc.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/alloc.lisp,v 1.6 1993/05/25 00:52:44 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/alloc.lisp,v 1.7 1993/08/27 15:01:46 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -134,10 +134,10 @@
   ;; be large.
   (emit-label large-alloc-entry)
 
-  ;; Disable suspends.
-  (loadw temp mutator-tn mutator-suspends-disabled-count-slot)
+  ;; Disable interrupts.
+  (loadw temp mutator-tn mutator-interrupts-disabled-count-slot)
   (inst addu temp temp 1)
-  (storew temp mutator-tn mutator-suspends-disabled-count-slot)
+  (storew temp mutator-tn mutator-interrupts-disabled-count-slot)
 
   (with-regs-saved (a1 a2 a3 a4 a5 fdefn lexenv ra)
     (inst li temp (make-fixup "allocate_large_object" :foreign))
@@ -146,13 +146,13 @@
 
   (inst move result temp)
 
-  ;; Re-enable suspends.
-  (loadw temp mutator-tn mutator-suspends-disabled-count-slot)
+  ;; Re-enable interrupts.
+  (loadw temp mutator-tn mutator-interrupts-disabled-count-slot)
   (inst subu temp temp 1)
   (inst bne temp zero-tn done)
-  (storew temp mutator-tn mutator-suspends-disabled-count-slot)
+  (storew temp mutator-tn mutator-interrupts-disabled-count-slot)
   ;; Check to see if any are pending.
-  (loadw temp mutator-tn mutator-suspend-pending-slot)
+  (loadw temp mutator-tn mutator-interrupt-pending-slot)
   (inst beq temp zero-tn done)
   (inst nop)
 
-- 
GitLab