[commit: ghc] master: Make addSRM to strict additions (33a6df9)
Ian Lynagh <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.ghc |
|---|---|
| Message-ID | <[email protected]> |
Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master http://hackage.haskell.org/trac/ghc/changeset/33a6df972aeef84aada52e2aee5b637f04e8762a >--------------------------------------------------------------- commit 33a6df972aeef84aada52e2aee5b637f04e8762a Author: Ian Lynagh <[email protected]> Date: Thu Sep 20 13:42:03 2012 +0100 Make addSRM to strict additions I assume that this is what is intended, as it is used with foldl' >--------------------------------------------------------------- compiler/nativeGen/RegAlloc/Graph/Stats.hs | 5 ++++- 1 files changed, 4 insertions(+), 1 deletions(-) diff --git a/compiler/nativeGen/RegAlloc/Graph/Stats.hs b/compiler/nativeGen/RegAlloc/Graph/Stats.hs index cb103c8..f85cdb7 100644 --- a/compiler/nativeGen/RegAlloc/Graph/Stats.hs +++ b/compiler/nativeGen/RegAlloc/Graph/Stats.hs @@ -290,5 +290,8 @@ countSRM_instr li -- sigh.. addSRM :: (Int, Int, Int) -> (Int, Int, Int) -> (Int, Int, Int) addSRM (s1, r1, m1) (s2, r2, m2) - = (s1+s2, r1+r2, m1+m2) + = let !s = s1 + s2 + !r = r1 + r2 + !m = m1 + m2 + in (s, r, m)