diff options
author | Bartosz Nitka <niteria@gmail.com> | 2016-04-28 13:35:14 -0700 |
---|---|---|
committer | Bartosz Nitka <niteria@gmail.com> | 2016-04-28 13:38:04 -0700 |
commit | 731292317a928e397478377d4273f22213658cbe (patch) | |
tree | 67f77725a3565d904c68755e523763504c6af574 /compiler/nativeGen/RegAlloc/Graph | |
parent | 3c426b0552dffa82f1663f2eca19188afe247865 (diff) | |
download | haskell-731292317a928e397478377d4273f22213658cbe.tar.gz |
Kill mapUniqSet
Note [Unsound mapUniqSet] explains why it got removed.
Test Plan: build ghc
Reviewers: simonpj, austin, bgamari
Reviewed By: bgamari
Subscribers: thomie, simonmar
Differential Revision: https://phabricator.haskell.org/D2152
Diffstat (limited to 'compiler/nativeGen/RegAlloc/Graph')
-rw-r--r-- | compiler/nativeGen/RegAlloc/Graph/SpillCost.hs | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/compiler/nativeGen/RegAlloc/Graph/SpillCost.hs b/compiler/nativeGen/RegAlloc/Graph/SpillCost.hs index a797514482..8860ebc7e0 100644 --- a/compiler/nativeGen/RegAlloc/Graph/SpillCost.hs +++ b/compiler/nativeGen/RegAlloc/Graph/SpillCost.hs @@ -136,12 +136,8 @@ slurpSpillCostInfo platform cmm -- | Take all the virtual registers from this set. takeVirtuals :: UniqSet Reg -> UniqSet VirtualReg -takeVirtuals set - = mapUniqSet get_virtual - $ filterUniqSet isVirtualReg set - where - get_virtual (RegVirtual vr) = vr - get_virtual _ = panic "getVirt" +takeVirtuals set = mkUniqSet + [ vr | RegVirtual vr <- uniqSetToList set ] -- | Choose a node to spill from this graph |