cpu.ppc: fix alien-indirect

2009-05-07 23:26:33 -05:00 · 2009-05-07 23:26:33 -05:00 · e52476f108
parent b9169a6de2
commit e52476f108
1 changed files with 2 additions and 2 deletions
--- a/basis/cpu/ppc/ppc.factor
+++ b/basis/cpu/ppc/ppc.factor
@ -652,10 +652,10 @@ M: ppc %alien-callback ( quot -- )

 M: ppc %prepare-alien-indirect ( -- )
    "unbox_alien" f %alien-invoke
-    13 3 MR ;
+    15 3 MR ;

 M: ppc %alien-indirect ( -- )
-    13 MTLR BLRL ;
+    15 MTLR BLRL ;

 M: ppc %callback-value ( ctype -- )
    ! Save top of data stack