Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/cf247224bb2f48416f2a93be179cd9bc0ecfd0b2 >--------------------------------------------------------------- commit cf247224bb2f48416f2a93be179cd9bc0ecfd0b2 Author: Edward Z. Yang <[email protected]> Date: Wed Jun 15 00:46:01 2011 +0100 Add type signature to invalidateVolatile. Signed-off-by: Edward Z. Yang <[email protected]> >--------------------------------------------------------------- compiler/cmm/CmmRewriteAssignments.hs | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) diff --git a/compiler/cmm/CmmRewriteAssignments.hs b/compiler/cmm/CmmRewriteAssignments.hs index d4d0e0c..56045d5 100644 --- a/compiler/cmm/CmmRewriteAssignments.hs +++ b/compiler/cmm/CmmRewriteAssignments.hs @@ -24,6 +24,7 @@ import StgCmmUtils import Control.Monad import UniqFM import Unique +import BlockId import Compiler.Hoopl hiding (Unique) import Data.Maybe @@ -449,6 +450,7 @@ lastAssignment l assign = map (\id -> (id, deleteSinks l assign)) $ successors l -- Note: mapUFM could be expensive, but hopefully block boundaries -- aren't too common. If it is a problem, replace with something more -- clever. +invalidateVolatile :: BlockId -> AssignmentMap -> AssignmentMap invalidateVolatile k m = mapUFM p m where p (AlwaysInline e) = if exp e then AlwaysInline e else NeverOptimize where exp CmmLit{} = True _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
