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