From 5581b55c84f7fe568489a524cf0c041293600583 Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Fri, 17 Nov 2006 02:19:53 +0000
Subject: [PATCH] Fix alien-indirect on PPC

---
 TODO.FACTOR.txt                          | 1 -
 library/compiler/ppc/architecture.factor | 6 ++----
 2 files changed, 2 insertions(+), 5 deletions(-)

diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index b2fec9b7f8..0f05d8def9 100644
--- 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
diff --git a/library/compiler/ppc/architecture.factor b/library/compiler/ppc/architecture.factor
index 279a857839..4a41ce0525 100644
--- 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 ;