cpu.ppc: fix alien-indirect

db4
Slava Pestov 2009-05-07 23:26:33 -05:00
parent b9169a6de2
commit e52476f108
1 changed files with 2 additions and 2 deletions

View File

@ -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