From d849287779bd95d886c4c733d14745f85985de37 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 24 Nov 2008 12:01:08 -0600
Subject: [PATCH] Fix fixnum/i-fast and fixnum/md-fast on PowerPC

---
 basis/cpu/ppc/bootstrap.factor | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/basis/cpu/ppc/bootstrap.factor b/basis/cpu/ppc/bootstrap.factor
index c753050b8e..047d27c5f4 100644
--- a/basis/cpu/ppc/bootstrap.factor
+++ b/basis/cpu/ppc/bootstrap.factor
@@ -388,6 +388,7 @@ big-endian on
     ds-reg ds-reg 4 SUBI
     4 ds-reg 0 LWZ
     5 4 3 DIVW
+    5 5 tag-bits get SLWI
     5 ds-reg 0 STW
 ] f f f \ fixnum/i-fast define-sub-primitive
 
@@ -397,6 +398,7 @@ big-endian on
     5 4 3 DIVW
     6 5 3 MULLW
     7 6 4 SUBF
+    5 5 tag-bits get SLWI
     5 ds-reg -4 STW
     7 ds-reg 0 STW
 ] f f f \ fixnum/mod-fast define-sub-primitive