compute-live-phis ( -- )

Vocabulary

compiler.cfg.ssa.construction.private

Inputs

None

Outputs

None

Definition

USING: accessors assocs deques kernel namespaces sets ;

IN: compiler.cfg.ssa.construction.private

: compute-live-phis ( -- )
    HS{ } clone live-phis set used-vregs get [
        phis get at [
            [
                dst>>
                [ live-phis get adjoin ] [ phis get delete-at ]
                bi
            ] [
                inputs>>
                [ nip used-vregs get push-front ] assoc-each
            ] bi
        ] when*
    ] slurp-deque ;