factor/library/compiler/ppc/alien.factor

33 lines
796 B
Factor
Raw Normal View History

2005-04-23 19:34:06 -04:00
! Copyright (C) 2005 Slava Pestov.
! See http://factor.sf.net/license.txt for BSD license.
IN: assembler
USING: alien compiler inference kernel kernel-internals lists
2005-04-23 19:34:06 -04:00
math memory namespaces words ;
\ alien-invoke [
uncons load-dll 2dup rel-dlsym-16/16 dlsym compile-call-far
2005-04-23 19:34:06 -04:00
] "generator" set-word-prop
#parameters [
dup 0 = [ drop ] [ 16 align 1 1 rot SUBI ] ifte
2005-04-23 19:34:06 -04:00
] "generator" set-word-prop
: stack@ cell * cell + ;
2005-04-23 19:34:06 -04:00
#unbox [
uncons f 2dup rel-dlsym-16/16 dlsym compile-call-far
3 1 rot stack@ STW
2005-04-23 19:34:06 -04:00
] "generator" set-word-prop
#parameter [
dup 3 + 1 rot stack@ LWZ
2005-04-23 19:34:06 -04:00
] "generator" set-word-prop
#box [
f 2dup rel-dlsym-16/16 dlsym compile-call-far
2005-04-23 19:34:06 -04:00
] "generator" set-word-prop
#cleanup [
dup 0 = [ drop ] [ 16 align 1 1 rot ADDI ] ifte
2005-04-23 19:34:06 -04:00
] "generator" set-word-prop