cpu.ppc: fix %write-barrier

diff --git a/basis/cpu/ppc/ppc.factor b/basis/cpu/ppc/ppc.factor
index e412d4f78dcf6d5a644a73a4f2827c80ab99cbef..bf239a696d3ecc8911dbb55bb63f7ac79b10b628 100644 (file)
--- a/basis/cpu/ppc/ppc.factor
+++ b/basis/cpu/ppc/ppc.factor
@@ -405,7 +405,7 @@ M:: ppc %allot ( dst size class nursery-ptr -- )
     temp1 scratch-reg temp2 STBX
 
     ! Mark the card deck
-    temp1 temp1 deck-bits SRWI
+    temp1 temp1 deck-bits card-bits - SRWI
     temp2 load-decks-offset
     temp1 scratch-reg temp2 STBX ;