From: panne <unknown>
Date: Thu, 9 Mar 2000 14:18:22 +0000 (+0000)
Subject: [project @ 2000-03-09 14:18:12 by panne]
X-Git-Tag: Approximately_9120_patches~5027
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=61c0713928628b95607185e6443be02b684bd483;p=ghc-hetmet.git

[project @ 2000-03-09 14:18:12 by panne]
Added some NOINLINE pragmas for unsafePerformIO/newIORef hacks.
---

diff --git a/ghc/compiler/prelude/ThinAir.lhs b/ghc/compiler/prelude/ThinAir.lhs
index c935113..62ee2d2 100644
--- a/ghc/compiler/prelude/ThinAir.lhs
+++ b/ghc/compiler/prelude/ThinAir.lhs
@@ -92,6 +92,7 @@ buildId = lookupThinAirId buildIdKey
 \end{code}
 
 \begin{code}
+{-# NOINLINE thinAirIdMapRef #-}
 thinAirIdMapRef :: IORef (UniqFM Id)
 thinAirIdMapRef = unsafePerformIO (newIORef (panic "thinAirIdMap: still empty"))