|
USING: compiler.cfg.instructions
|
|
compiler.cfg.representations.selection tools.test ;
|
|
IN: compiler.cfg.representations.selection.tests
|
|
|
|
{ t t f } [
|
|
T{ load-integer## } peephole-optimizable?
|
|
T{ shr-imm## } peephole-optimizable?
|
|
T{ call## } peephole-optimizable?
|
|
] unit-test
|