From 920dbbddf57ff02e0734943bb93dd4cecc5568e0 Mon Sep 17 00:00:00 2001 From: simonmar Date: Wed, 4 May 2005 15:07:47 +0000 Subject: [PATCH] [project @ 2005-05-04 15:07:47 by simonmar] Do *not* inline runSTRep now (see comments for details). --- GHC/ST.lhs | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) 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 -- 1.7.10.4