2009-02-06 05:38:31 -05:00
|
|
|
! Copyright (C) 2009 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2014-11-16 23:31:32 -05:00
|
|
|
USING: accessors alien.c-types alien.complex.functor kernel
|
|
|
|
|
sequences ;
|
2009-02-06 05:38:31 -05:00
|
|
|
IN: alien.complex
|
|
|
|
|
|
2009-02-12 09:10:21 -05:00
|
|
|
<<
|
|
|
|
|
{ "float" "double" } [ dup "complex-" prepend define-complex-type ] each
|
2010-02-21 13:28:42 -05:00
|
|
|
>>
|
2009-02-12 09:10:21 -05:00
|
|
|
|
2010-02-21 13:28:42 -05:00
|
|
|
<<
|
2009-02-12 09:10:21 -05:00
|
|
|
! This overrides the fact that small structures are never returned
|
2011-11-02 20:13:31 -04:00
|
|
|
! in registers on Linux running on 32-bit x86.
|
2011-10-24 18:57:37 -04:00
|
|
|
\ complex-float lookup-c-type t >>return-in-registers? drop
|
2009-08-13 20:21:44 -04:00
|
|
|
>>
|
