[commit: ghc] wip/T14677: trace original id (c71c538)
git at git.haskell.org
git at git.haskell.org
Sun Mar 31 15:07:53 UTC 2019
Repository : ssh://git@git.haskell.org/ghc
On branch : wip/T14677
Link : http://ghc.haskell.org/trac/ghc/changeset/c71c538537de476bd9533e2448a35aaab8f45395/ghc
>---------------------------------------------------------------
commit c71c538537de476bd9533e2448a35aaab8f45395
Author: Gabor Greif <ggreif at gmail.com>
Date: Sun Jan 6 15:05:49 2019 +0100
trace original id
>---------------------------------------------------------------
c71c538537de476bd9533e2448a35aaab8f45395
compiler/codeGen/StgCmmClosure.hs | 1 +
1 file changed, 1 insertion(+)
diff --git a/compiler/codeGen/StgCmmClosure.hs b/compiler/codeGen/StgCmmClosure.hs
index b220b12..b5c257c 100644
--- a/compiler/codeGen/StgCmmClosure.hs
+++ b/compiler/codeGen/StgCmmClosure.hs
@@ -332,6 +332,7 @@ mkLFImported id
| isValueUnfolding unf
, Just expr <- maybeUnfoldingTemplate unf
, Just con <- exprIsSatConApp_maybe expr
+ , if mayHaveCafRefs (idCafInfo id) then pprTrace "caffy #+##" (ppr id <+> ppr expr) True else True
= LFCon con
| arity > 0
More information about the ghc-commits
mailing list