allocate-with-base-context ( cfg context -- )

Vocabulary

compiler.cfg.register-allocation

Inputs

cfg	an object
context	an object

Outputs

None

Definition

USING: accessors compiler.cfg.liveness
compiler.cfg.register-allocation.ssa.bases continuations kernel
namespaces ;

IN: compiler.cfg.register-allocation

:: allocate-with-base-context ( cfg context -- )
    active-allocation-base-context get :> previous-context
    initial-base-pointers get :> previous-bases context
    active-allocation-base-context set context
    [ bases>> ] [ f ] if* initial-base-pointers set
    [ cfg (allocate-registers) ] [
        previous-context active-allocation-base-context set
        previous-bases initial-base-pointers set
    ] finally ;