merge-acs ( vreg into -- )

Vocabulary

compiler.cfg.alias-analysis

Inputs

vreg	an object
into	an object

Outputs

None

Definition

USING: assocs kernel namespaces sequences ;

IN: compiler.cfg.alias-analysis

: merge-acs ( vreg into -- )
    [ vreg>ac ] dip 2dup eq?
    [ 2drop ] [
        [ ac>vregs ] dip [
            vregs>acs get [ [ ] curry ] dip
            [ [ dip ] curry ] dip [ set-at ] curry compose each
        ] [ ac>vregs push-all ] 2bi
    ] if ;