Skip to content
Snippets Groups Projects
Commit 4d9ef6c3 authored by wlott's avatar wlott
Browse files

Changed interrupts-enabled to interrupts-disabled-count.

parent a561ceaa
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -392,11 +392,11 @@
(thread) (thread)
;; Signal control magic. ;; Signal control magic.
(foreign-fn-call-active :c-type "boolean") (foreign-fn-call-active :c-type "boolean")
(interrupts_enabled :c-type "boolean") (interrupts-disabled-count :c-type "int")
(interrupt_pending :c-type "boolean") (interrupt-pending :c-type "boolean")
(pending_signal :c-type "int") (pending-signal :c-type "int")
(pending_code :c-type "int") (pending-code :c-type "int")
(pending_mask :c-type "int") (pending-mask :c-type "int")
;; Stacks. ;; Stacks.
(control-stack-base :c-type "lispobj *") (control-stack-base :c-type "lispobj *")
(control-stack-pointer :c-type "lispobj *") (control-stack-pointer :c-type "lispobj *")
......
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -387,7 +387,7 @@
(:variant ,offset))))))))) (:variant ,offset)))))))))
(define-mutator-accessors thread :des t) (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 interrupt-pending :ub32 t)
(define-mutator-accessors control-stack-base :sap nil) (define-mutator-accessors control-stack-base :sap nil)
(define-mutator-accessors control-stack-end :sap nil) (define-mutator-accessors control-stack-end :sap nil)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment