basis/alien/complex/complex.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: accessors alien.c-types alien.complex.functor kernel
   4 sequences ;
   5 IN: alien.complex
   6
   7 <<
   8 { "float" "double" } [ dup "complex-" prepend define-complex-type ] each
   9 >>
  10
  11 <<
  12 ! This overrides the fact that small structures are never returned
  13 ! in registers on Linux running on 32-bit x86.
  14 \ complex-float lookup-c-type t >>return-in-registers? drop
  15 >>