-- graph coloring register allocation
let ((alloced, regAllocStats), usAlloc)
- = {-# SCC "RegAlloc(color)" #-}
+ = {-# SCC "RegAlloc" #-}
initUs usLive
$ Color.regAlloc
generateRegAllocStats
else do
-- do linear register allocation
let ((alloced, regAllocStats), usAlloc)
- = {-# SCC "RegAlloc(linear)" #-}
+ = {-# SCC "RegAlloc" #-}
initUs usLive
$ liftM unzip
$ mapUs Linear.regAlloc withLiveness