From: simonpj <unknown>
Date: Thu, 31 Aug 2000 19:55:20 +0000 (+0000)
Subject: [project @ 2000-08-31 19:55:20 by simonpj]
X-Git-Tag: Approximately_9120_patches~3815
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=68991fc012af8fdc258281453758de76f9a63fe4;p=ghc-hetmet.git

[project @ 2000-08-31 19:55:20 by simonpj]
Add comment
---

diff --git a/ghc/compiler/simplCore/SimplMonad.lhs b/ghc/compiler/simplCore/SimplMonad.lhs
index e7dd9c7..fac41a7 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}