register-status ( new registers -- free-pos )


Vocabulary
compiler.cfg.linear-scan.allocation

Inputs
newan object
registersan object


Outputs
free-posan object


Definition
USING: compiler.cfg.linear-scan.live-intervals
compiler.utilities kernel ;

IN: compiler.cfg.linear-scan.allocation

: register-status ( new registers -- free-pos )
over interval-reg-class free-positions
[ [ inactive-positions ] [ active-positions ] 2bi ] keep
alist-max ;