From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 21 Apr 2010 08:20:41 +0000 (+0000)
Subject: add NOINLINE pragmas for stdin/stdout/stderr
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8bbf60754dfcd86daee2faf09c87b6ee509ec553;p=ghc-base.git

add NOINLINE pragmas for stdin/stdout/stderr
---

diff --git a/GHC/IO/Handle/FD.hs b/GHC/IO/Handle/FD.hs
index 6922732..227816b 100644
--- a/GHC/IO/Handle/FD.hs
+++ b/GHC/IO/Handle/FD.hs
@@ -51,6 +51,7 @@ import qualified System.Posix.Internals as Posix
 
 -- | A handle managing input from the Haskell program's standard input channel.
 stdin :: Handle
+{-# NOINLINE stdin #-}
 stdin = unsafePerformIO $ do
    -- ToDo: acquire lock
    setBinaryMode FD.stdin
@@ -60,6 +61,7 @@ stdin = unsafePerformIO $ do
 
 -- | A handle managing output to the Haskell program's standard output channel.
 stdout :: Handle
+{-# NOINLINE stdout #-}
 stdout = unsafePerformIO $ do
    -- ToDo: acquire lock
    setBinaryMode FD.stdout
@@ -69,6 +71,7 @@ stdout = unsafePerformIO $ do
 
 -- | A handle managing output to the Haskell program's standard error channel.
 stderr :: Handle
+{-# NOINLINE stderr #-}
 stderr = unsafePerformIO $ do
     -- ToDo: acquire lock
    setBinaryMode FD.stderr