74 lines
1.8 KiB
Factor
74 lines
1.8 KiB
Factor
|
USING: accessors alien alien.accessors compiler.cfg
|
||
|
|
compiler.cfg.builder.blocks compiler.cfg.instructions
|
||
|
|
compiler.cfg.intrinsics.alien compiler.test compiler.tree
|
||
|
|
compiler.tree.propagation.info cpu.architecture kernel make
|
||
|
|
math.intervals sequences ;
|
||
|
|
IN: compiler.cfg.intrinsics.alien.tests
|
||
|
|
|
||
|
|
! emit-<displaced-alien>
|
||
|
|
|
||
|
|
: call-<displaced-alien> ( -- #call )
|
||
|
|
T{ #call
|
||
|
|
{ word <displaced-alien> }
|
||
|
|
{ in-d V{ 8583268 8583269 } }
|
||
|
|
{ out-d { 8583267 } }
|
||
|
|
{ info
|
||
|
|
H{
|
||
|
|
{
|
||
|
|
8583267
|
||
|
|
T{ value-info-state
|
||
|
|
{ class object }
|
||
|
|
{ interval full-interval }
|
||
|
|
}
|
||
|
|
}
|
||
|
|
{
|
||
|
|
8583268
|
||
|
|
T{ value-info-state
|
||
|
|
{ class object }
|
||
|
|
{ interval full-interval }
|
||
|
|
}
|
||
|
|
}
|
||
|
|
{
|
||
|
|
8583269
|
||
|
|
T{ value-info-state
|
||
|
|
{ class object }
|
||
|
|
{ interval full-interval }
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} ;
|
||
|
|
|
||
|
|
{
|
||
|
|
V{
|
||
|
|
T{ ##call { word <displaced-alien> } }
|
||
|
|
T{ ##branch }
|
||
|
|
}
|
||
|
|
} [
|
||
|
|
<basic-block> dup set-basic-block
|
||
|
|
call-<displaced-alien> emit-<displaced-alien>
|
||
|
|
predecessors>> first instructions>>
|
||
|
|
] cfg-unit-test
|
||
|
|
|
||
|
|
! emit-alien-cell
|
||
|
|
{
|
||
|
|
V{
|
||
|
|
T{ ##load-integer { dst 3 } { val 0 } }
|
||
|
|
T{ ##add { dst 4 } { src1 3 } { src2 2 } }
|
||
|
|
T{ ##load-memory-imm
|
||
|
|
{ dst 5 }
|
||
|
|
{ base 4 }
|
||
|
|
{ offset 0 }
|
||
|
|
{ rep int-rep }
|
||
|
|
}
|
||
|
|
T{ ##box-alien { dst 7 } { src 5 } { temp 6 } }
|
||
|
|
}
|
||
|
|
} [
|
||
|
|
<basic-block>
|
||
|
|
T{ #call
|
||
|
|
{ word alien-cell }
|
||
|
|
{ in-d V{ 10 20 } }
|
||
|
|
{ out-d { 30 } }
|
||
|
|
} [ emit-alien-cell drop ] V{ } make
|
||
|
|
] cfg-unit-test
|