diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-20 13:42:03 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-20 13:42:03 +0100 |
| commit | 33a6df972aeef84aada52e2aee5b637f04e8762a (patch) | |
| tree | 202814369b59dd8460a576967afe2a48776098da | |
| parent | 616524d8031449d9f6583cfc879f87ece8f8f8f7 (diff) | |
| download | haskell-33a6df972aeef84aada52e2aee5b637f04e8762a.tar.gz | |
Make addSRM to strict additions
I assume that this is what is intended, as it is used with foldl'
| -rw-r--r-- | 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 cb103c8de4..f85cdb7eff 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) |