From 70c69fbd67d7668c229a4cfe58f10f783bdbe2e7 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 15 Oct 2009 05:13:47 -0500 Subject: [PATCH] cpu.ppc: fix %write-barrier --- basis/cpu/ppc/ppc.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/cpu/ppc/ppc.factor b/basis/cpu/ppc/ppc.factor index e412d4f78d..bf239a696d 100644 --- 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 ;