From af28c3376d1e151578cb4e2bcb9dcaf3d94903c4 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@oberon.internal.stack-effects.com>
Date: Thu, 27 Mar 2008 16:24:38 -0500
Subject: [PATCH] Fix PowerPC <tuple> intrinsic
---
core/cpu/ppc/intrinsics/intrinsics.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/core/cpu/ppc/intrinsics/intrinsics.factor b/core/cpu/ppc/intrinsics/intrinsics.factor
index 8a2f41ec12..0aef15ba99 100755
--- a/core/cpu/ppc/intrinsics/intrinsics.factor
+++ b/core/cpu/ppc/intrinsics/intrinsics.factor
@@ -481,7 +481,7 @@ IN: cpu.ppc.intrinsics
\ <tuple> [
tuple "layout" get layout-size 2 + cells %allot
! Store layout
- "layout" operand 12 LOAD32
+ "layout" get 12 load-indirect
12 11 cell STW
! Zero out the rest of the tuple
f v>operand 12 LI