Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/c90d45f2bf1f350a0cc99c60eb81704b25309d53 >--------------------------------------------------------------- commit c90d45f2bf1f350a0cc99c60eb81704b25309d53 Author: Simon Marlow <[email protected]> Date: Thu Sep 20 14:12:05 2012 +0100 fix warnings >--------------------------------------------------------------- compiler/nativeGen/RegAlloc/Linear/StackMap.hs | 5 +---- 1 files changed, 1 insertions(+), 4 deletions(-) diff --git a/compiler/nativeGen/RegAlloc/Linear/StackMap.hs b/compiler/nativeGen/RegAlloc/Linear/StackMap.hs index be9af02..69cf411 100644 --- a/compiler/nativeGen/RegAlloc/Linear/StackMap.hs +++ b/compiler/nativeGen/RegAlloc/Linear/StackMap.hs @@ -27,10 +27,7 @@ module RegAlloc.Linear.StackMap ( where -import RegAlloc.Linear.FreeRegs - import DynFlags -import Outputable import UniqFM import Unique @@ -49,7 +46,7 @@ data StackMap -- | An empty stack map, with all slots available. emptyStackMap :: DynFlags -> StackMap -emptyStackMap dflags = StackMap 0 emptyUFM +emptyStackMap _ = StackMap 0 emptyUFM -- | If this vreg unique already has a stack assignment then return the slot number, _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
