diff options
| author | Bartosz Nitka <niteria@gmail.com> | 2016-06-30 08:20:41 -0700 |
|---|---|---|
| committer | Bartosz Nitka <niteria@gmail.com> | 2016-06-30 10:22:41 -0700 |
| commit | 480e0661fb45395610d6b4a7c586a580d30d8df4 (patch) | |
| tree | cc4a0effeaa3a46ea370496fb2a2143448b168f6 /compiler/nativeGen/RegAlloc/Graph | |
| parent | b6b20a5074ad7d712b4d8448043fc25e4c7bcdaa (diff) | |
| download | haskell-480e0661fb45395610d6b4a7c586a580d30d8df4.tar.gz | |
Remove ufmToList
This documents nondeterminism in code generation and removes
the nondeterministic ufmToList function. In the future someone
will have to use nonDetUFMToList (with proper explanation)
or pprUFMWithKeys.
Diffstat (limited to 'compiler/nativeGen/RegAlloc/Graph')
| -rw-r--r-- | compiler/nativeGen/RegAlloc/Graph/Stats.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/nativeGen/RegAlloc/Graph/Stats.hs b/compiler/nativeGen/RegAlloc/Graph/Stats.hs index 07f4266b48..cfd8f83122 100644 --- a/compiler/nativeGen/RegAlloc/Graph/Stats.hs +++ b/compiler/nativeGen/RegAlloc/Graph/Stats.hs @@ -129,7 +129,7 @@ instance (Outputable statics, Outputable instr) $$ (if (not $ isNullUFM $ raCoalesced s) then text "# Registers coalesced." - $$ (vcat $ map ppr $ ufmToList $ raCoalesced s) + $$ (pprUFMWithKeys (raCoalesced s) (vcat . map ppr)) $$ text "" else empty) @@ -160,7 +160,7 @@ instance (Outputable statics, Outputable instr) $$ (if (not $ isNullUFM $ raCoalesced s) then text "# Registers coalesced." - $$ (vcat $ map ppr $ ufmToList $ raCoalesced s) + $$ (pprUFMWithKeys (raCoalesced s) (vcat . map ppr)) $$ text "" else empty) |