projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
c502aec
)
Whitespace only
author
Ian Lynagh
<igloo@earth.li>
Thu, 21 Oct 2010 13:55:51 +0000
(13:55 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Thu, 21 Oct 2010 13:55:51 +0000
(13:55 +0000)
compiler/nativeGen/RegAlloc/Graph/Spill.hs
patch
|
blob
|
history
diff --git
a/compiler/nativeGen/RegAlloc/Graph/Spill.hs
b/compiler/nativeGen/RegAlloc/Graph/Spill.hs
index
d82e8a8
..
2ce028f
100644
(file)
--- a/
compiler/nativeGen/RegAlloc/Graph/Spill.hs
+++ b/
compiler/nativeGen/RegAlloc/Graph/Spill.hs
@@
-292,12
+292,12
@@
type SpillM a = State SpillS a
newUnique :: SpillM Unique
newUnique
- = do us <- gets stateUS
- case splitUniqSupply us of
- (us1, us2)
- -> do let uniq = uniqFromSupply us1
- modify $ \s -> s { stateUS = us2 }
- return uniq
+ = do us <- gets stateUS
+ case splitUniqSupply us of
+ (us1, us2)
+ -> do let uniq = uniqFromSupply us1
+ modify $ \s -> s { stateUS = us2 }
+ return uniq
accSpillSL (r1, s1, l1) (_, s2, l2)
= (r1, s1 + s2, l1 + l2)