diff options
Diffstat (limited to 'compiler/GHC/CmmToAsm/Reg/Graph.hs')
| -rw-r--r-- | compiler/GHC/CmmToAsm/Reg/Graph.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/CmmToAsm/Reg/Graph.hs b/compiler/GHC/CmmToAsm/Reg/Graph.hs index 9cbe12caee..9a2fb94e49 100644 --- a/compiler/GHC/CmmToAsm/Reg/Graph.hs +++ b/compiler/GHC/CmmToAsm/Reg/Graph.hs @@ -319,7 +319,7 @@ buildGraph code -- Add the reg-reg conflicts to the graph. let conflictBag = unionManyBags conflictList let graph_conflict - = foldr graphAddConflictSet Color.initGraph conflictBag + = foldr graphAddConflictSet Color.initGraph conflictBag -- -- Add the coalescences edges to the graph. let moveBag @@ -327,7 +327,7 @@ buildGraph code (unionManyBags moveList) let graph_coalesce - = foldr graphAddCoalesce graph_conflict moveBag + = foldr graphAddCoalesce graph_conflict moveBag -- return graph_coalesce @@ -345,7 +345,7 @@ graphAddConflictSet set graph graph1 = Color.addConflicts virtuals classOfVirtualReg graph - graph2 = foldr (\(r1, r2) -> Color.addExclusion r1 classOfVirtualReg r2) + graph2 = foldr (\(r1, r2) -> Color.addExclusion r1 classOfVirtualReg r2) -- graph1 [ (vr, rr) | RegVirtual vr <- nonDetEltsUniqSet set |