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-on-stack? (stack-value) void* ? prefix ] 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>>`
FFI rewrite part 4: parameter and return value unboxing redesign 2010-05-11 19:11:31 -04:00			`swap return>> large-struct?`
			`[ struct-return-on-stack? (stack-value) void* ? prefix ] when ;`