diff --git a/compiler/generic/objdef.lisp b/compiler/generic/objdef.lisp index 03974afb48e219c72099e95fe9efbd0d0ee55b79..e59f4d197010b16e24a0c02415d1457426d3b4b3 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 711b75d9e27cacd71934a6c1a523ef563d758a4b..abead4db9c4925e2ba142df375efb50c0fe9cdec 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)