2008-11-07 21:45:25 -05:00
|
|
|
! Copyright (C) 2008 Slava Pestov.
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2008-11-08 21:36:14 -05:00
|
|
|
USING: accessors system kernel layouts
|
|
|
|
alien.c-types cpu.architecture cpu.ppc ;
|
2008-11-07 21:45:25 -05:00
|
|
|
IN: cpu.ppc.macosx
|
|
|
|
|
|
|
|
<<
|
|
|
|
4 "longlong" c-type (>>align)
|
|
|
|
4 "ulonglong" c-type (>>align)
|
|
|
|
4 "double" c-type (>>align)
|
|
|
|
>>
|
|
|
|
|
2008-11-08 21:36:14 -05:00
|
|
|
M: macosx reserved-area-size 6 cells ;
|
2008-11-07 21:45:25 -05:00
|
|
|
|
2008-11-08 21:36:14 -05:00
|
|
|
M: macosx lr-save 2 cells ;
|
2008-11-07 21:45:25 -05:00
|
|
|
|
2008-11-08 21:36:14 -05:00
|
|
|
M: float-regs param-regs drop { 1 2 3 4 5 6 7 8 9 10 11 12 13 } ;
|
2008-11-07 21:45:25 -05:00
|
|
|
|
2008-11-17 14:34:37 -05:00
|
|
|
M: ppc value-struct? drop t ;
|
2008-11-07 21:45:25 -05:00
|
|
|
|
2008-11-08 22:40:47 -05:00
|
|
|
M: ppc dummy-stack-params? t ;
|
|
|
|
|
|
|
|
M: ppc dummy-int-params? t ;
|
|
|
|
|
|
|
|
M: ppc dummy-fp-params? f ;
|