31 lines
698 B
Factor
31 lines
698 B
Factor
|
! Copyright (C) 2005 Slava Pestov.
|
||
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
||
|
|
IN: compiler
|
||
|
|
USING: alien assembler inference kernel kernel-internals lists
|
||
|
|
math memory namespaces words ;
|
||
|
|
|
||
|
|
\ alien-invoke [
|
||
|
|
uncons load-dll dlsym compile-call-far
|
||
|
|
] "generator" set-word-prop
|
||
|
|
|
||
|
|
#parameters [
|
||
|
|
dup 0 = [ drop ] [ 1 1 rot SUBI ] ifte
|
||
|
|
] "generator" set-word-prop
|
||
|
|
|
||
|
|
#unbox [
|
||
|
|
uncons f dlsym compile-call-far
|
||
|
|
3 1 rot neg 4 - STW
|
||
|
|
] "generator" set-word-prop
|
||
|
|
|
||
|
|
#parameter [
|
||
|
|
dup 3 + 1 rot cell * neg 4 - LWZ
|
||
|
|
] "generator" set-word-prop
|
||
|
|
|
||
|
|
#box [
|
||
|
|
f dlsym compile-call-far
|
||
|
|
] "generator" set-word-prop
|
||
|
|
|
||
|
|
#cleanup [
|
||
|
|
dup 0 = [ drop ] [ 1 1 rot ADDI ] ifte
|
||
|
|
] "generator" set-word-prop
|