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

suspends => interrupts.

parent 30ea6955
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/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 @@ ...@@ -134,10 +134,10 @@
;; be large. ;; be large.
(emit-label large-alloc-entry) (emit-label large-alloc-entry)
;; Disable suspends. ;; Disable interrupts.
(loadw temp mutator-tn mutator-suspends-disabled-count-slot) (loadw temp mutator-tn mutator-interrupts-disabled-count-slot)
(inst addu temp temp 1) (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) (with-regs-saved (a1 a2 a3 a4 a5 fdefn lexenv ra)
(inst li temp (make-fixup "allocate_large_object" :foreign)) (inst li temp (make-fixup "allocate_large_object" :foreign))
...@@ -146,13 +146,13 @@ ...@@ -146,13 +146,13 @@
(inst move result temp) (inst move result temp)
;; Re-enable suspends. ;; Re-enable interrupts.
(loadw temp mutator-tn mutator-suspends-disabled-count-slot) (loadw temp mutator-tn mutator-interrupts-disabled-count-slot)
(inst subu temp temp 1) (inst subu temp temp 1)
(inst bne temp zero-tn done) (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. ;; 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 beq temp zero-tn done)
(inst nop) (inst nop)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment