factor/basis/compiler/alien/alien.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 ;
vm: actually use context callstacks when running code 2010-03-26 22:44:43 -04:00			`! Copyright (C) 2008, 2010 Slava Pestov.`
Checking in new codegen 2008-09-10 23:11:03 -04:00			`! See http://factorcode.org/license.txt for BSD license.`
			`USING: accessors kernel namespaces make math sequences layouts`
struct classes now make their own C type without help from alien.structs. remove alien.structs dependencies from everywhere outside of alien and compiler, and have the FFI handle both alien.structs and classes.struct c-types 2009-09-15 18:38:49 -04:00			`alien.c-types cpu.architecture ;`
Checking in new codegen 2008-09-10 23:11:03 -04:00			`IN: compiler.alien`

vm: actually use context callstacks when running code 2010-03-26 22:44:43 -04:00			`: large-struct? ( type -- ? )`
Working on complex float support in FFI on NetBSD 2009-02-12 07:25:07 -05:00			`dup c-struct? [ return-struct-in-registers? not ] [ drop f ] if ;`
Checking in new codegen 2008-09-10 23:11:03 -04:00
			`: alien-parameters ( params -- seq )`
			`dup parameters>>`
flatten non-integral types to (stack-value) on x86.32 2010-04-01 23:56:43 -04:00			`swap return>> large-struct? [ struct-return-pointer-type prefix ] when ;`
Checking in new codegen 2008-09-10 23:11:03 -04:00
vm: actually use context callstacks when running code 2010-03-26 22:44:43 -04:00			`: alien-return ( params -- type )`
compiler, cpu.x86.32: clean up FFI implementation, in particular 32-bit x86-specific backend 2009-10-20 05:15:10 -04:00			`return>> dup large-struct? [ drop void ] when ;`