From: simonmar <unknown>
Date: Wed, 4 May 2005 15:07:47 +0000 (+0000)
Subject: [project @ 2005-05-04 15:07:47 by simonmar]
X-Git-Tag: cmm-merge2~75
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=920dbbddf57ff02e0734943bb93dd4cecc5568e0;p=haskell-directory.git

[project @ 2005-05-04 15:07:47 by simonmar]
Do *not* inline runSTRep now (see comments for details).
---

diff --git a/GHC/ST.lhs b/GHC/ST.lhs
index cdccb18..413a045 100644
--- a/GHC/ST.lhs
+++ b/GHC/ST.lhs
@@ -145,7 +145,14 @@ runST st = runSTRep (case st of { ST st_rep -> st_rep })
 -- I'm only letting runSTRep be inlined right at the end, in particular *after* full laziness
 -- That's what the "INLINE [0]" says.
 -- 		SLPJ Apr 99
-{-# INLINE [0] runSTRep #-}
+-- {-# INLINE [0] runSTRep #-}
+
+-- SDM: further to the above, inline phase 0 is run *before*
+-- full-laziness at the moment, which means that the above comment is
+-- invalid.  Inlining runSTRep doesn't make a huge amount of
+-- difference, anyway.  Hence:
+
+{-# NOINLINE runSTRep #-}
 runSTRep :: (forall s. STRep s a) -> a
 runSTRep st_rep = case st_rep realWorld# of
 	      		(# _, r #) -> r