2007-09-20 18:09:08 -04:00
|
|
|
USING: cpu.ppc.architecture cpu.ppc.intrinsics cpu.architecture
|
|
|
|
|
namespaces alien.c-types kernel system combinators ;
|
|
|
|
|
|
|
|
|
|
{
|
|
|
|
|
{ [ macosx? ] [
|
|
|
|
|
4 "longlong" c-type set-c-type-align
|
|
|
|
|
4 "ulonglong" c-type set-c-type-align
|
|
|
|
|
] }
|
2007-12-30 15:06:37 -05:00
|
|
|
{ [ linux? ] [
|
2007-09-20 18:09:08 -04:00
|
|
|
t "longlong" c-type set-c-type-stack-align?
|
|
|
|
|
t "ulonglong" c-type set-c-type-stack-align?
|
|
|
|
|
] }
|
|
|
|
|
} cond
|
|
|
|
|
|
|
|
|
|
T{ ppc-backend } compiler-backend set-global
|
2008-02-11 17:56:48 -05:00
|
|
|
|
|
|
|
|
macosx? [
|
|
|
|
|
4 "double" c-type set-c-type-align
|
|
|
|
|
] when
|
