diff options
| author | Gabor Greif <ggreif@gmail.com> | 2018-06-26 15:29:14 +0200 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2018-06-26 15:29:14 +0200 |
| commit | 629d01a436d8041d44ed2826eb3f75e3f2d9ab47 (patch) | |
| tree | af3f94eece0c57728aa9c50100df8b5e746d6998 /compiler/nativeGen | |
| parent | bb50ecaf2930455a6ecb7268f9c0f2ee909f5361 (diff) | |
| download | haskell-629d01a436d8041d44ed2826eb3f75e3f2d9ab47.tar.gz | |
Typofixes in comments and whitespace only [ci skip]
Diffstat (limited to 'compiler/nativeGen')
| -rw-r--r-- | compiler/nativeGen/RegAlloc/Graph/Stats.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/compiler/nativeGen/RegAlloc/Graph/Stats.hs b/compiler/nativeGen/RegAlloc/Graph/Stats.hs index e3ff226710..ba51a4c060 100644 --- a/compiler/nativeGen/RegAlloc/Graph/Stats.hs +++ b/compiler/nativeGen/RegAlloc/Graph/Stats.hs @@ -267,8 +267,8 @@ pprStatsConflict stats $$ text "\n") --- | For every vreg, dump it's how many conflicts it has and its lifetime --- good for making a scatter plot. +-- | For every vreg, dump how many conflicts it has, and its lifetime. +-- Good for making a scatter plot. pprStatsLifeConflict :: [RegAllocStats statics instr] -> Color.Graph VirtualReg RegClass RealReg -- ^ global register conflict graph @@ -279,10 +279,10 @@ pprStatsLifeConflict stats graph $ foldl' plusSpillCostInfo zeroSpillCostInfo $ [ raSpillCosts s | s@RegAllocStatsStart{} <- stats ] - scatter = map (\r -> let lifetime = case lookupUFM lifeMap r of - Just (_, l) -> l - Nothing -> 0 - Just node = Color.lookupNode graph r + scatter = map (\r -> let lifetime = case lookupUFM lifeMap r of + Just (_, l) -> l + Nothing -> 0 + Just node = Color.lookupNode graph r in parens $ hcat $ punctuate (text ", ") [ doubleQuotes $ ppr $ Color.nodeId node , ppr $ sizeUniqSet (Color.nodeConflicts node) |