From 4d9ef6c38d219c62a68fc0c61e914559db6c9a25 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 27 Aug 1993 14:41:37 +0000
Subject: [PATCH] Changed interrupts-enabled to interrupts-disabled-count.

---
 compiler/generic/objdef.lisp | 12 ++++++------
 compiler/mips/cell.lisp      |  4 ++--
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/compiler/generic/objdef.lisp b/compiler/generic/objdef.lisp
index 03974afb4..e59f4d197 100644
--- a/compiler/generic/objdef.lisp
+++ b/compiler/generic/objdef.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/objdef.lisp,v 1.33 1993/08/27 14:29:09 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/objdef.lisp,v 1.34 1993/08/27 14:39:48 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -392,11 +392,11 @@
   (thread)
   ;; Signal control magic.
   (foreign-fn-call-active :c-type "boolean")
-  (interrupts_enabled :c-type "boolean")
-  (interrupt_pending :c-type "boolean")
-  (pending_signal :c-type "int")
-  (pending_code :c-type "int")
-  (pending_mask :c-type "int")
+  (interrupts-disabled-count :c-type "int")
+  (interrupt-pending :c-type "boolean")
+  (pending-signal :c-type "int")
+  (pending-code :c-type "int")
+  (pending-mask :c-type "int")
   ;; Stacks.
   (control-stack-base :c-type "lispobj *")
   (control-stack-pointer :c-type "lispobj *")
diff --git a/compiler/mips/cell.lisp b/compiler/mips/cell.lisp
index 711b75d9e..abead4db9 100644
--- a/compiler/mips/cell.lisp
+++ b/compiler/mips/cell.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.75 1993/08/27 14:35:08 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.76 1993/08/27 14:41:37 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -387,7 +387,7 @@
 		 (:variant ,offset)))))))))
 
 (define-mutator-accessors thread :des t)
-(define-mutator-accessors interrupts-enabled :ub32 t)
+(define-mutator-accessors interrupts-disabled-count :ub32 t)
 (define-mutator-accessors interrupt-pending :ub32 t)
 (define-mutator-accessors control-stack-base :sap nil)
 (define-mutator-accessors control-stack-end :sap nil)
-- 
GitLab