! 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 2dup dlsym CALL t rel-dlsym
] "generator" set-word-prop

\ alien-global [
    uncons load-dll 2dup dlsym EAX swap unit MOV f rel-dlsym
] "generator" set-word-prop

#parameters [
    drop
] "generator" set-word-prop

: UNBOX cdr dup f dlsym CALL f t rel-dlsym ;

#unbox [
    UNBOX  EAX PUSH
] "generator" set-word-prop

#unbox-float [
    UNBOX  ESP 4 SUB  [ ESP ] FSTPS
] "generator" set-word-prop

#unbox-double [
    UNBOX  ESP 8 SUB  [ ESP ] FSTPL
] "generator" set-word-prop

#parameter [
    #! x86 does not pass parameters in registers
    drop
] "generator" set-word-prop

: BOX dup f dlsym CALL f t rel-dlsym  EAX POP ;

#box [
    EAX PUSH  BOX
] "generator" set-word-prop

#box-float [
    ESP 4 SUB  [ ESP ] FSTPS  BOX
] "generator" set-word-prop

#box-double [
    ESP 8 SUB  [ ESP ] FSTPL  BOX  ECX POP
] "generator" set-word-prop

#cleanup [
    dup 0 = [ drop ] [ ESP swap ADD ] ifte
] "generator" set-word-prop