delete-conditional ( bb -- )

Vocabulary

compiler.cfg.useless-conditionals

Inputs

bb

an object

Outputs

None

Definition

USING: accessors compiler.cfg.instructions
compiler.cfg.utilities kernel sequences vectors ;

IN: compiler.cfg.useless-conditionals

: delete-conditional ( bb -- )
    [ first skip-empty-blocks 1vector ] change-successors
    instructions>>
    [ pop* ] [ [ ##branch new-insn ] dip push ] bi ;