projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix Trac #959: a long-standing bug in instantiating otherwise-unbound type variables
[ghc-hetmet.git]
/
compiler
/
nativeGen
/
RegAlloc
/
Liveness.hs
diff --git
a/compiler/nativeGen/RegAlloc/Liveness.hs
b/compiler/nativeGen/RegAlloc/Liveness.hs
index
8faab5a
..
0c289c1
100644
(file)
--- a/
compiler/nativeGen/RegAlloc/Liveness.hs
+++ b/
compiler/nativeGen/RegAlloc/Liveness.hs
@@
-465,7
+465,8
@@
patchEraseLive patchF cmm
patchCmm (CmmProc info label params (ListGraph comps))
| LiveInfo static id blockMap <- info
patchCmm (CmmProc info label params (ListGraph comps))
| LiveInfo static id blockMap <- info
- = let patchRegSet set = mkUniqSet $ map patchF $ uniqSetToList set
+ = let
+ patchRegSet set = mkUniqSet $ map patchF $ uniqSetToList set
blockMap' = mapBlockEnv patchRegSet blockMap
info' = LiveInfo static id blockMap'
blockMap' = mapBlockEnv patchRegSet blockMap
info' = LiveInfo static id blockMap'
@@
-781,5
+782,3
@@
liveness1 liveregs blockmap instr
live_branch_only)
live_branch_only)
-
-