From 0359ec8eac4c3356f74302aa393d3c060a59a669 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 6 Dec 2008 16:57:28 -0600
Subject: [PATCH] Fix PowerPC backend again
---
basis/cpu/ppc/bootstrap.factor | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/basis/cpu/ppc/bootstrap.factor b/basis/cpu/ppc/bootstrap.factor
index d22ff4d615..445c7082bc 100644
--- a/basis/cpu/ppc/bootstrap.factor
+++ b/basis/cpu/ppc/bootstrap.factor
@@ -329,14 +329,15 @@ big-endian on
! Math
[
3 ds-reg 0 LWZ
- 4 ds-reg -4 LWZ
+ ds-reg ds-reg 4 SUBI
+ 4 ds-reg 0 LWZ
3 3 4 OR
3 3 tag-mask get ANDI
\ f tag-number 4 LI
0 3 0 CMPI
2 BNE
1 tag-fixnum 4 LI
- 4 ds-reg 4 STWU
+ 4 ds-reg 0 STW
] f f f \ both-fixnums? define-sub-primitive
: jit-math ( insn -- )