Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : new-demand
http://hackage.haskell.org/trac/ghc/changeset/6e5c10de7bb841617b621295c3e5cf51ff5f568a >--------------------------------------------------------------- commit 6e5c10de7bb841617b621295c3e5cf51ff5f568a Author: Ilya Sergey <[email protected]> Date: Tue Aug 14 20:33:56 2012 +0100 one more condition for split >--------------------------------------------------------------- compiler/stranal/NewWorkWrap.lhs | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) diff --git a/compiler/stranal/NewWorkWrap.lhs b/compiler/stranal/NewWorkWrap.lhs index b921844..1013c7f 100644 --- a/compiler/stranal/NewWorkWrap.lhs +++ b/compiler/stranal/NewWorkWrap.lhs @@ -468,6 +468,7 @@ worthSplittingFun ds res worth_it (JD {absd=Abs}) = True -- Absent arg worth_it (JD {strd=SProd _}) = True -- Product arg to evaluate worth_it (JD {strd=Str, absd=UProd _}) = True -- Strictly used product arg + worth_it (JD {strd=Str, absd=UHead}) = True worth_it _ = False worthSplittingThunk :: Demand -- Demand on the thunk _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
