[commit: ghc] wip/T13861: trace less (25628d1)

git at git.haskell.org git at git.haskell.org
Fri Dec 22 11:38:14 UTC 2017


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

On branch  : wip/T13861
Link       : http://ghc.haskell.org/trac/ghc/changeset/25628d1824f84fddd10baad3225524237ffd1b48/ghc

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

commit 25628d1824f84fddd10baad3225524237ffd1b48
Author: Gabor Greif <ggreif at gmail.com>
Date:   Fri Dec 22 12:26:38 2017 +0100

    trace less


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

25628d1824f84fddd10baad3225524237ffd1b48
 compiler/simplStg/StgCse.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/simplStg/StgCse.hs b/compiler/simplStg/StgCse.hs
index 9b3bb26..3712956 100644
--- a/compiler/simplStg/StgCse.hs
+++ b/compiler/simplStg/StgCse.hs
@@ -332,7 +332,7 @@ stgCseExpr env (StgCase scrut bndr ty alts)
 -- To be removed by a variable use when found in the CSE environment
 stgCseExpr env (StgConApp dataCon args tys)
     | Just bndr' <- envLookup dc args' env
-    = (if getKey u < 0 then pprTrace "stgCseExpr" (ppr dataCon <+> text (show $ length (dataConOrigArgTys dataCon)) <+> (text . show $ tyConFamilySize (dataConTyCon dataCon))) else id) $ StgApp bndr' []
+    = StgApp bndr' []
     | otherwise
     = StgConApp dataCon args' tys
   where args' = substArgs env args



More information about the ghc-commits mailing list