Skip to content
Snippets Groups Projects
Commit 6ca44bbd authored by rtoy's avatar rtoy
Browse files

Need to check for the pseudo-atomic interrupted bit AFTER the

pseudo-atomic section is done.
parent 77035341
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/macros.lisp,v 1.9 2005/05/14 02:24:01 rtoy Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/macros.lisp,v 1.10 2005/06/19 02:46:02 rtoy Exp $
;;; ;;;
;;; This file contains various useful macros for generating PC code. ;;; This file contains various useful macros for generating PC code.
;;; ;;;
...@@ -471,10 +471,10 @@ ...@@ -471,10 +471,10 @@
(inst addi alloc-tn alloc-tn 4)) (inst addi alloc-tn alloc-tn 4))
,@forms ,@forms
(without-scheduling () (without-scheduling ()
;; Grab PA interrupted bit from alloc-tn
(inst andi. ,flag-tn alloc-tn 1)
;; Remove PA bit ;; Remove PA bit
(inst subi alloc-tn alloc-tn 4) (inst subi alloc-tn alloc-tn 4)
;; Now test to see if the pseudo-atomic interrupted bit is set.
(inst andi. ,flag-tn alloc-tn 1)
(inst twi :ne ,flag-tn 0)) (inst twi :ne ,flag-tn 0))
#+debug #+debug
(progn (progn
......
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