summaryrefslogtreecommitdiff
path: root/compiler/codeGen/StgCmmGran.hs
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2008-12-09 22:24:13 +0000
committerIan Lynagh <igloo@earth.li>2008-12-09 22:24:13 +0000
commitee2623c8841a3a26c37bd7695a7db7be5d7e3a7f (patch)
tree3d0499d97705bcc3aa935e1cf28a7b9e7577eeaf /compiler/codeGen/StgCmmGran.hs
parent0345a8378429e10e0c4feb7a6be2f9f132699b81 (diff)
downloadhaskell-ee2623c8841a3a26c37bd7695a7db7be5d7e3a7f.tar.gz
Fix warnings in StgCmmGran
Diffstat (limited to 'compiler/codeGen/StgCmmGran.hs')
-rw-r--r--compiler/codeGen/StgCmmGran.hs17
1 files changed, 3 insertions, 14 deletions
diff --git a/compiler/codeGen/StgCmmGran.hs b/compiler/codeGen/StgCmmGran.hs
index 5fad2bfc09..27e6114356 100644
--- a/compiler/codeGen/StgCmmGran.hs
+++ b/compiler/codeGen/StgCmmGran.hs
@@ -8,13 +8,6 @@
--
-----------------------------------------------------------------------------
-{-# OPTIONS -w #-}
--- The above warning supression flag is a temporary kludge.
--- While working on this module you are encouraged to remove it and fix
--- any warnings in the module. See
--- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
--- for details
-
module StgCmmGran (
staticGranHdr,staticParHdr,
granThunk, granYield,
@@ -26,7 +19,6 @@ module StgCmmGran (
-- I've left the calls, though, in case anyone wants to resurrect it
import StgCmmMonad
-import Id
import Cmm
staticGranHdr :: [CmmLit]
@@ -37,16 +29,13 @@ staticParHdr = []
doGranAllocate :: VirtualHpOffset -> FCode ()
-- Must be lazy in the amount of allocation
-doGranAllocate n = return ()
-
-granFetchAndReschedule :: [(Id,GlobalReg)] -> Bool -> FCode ()
-granFetchAndReschedule regs node_reqd = return ()
+doGranAllocate _ = return ()
granYield :: [LocalReg] -> Bool -> FCode ()
-granYield regs node_reqd = return ()
+granYield _regs _node_reqd = return ()
granThunk :: Bool -> FCode ()
-granThunk node_points = return ()
+granThunk _node_points = return ()
-----------------------------------------------------------------
{- ------- Everything below here is commented out -------------