Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/841496c8934a488ea8a791ee42b2d1388c920744 >--------------------------------------------------------------- commit 841496c8934a488ea8a791ee42b2d1388c920744 Author: Simon Marlow <[email protected]> Date: Mon Nov 21 14:52:06 2011 +0000 Do not wrap Coercions with ticks (fixes GADT3(profasm)) >--------------------------------------------------------------- compiler/coreSyn/CoreUtils.lhs | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) diff --git a/compiler/coreSyn/CoreUtils.lhs b/compiler/coreSyn/CoreUtils.lhs index 851486b..7e25916 100644 --- a/compiler/coreSyn/CoreUtils.lhs +++ b/compiler/coreSyn/CoreUtils.lhs @@ -223,6 +223,8 @@ mkTick t (Var x) mkTick t (Cast e co) = Cast (mkTick t e) co -- Move tick inside cast +mkTick t (Coercion co) = Coercion co + mkTick t (Lit l) | not (tickishCounts t) = Lit l _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
