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