47 lines
1.3 KiB
Factor
47 lines
1.3 KiB
Factor
! Copyright (C) 2008 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors kernel namespaces make math sequences layouts
|
|
alien.c-types alien.structs compiler.backend ;
|
|
IN: compiler.alien
|
|
|
|
! Common utilities
|
|
|
|
: large-struct? ( ctype -- ? )
|
|
dup c-struct? [
|
|
heap-size struct-small-enough? not
|
|
] [ drop f ] if ;
|
|
|
|
: alien-parameters ( params -- seq )
|
|
dup parameters>>
|
|
swap return>> large-struct? [ "void*" prefix ] when ;
|
|
|
|
: alien-return ( params -- ctype )
|
|
return>> dup large-struct? [ drop "void" ] when ;
|
|
|
|
: c-type-stack-align ( type -- align )
|
|
dup c-type-stack-align? [ c-type-align ] [ drop cell ] if ;
|
|
|
|
: parameter-align ( n type -- n delta )
|
|
over >r c-type-stack-align align dup r> - ;
|
|
|
|
: parameter-sizes ( types -- total offsets )
|
|
#! Compute stack frame locations.
|
|
[
|
|
0 [
|
|
[ parameter-align drop dup , ] keep stack-size +
|
|
] reduce cell align
|
|
] { } make ;
|
|
|
|
: return-size ( ctype -- n )
|
|
#! Amount of space we reserve for a return value.
|
|
dup large-struct? [ heap-size ] [ drop 0 ] if ;
|
|
|
|
: alien-stack-frame ( params -- n )
|
|
alien-parameters parameter-sizes drop ;
|
|
|
|
: alien-invoke-frame ( params -- n )
|
|
#! One cell is temporary storage, temp@
|
|
dup return>> return-size
|
|
swap alien-stack-frame +
|
|
cell + ;
|