28 lines
833 B
Factor
28 lines
833 B
Factor
! Copyright (C) 2005 Slava Pestov.
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
|
IN: assembler
|
|
USING: alien compiler compiler-backend inference kernel
|
|
kernel-internals lists math memory namespaces words ;
|
|
|
|
M: %alien-invoke generate-node ( vop -- )
|
|
uncons load-library 2dup 1 rel-dlsym dlsym compile-call-far ;
|
|
|
|
: stack-size 8 + 16 align ;
|
|
: stack@ 3 + cell * ;
|
|
|
|
M: %parameters generate-node ( vop -- )
|
|
dup 0 = [ drop ] [ stack-size 1 1 rot SUBI ] ifte ;
|
|
|
|
M: %unbox generate-node ( vop -- )
|
|
uncons f 2dup 1 rel-dlsym dlsym compile-call-far
|
|
3 1 rot stack@ STW ;
|
|
|
|
M: %parameter generate-node ( vop -- )
|
|
dup 3 + 1 rot stack@ LWZ ;
|
|
|
|
M: %box generate-node ( vop -- )
|
|
f 2dup 1 rel-dlsym dlsym compile-call-far ;
|
|
|
|
M: %cleanup generate-node ( vop -- )
|
|
dup 0 = [ drop ] [ stack-size 1 1 rot ADDI ] ifte ;
|