From: simonm <unknown>
Date: Fri, 22 May 1998 15:58:03 +0000 (+0000)
Subject: [project @ 1998-05-22 15:58:03 by simonm]
X-Git-Tag: Approx_2487_patches~659
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8bdfa4b885118213f8b71a43aeaf875060bd7572;p=ghc-hetmet.git

[project @ 1998-05-22 15:58:03 by simonm]
- don't inline runST.
---

diff --git a/ghc/lib/exts/LazyST.lhs b/ghc/lib/exts/LazyST.lhs
index 29c7814..7ba3074 100644
--- a/ghc/lib/exts/LazyST.lhs
+++ b/ghc/lib/exts/LazyST.lhs
@@ -60,7 +60,7 @@ instance Monad (ST s) where
            in
            k_a new_s
 
--- ToDo: un-inline this, it could cause problems...
+{-# NOINLINE runST #-}
 runST :: (All s => ST s a) -> a
 runST st = case st of ST st -> let (r,_) = st (PrelST.S# realWorld#) in r
 \end{code}