14 lines
465 B
Factor
14 lines
465 B
Factor
! Copyright (C) 2009 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: alien.c-types alien.structs alien.complex.functor accessors
|
|
sequences kernel ;
|
|
IN: alien.complex
|
|
|
|
<<
|
|
{ "float" "double" } [ dup "complex-" prepend define-complex-type ] each
|
|
|
|
! This overrides the fact that small structures are never returned
|
|
! in registers on NetBSD, Linux and Solaris running on 32-bit x86.
|
|
"complex-float" c-type t >>return-in-registers? drop
|
|
>>
|