[commit: ghc] master: Fix warnings in RegAlloc.Graph.Stats (616524d)

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/616524d8031449d9f6583cfc879f87ece8f8f8f7

>---------------------------------------------------------------

commit 616524d8031449d9f6583cfc879f87ece8f8f8f7
Author: Ian Lynagh <[email protected]>
Date:   Thu Sep 20 13:40:27 2012 +0100

    Fix warnings in RegAlloc.Graph.Stats

>---------------------------------------------------------------

 compiler/nativeGen/RegAlloc/Graph/Stats.hs |    7 ++++++-
 1 files changed, 6 insertions(+), 1 deletions(-)

diff --git a/compiler/nativeGen/RegAlloc/Graph/Stats.hs b/compiler/nativeGen/RegAlloc/Graph/Stats.hs
index b69ef47..cb103c8 100644
--- a/compiler/nativeGen/RegAlloc/Graph/Stats.hs
+++ b/compiler/nativeGen/RegAlloc/Graph/Stats.hs
@@ -1,4 +1,3 @@
-{-# OPTIONS -fno-warn-missing-signatures #-}
 -- | Carries interesting info for debugging / profiling of the
 --      graph coloring register allocator.
 
@@ -262,10 +261,15 @@ countSRMs
 countSRMs cmm
         = execState (mapBlockTopM countSRM_block cmm) (0, 0, 0)
 
+countSRM_block :: Instruction instr
+               => GenBasicBlock (LiveInstr instr)
+               -> State (Int, Int, Int) (GenBasicBlock (LiveInstr instr))
 countSRM_block (BasicBlock i instrs)
  = do   instrs' <- mapM countSRM_instr instrs
         return  $ BasicBlock i instrs'
 
+countSRM_instr :: Instruction instr
+               => LiveInstr instr -> State (Int, Int, Int) (LiveInstr instr)
 countSRM_instr li
         | LiveInstr SPILL{} _    <- li
         = do    modify  $ \(s, r, m)    -> (s + 1, r, m)
@@ -284,6 +288,7 @@ countSRM_instr li
         =       return 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)