[commit: ghc] wip/12368: Comments only: Refer to actually existing Notes (7fd2585)
git at git.haskell.org
git at git.haskell.org
Thu Aug 18 13:28:18 UTC 2016
Repository : ssh://git@git.haskell.org/ghc
On branch : wip/12368
Link : http://ghc.haskell.org/trac/ghc/changeset/7fd2585c2a4fe47d8f4e028e672071d2d044f343/ghc
>---------------------------------------------------------------
commit 7fd2585c2a4fe47d8f4e028e672071d2d044f343
Author: Joachim Breitner <mail at joachim-breitner.de>
Date: Sun Jul 31 20:59:54 2016 -0400
Comments only: Refer to actually existing Notes
>---------------------------------------------------------------
7fd2585c2a4fe47d8f4e028e672071d2d044f343
compiler/stranal/DmdAnal.hs | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/compiler/stranal/DmdAnal.hs b/compiler/stranal/DmdAnal.hs
index c7f0767..44d2d20 100644
--- a/compiler/stranal/DmdAnal.hs
+++ b/compiler/stranal/DmdAnal.hs
@@ -67,8 +67,9 @@ dmdAnalTopBind sigs (NonRec id rhs)
( _, _, _, rhs1) = dmdAnalRhsLetDown TopLevel Nothing sigs id rhs
(sig, _, id2, rhs2) = dmdAnalRhsLetDown TopLevel Nothing (nonVirgin sigs) id rhs1
-- Do two passes to improve CPR information
- -- See comments with ignore_cpr_info in mk_sig_ty
- -- and with extendSigsWithLam
+ -- See Note [CPR for thunks]
+ -- See Note [Optimistic CPR in the "virgin" case]
+ -- See Note [Initial CPR for strict binders]
dmdAnalTopBind sigs (Rec pairs)
= (sigs', Rec pairs')
More information about the ghc-commits
mailing list