cpu.ppc: fix %write-barrier

2009-10-15 05:13:47 -05:00 · 2009-10-15 05:13:47 -05:00 · 70c69fbd67
parent 13ca35ba79
commit 70c69fbd67
1 changed files with 1 additions and 1 deletions
--- 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 ;