diff options
| author | benl@ouroborus.net <unknown> | 2010-07-02 05:33:19 +0000 |
|---|---|---|
| committer | benl@ouroborus.net <unknown> | 2010-07-02 05:33:19 +0000 |
| commit | fd8a24fdce1ff65c4d8f89955b8dd0dc4511ccc8 (patch) | |
| tree | 88e2c51f994ba632991426a725bb336ec524958e /compiler/utils/GraphOps.hs | |
| parent | 320738062c7a81f062c5adab98a1a1c4fdbd4bc7 (diff) | |
| download | haskell-fd8a24fdce1ff65c4d8f89955b8dd0dc4511ccc8.tar.gz | |
NCG: Don't worry about trying to re-freeze missing coalescences
Diffstat (limited to 'compiler/utils/GraphOps.hs')
| -rw-r--r-- | compiler/utils/GraphOps.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/compiler/utils/GraphOps.hs b/compiler/utils/GraphOps.hs index 87e77bfc83..388b96844c 100644 --- a/compiler/utils/GraphOps.hs +++ b/compiler/utils/GraphOps.hs @@ -420,8 +420,7 @@ freezeNode freezeNode k = graphMapModify $ \fm -> - let - -- freeze all the edges in the node to be frozen + let -- freeze all the edges in the node to be frozen Just node = lookupUFM fm k node' = node { nodeCoalesce = emptyUniqSet } @@ -431,9 +430,9 @@ freezeNode k -- update back edges pointing to this node freezeEdge k node = if elementOfUniqSet k (nodeCoalesce node) - then node - { nodeCoalesce = delOneFromUniqSet (nodeCoalesce node) k } - else panic "GraphOps.freezeNode: edge to freeze wasn't in the coalesce set" + then node { nodeCoalesce = delOneFromUniqSet (nodeCoalesce node) k } + else node -- panic "GraphOps.freezeNode: edge to freeze wasn't in the coalesce set" + -- If the edge isn't actually in the coelesce set then just ignore it. fm2 = foldUniqSet (adjustUFM (freezeEdge k)) fm1 $ nodeCoalesce node |