perform-loop-optimization ( cfg -- )

Vocabulary

compiler.cfg.loop-optimization

Inputs

cfg

an object

Outputs

None

Definition

USING: accessors assocs compiler.cfg.loop-detection kernel
namespaces sequences sets sorting ;

IN: compiler.cfg.loop-optimization

: perform-loop-optimization ( cfg -- )
    H{ } clone loop-optimization-statistics set
    dup loop-cfg-has-pointer-seed?
    [ drop "pointer-seed-cfgs" count-loop-event ] [
        dup needs-loops loops get values
        [ blocks>> cardinality ] sort-by [ header>> ] map
        [ optimize-one-loop ] with each
    ] if ;