32 lines
617 B
Factor
32 lines
617 B
Factor
PROVIDE: core/compiler/arm
|
|
{ +files+ {
|
|
"assembler.factor"
|
|
"architecture.factor"
|
|
"allot.factor"
|
|
"intrinsics.factor"
|
|
} }
|
|
{ +tests+ {
|
|
"test.factor"
|
|
} } ;
|
|
|
|
! EABI passes floats in integer registers.
|
|
USING: alien generator kernel math ;
|
|
|
|
[ alien-float ]
|
|
[ >r >r >float r> r> set-alien-float ]
|
|
4
|
|
"box_float"
|
|
"to_float" <primitive-type>
|
|
"float" define-primitive-type
|
|
|
|
[ >float ] "float" c-type set-c-type-prep
|
|
|
|
[ alien-double ]
|
|
[ >r >r >float r> r> set-alien-double ]
|
|
8
|
|
"box_double"
|
|
"to_double" <primitive-type> <long-long-type>
|
|
"double" define-primitive-type
|
|
|
|
[ >float ] "double" c-type set-c-type-prep
|