basis/cpu/ppc/ppc.factor

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