Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/ad7f1292eec8621011b30171f4b2b72c19444850 >--------------------------------------------------------------- commit ad7f1292eec8621011b30171f4b2b72c19444850 Author: Simon Marlow <[email protected]> Date: Wed Aug 24 16:50:55 2011 +0100 fix warning >--------------------------------------------------------------- compiler/codeGen/ClosureInfo.lhs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/codeGen/ClosureInfo.lhs b/compiler/codeGen/ClosureInfo.lhs index de4318a..c4a6c0c 100644 --- a/compiler/codeGen/ClosureInfo.lhs +++ b/compiler/codeGen/ClosureInfo.lhs @@ -736,7 +736,7 @@ blackHoleOnEntry dflags cl_info = case closureLFInfo cl_info of LFReEntrant _ _ _ _ -> False LFLetNoEscape _ -> False - LFThunk _ no_fvs updatable _ _ + LFThunk _ no_fvs _updatable _ _ | eager_blackholing -> doingTickyProfiling dflags || not no_fvs -- the former to catch double entry, -- and the latter to plug space-leaks. KSW/SDM 1999-04. _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
