From 4be346cd9c563edac3b4198c0a4420421c666e80 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 1 Sep 2008 18:34:16 -0500
Subject: [PATCH] Fixing PowerPC intrinsics
---
basis/cpu/ppc/intrinsics/intrinsics.factor | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/basis/cpu/ppc/intrinsics/intrinsics.factor b/basis/cpu/ppc/intrinsics/intrinsics.factor
index 6413cf839c..0109bbb26a 100755
--- a/basis/cpu/ppc/intrinsics/intrinsics.factor
+++ b/basis/cpu/ppc/intrinsics/intrinsics.factor
@@ -514,8 +514,8 @@ IN: cpu.ppc.intrinsics
! Alien intrinsics
: %alien-accessor ( quot -- )
"offset" operand dup %untag-fixnum
- "offset" operand dup "alien" operand ADD
- "value" operand "offset" operand 0 roll call ; inline
+ "scratch" operand "offset" operand "alien" operand ADD
+ "value" operand "scratch" operand 0 roll call ; inline
: alien-integer-get-template
H{
@@ -539,6 +539,7 @@ IN: cpu.ppc.intrinsics
{ unboxed-c-ptr "alien" c-ptr }
{ f "offset" fixnum }
} }
+ { +scratch+ { "scratch" } }
{ +clobber+ { "value" "offset" } }
} ;