steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix alien-indirect on PPC

darcs
slava 2006-11-17 02:19:53 +00:00
parent 57f4d59b8c
commit 5581b55c84
2 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
TODO.FACTOR.txt
View File

@ -27,7 +27,6 @@
- recompile get/set/>n/n>/ndrop if needed - recompile get/set/>n/n>/ndrop if needed
- cross-word type inference - cross-word type inference
- callback scheduling issue - callback scheduling issue
- windows crash
- ui docs - ui docs
- some kind of declarative wiring framework for ui - some kind of declarative wiring framework for ui
- overhaul models, set-model* is crap - overhaul models, set-model* is crap

6
library/compiler/ppc/architecture.factor
View File

@ -178,12 +178,10 @@ M: stack-params %freg>stack
: %prepare-alien-indirect ( -- ) : %prepare-alien-indirect ( -- )
"unbox_alien" f %alien-invoke "unbox_alien" f %alien-invoke
"alien_temp" f 12 compile-dlsym 3 1 12 STW ;
3 12 0 STW ;
: %alien-indirect ( -- ) : %alien-indirect ( -- )
"alien_temp" f 12 compile-dlsym 12 1 12 LWZ
12 12 0 LWZ
12 MTLR BLRL ; 12 MTLR BLRL ;
: save-return 0 swap [ return-reg ] keep %freg>stack ; : save-return 0 swap [ return-reg ] keep %freg>stack ;