basis/cpu/ppc/ppc.factor

   1 USING: accessors cpu.ppc.architecture cpu.ppc.intrinsics
   2 cpu.architecture namespaces alien.c-types kernel system
   3 combinators ;
   4
   5 {
   6     { [ os macosx? ] [
   7         4 "longlong" c-type (>>align)
   8         4 "ulonglong" c-type (>>align)
   9         4 "double" c-type (>>align)
  10     ] }
  11     { [ os linux? ] [
  12         t "longlong" c-type (>>stack-align?)
  13         t "ulonglong" c-type (>>stack-align?)
  14     ] }
  15 } cond