From 68991fc012af8fdc258281453758de76f9a63fe4 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 31 Aug 2000 19:55:20 +0000
Subject: [PATCH] [project @ 2000-08-31 19:55:20 by simonpj] Add comment
---
ghc/compiler/simplCore/SimplMonad.lhs | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/ghc/compiler/simplCore/SimplMonad.lhs b/ghc/compiler/simplCore/SimplMonad.lhs
index e7dd9c7ca80d..fac41a788bf8 100644
--- a/ghc/compiler/simplCore/SimplMonad.lhs
+++ b/ghc/compiler/simplCore/SimplMonad.lhs
@@ -561,8 +561,10 @@ noInlineBlackList :: BlackList
-- We may as well do the same here.
noInlineBlackList v = not (isCompulsoryUnfolding (idUnfolding v)) &&
not (isDataConWrapId v)
- -- ((v `isInScope` subst) || not (isLocallyDefined v))
- -- I don't see why we have these conditions
+ -- NB: this implementation means that even inlinings *completely within*
+ -- an INLINE won't happen, which is perhaps overkill.
+ -- An earlier verion had: (v `isInScope` subst) || not (isLocallyDefined v)
+ -- but it's more expensive, and it probably doesn't matter.
\end{code}
--
GitLab