Fix alien-indirect on PPC

2006-11-17 02:19:53 +00:00 · 2006-11-17 02:19:53 +00:00 · 5581b55c84
parent 57f4d59b8c
commit 5581b55c84
2 changed files with 2 additions and 5 deletions
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@ -27,7 +27,6 @@
 - recompile get/set/>n/n>/ndrop if needed
 - cross-word type inference
 - callback scheduling issue
- windows crash
 - ui docs
 - some kind of declarative wiring framework for ui
 - overhaul models, set-model* is crap
--- a/library/compiler/ppc/architecture.factor
+++ b/library/compiler/ppc/architecture.factor
@ -178,12 +178,10 @@ M: stack-params %freg>stack

 : %prepare-alien-indirect ( -- )
    "unbox_alien" f %alien-invoke
-    "alien_temp" f 12 compile-dlsym
-    3 12 0 STW ;
+    3 1 12 STW ;

 : %alien-indirect ( -- )
-    "alien_temp" f 12 compile-dlsym
-    12 12 0 LWZ
+    12 1 12 LWZ
    12 MTLR BLRL ;

 : save-return 0 swap [ return-reg ] keep %freg>stack ;