14 lines
428 B
Factor
14 lines
428 B
Factor
|
USING: alien.c-types compiler.cfg.builder.alien compiler.cfg.instructions
|
||
|
|
compiler.cfg.registers compiler.cfg.stacks.local compiler.cfg.stacks.tests
|
||
|
|
cpu.architecture kernel make namespaces tools.test ;
|
||
|
|
IN: compiler.cfg.builder.alien.tests
|
||
|
|
|
||
|
|
{
|
||
|
|
{ 2 3 }
|
||
|
|
{ { int-rep f f } { int-rep f f } }
|
||
|
|
V{ T{ ##unbox-any-c-ptr { dst 2 } { src 1 } } }
|
||
|
|
} [
|
||
|
|
test-init
|
||
|
|
[ { c-string int } unbox-parameters ] V{ } make
|
||
|
|
] unit-test
|