18 lines
462 B
Factor
18 lines
462 B
Factor
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
|
|
] }
|
|
{ [ os "linux" = ] [
|
|
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
|
|
|
|
6 cells set-profiler-prologues
|