16 lines
537 B
Factor
16 lines
537 B
Factor
! Copyright (C) 2008, 2010 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors kernel namespaces make math sequences layouts
|
|
alien.c-types cpu.architecture ;
|
|
IN: compiler.alien
|
|
|
|
: large-struct? ( type -- ? )
|
|
dup c-struct? [ return-struct-in-registers? not ] [ drop f ] if ;
|
|
|
|
: alien-parameters ( params -- seq )
|
|
dup parameters>>
|
|
swap return>> large-struct? [ struct-return-pointer-type prefix ] when ;
|
|
|
|
: alien-return ( params -- type )
|
|
return>> dup large-struct? [ drop void ] when ;
|