Fix PowerPC <tuple> intrinsic

2008-03-27 16:24:38 -05:00 · 2008-03-27 16:24:38 -05:00 · af28c3376d
parent 783d7a20da
commit af28c3376d
1 changed files with 1 additions and 1 deletions
--- 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