From fe780421faeddf0ab986006a295818a7f108d066 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sat, 29 Sep 2007 21:09:10 -0400
Subject: [PATCH] Fix ppc alien intrinsics

---
 core/cpu/ppc/intrinsics/intrinsics.factor | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/core/cpu/ppc/intrinsics/intrinsics.factor b/core/cpu/ppc/intrinsics/intrinsics.factor
index 7edbd12447..6a7aa33cbe 100644
--- a/core/cpu/ppc/intrinsics/intrinsics.factor
+++ b/core/cpu/ppc/intrinsics/intrinsics.factor
@@ -612,14 +612,14 @@ IN: cpu.ppc.intrinsics
             { unboxed-c-ptr "alien" simple-c-ptr }
             { f "offset" fixnum }
         } }
-        { +scratch+ { { f "value" } { f "address" } } }
+        { +scratch+ { { f "value" } } }
         { +output+ { "value" } }
         { +clobber+ { "offset" } }
     } ;
 
 : %alien-integer-get ( quot -- )
     %alien-accessor
-    "output" operand dup %tag-fixnum ; inline
+    "value" operand dup %tag-fixnum ; inline
 
 : alien-integer-set-template
     H{
@@ -628,7 +628,6 @@ IN: cpu.ppc.intrinsics
             { unboxed-c-ptr "alien" simple-c-ptr }
             { f "offset" fixnum }
         } }
-        { +scratch+ { { f "address" } } }
         { +clobber+ { "value" "offset" } }
     } ;
 
@@ -669,8 +668,8 @@ define-alien-integer-intrinsics
         { unboxed-c-ptr "alien" simple-c-ptr }
         { f "offset" fixnum }
     } }
-    { +scratch+ { { unboxed-alien "output" } } }
-    { +output+ { "output" } }
+    { +scratch+ { { unboxed-alien "value" } } }
+    { +output+ { "value" } }
     { +clobber+ { "offset" } }
 } define-intrinsic