diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2016-08-06 12:56:50 +0000 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2016-08-06 13:10:30 +0000 |
| commit | 3bfe6a52783d00d0f7231a2d58c6279c8a580812 (patch) | |
| tree | 22e542050dbc6f9a049598273008f661a0180871 /compiler/nativeGen/RegAlloc/Graph/Main.hs | |
| parent | 03af3990e65093ff8230ceab67f0c9bcf3ce8684 (diff) | |
| download | haskell-3bfe6a52783d00d0f7231a2d58c6279c8a580812.tar.gz | |
RegAlloc: Remove duplicate seqList (use seqList from Util)
Diffstat (limited to 'compiler/nativeGen/RegAlloc/Graph/Main.hs')
| -rw-r--r-- | compiler/nativeGen/RegAlloc/Graph/Main.hs | 21 |
1 files changed, 7 insertions, 14 deletions
diff --git a/compiler/nativeGen/RegAlloc/Graph/Main.hs b/compiler/nativeGen/RegAlloc/Graph/Main.hs index 0b10f3c1e3..97c2b42e82 100644 --- a/compiler/nativeGen/RegAlloc/Graph/Main.hs +++ b/compiler/nativeGen/RegAlloc/Graph/Main.hs @@ -16,13 +16,14 @@ import TargetReg import RegClass import Reg -import UniqSupply -import UniqSet -import UniqFM import Bag +import DynFlags import Outputable import Platform -import DynFlags +import UniqFM +import UniqSet +import UniqSupply +import Util (seqList) import Data.List import Data.Maybe @@ -221,7 +222,7 @@ regAlloc_spin dflags spinCount triv regsFree slotsFree debug_codeGraphs code else [] -- Ensure all the statistics are evaluated, to avoid space leaks. - seqList statList `seq` return () + seqList statList (return ()) return ( code_final , statList @@ -268,7 +269,7 @@ regAlloc_spin dflags spinCount triv regsFree slotsFree debug_codeGraphs code else [] -- Ensure all the statistics are evaluated, to avoid space leaks. - seqList statList `seq` return () + seqList statList (return ()) regAlloc_spin dflags (spinCount + 1) triv regsFree slotsFree' statList @@ -447,11 +448,3 @@ seqRealRegList rs = case rs of [] -> () (r : rs) -> seqRealReg r `seq` seqRealRegList rs - -seqList :: [a] -> () -seqList ls - = case ls of - [] -> () - (r : rs) -> r `seq` seqList rs - - |