Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/1d47564e9f8761c5ea6c5b42720ceea7d4bda2af >--------------------------------------------------------------- commit 1d47564e9f8761c5ea6c5b42720ceea7d4bda2af Author: Simon Marlow <[email protected]> Date: Tue Nov 15 09:26:17 2011 +0000 Don't discard ticks on literals (fixes the HPC "tough" test) >--------------------------------------------------------------- compiler/coreSyn/CoreUtils.lhs | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/compiler/coreSyn/CoreUtils.lhs b/compiler/coreSyn/CoreUtils.lhs index c4b3019..db3bce9 100644 --- a/compiler/coreSyn/CoreUtils.lhs +++ b/compiler/coreSyn/CoreUtils.lhs @@ -224,7 +224,8 @@ mkTick t (Var x) mkTick t (Cast e co) = Cast (mkTick t e) co -- Move tick inside cast -mkTick _ (Lit l) = Lit l +mkTick t (Lit l) + | not (tickishCounts t) = Lit l mkTick t expr@(App f arg) | not (isRuntimeArg arg) = App (mkTick t f) arg _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
