From 6ca44bbd34aaafd34a14f54255e73b78ad404791 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Sun, 19 Jun 2005 02:46:02 +0000
Subject: [PATCH] Need to check for the pseudo-atomic interrupted bit AFTER the
 pseudo-atomic section is done.

---
 compiler/ppc/macros.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/compiler/ppc/macros.lisp b/compiler/ppc/macros.lisp
index 6ba25fa91..80cd434a8 100644
--- a/compiler/ppc/macros.lisp
+++ b/compiler/ppc/macros.lisp
@@ -7,7 +7,7 @@
 ;;; 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.
 ;;;
@@ -471,10 +471,10 @@
 	(inst addi alloc-tn alloc-tn 4))
       ,@forms
       (without-scheduling ()
-       ;; Grab PA interrupted bit from alloc-tn
-       (inst andi. ,flag-tn alloc-tn 1)
        ;; 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))
       #+debug
       (progn
-- 
GitLab