gap-start ( range -- start )

Vocabulary

compiler.cfg.register-allocation.backtracking

Inputs

range

an object

Outputs

start

an object

Definition

USING: assocs kernel math namespaces sequences ;

IN: compiler.cfg.register-allocation.backtracking

:: gap-start ( range -- start )
    range first :> start start 2 mod 0 =
    start backtracking-block-starts get key? or
    [ start ] [ start 1 + ] if ;