[commit: ghc] wip/T14677: WIP: exclude casts for now (7d47c16)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/T14677
Link       : http://ghc.haskell.org/trac/ghc/changeset/7d47c16262c8d324aef4f66cc3406f3975d7f6e0/ghc

>---------------------------------------------------------------

commit 7d47c16262c8d324aef4f66cc3406f3975d7f6e0
Author: Gabor Greif <ggreif at gmail.com>
Date:   Sat Jan 27 20:16:52 2018 +0100

    WIP: exclude casts for now


>---------------------------------------------------------------

7d47c16262c8d324aef4f66cc3406f3975d7f6e0
 compiler/codeGen/StgCmmClosure.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/compiler/codeGen/StgCmmClosure.hs b/compiler/codeGen/StgCmmClosure.hs
index 1736bba..f64a311 100644
--- a/compiler/codeGen/StgCmmClosure.hs
+++ b/compiler/codeGen/StgCmmClosure.hs
@@ -68,7 +68,7 @@ module StgCmmClosure (
 
 import GhcPrelude
 
-import CoreSyn( isValueUnfolding, maybeUnfoldingTemplate )
+import CoreSyn( isValueUnfolding, maybeUnfoldingTemplate, Expr(Cast) )
 import CoreOpt( exprIsSatConApp_maybe )
 import StgSyn
 import SMRep
@@ -331,6 +331,9 @@ mkLFImported id
   | isValueUnfolding unf
   , Just expr <- maybeUnfoldingTemplate unf
   , Just con <- exprIsSatConApp_maybe expr
+  , let casted (Cast _ _) = pprTrace "mkLFImported" (ppr unf <+> ppr expr <+> ppr con) True
+        casted _ = False
+  , not $ casted expr
   = LFCon con
 
   | arity > 0