split-branch? ( bb -- ? )

Vocabulary

compiler.cfg.branch-splitting

Inputs

bb

an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit
compiler.cfg.utilities kernel math sequences ;

IN: compiler.cfg.branch-splitting

: split-branch? ( bb -- ? )
    dup loop-entry?
    [ drop f ] [
        dup predecessors>> length 1 <=
        [ drop f ] [
            {
                [ short-block? ]
                [ short-tail-block? ]
                [ cond-cond-block? ]
            } 1||
        ] if
    ] if ;