[project @ 2000-03-09 14:18:12 by panne]

Added some NOINLINE pragmas for unsafePerformIO/newIORef hacks.

[project @ 2000-03-09 14:18:12 by panne]
61c07139 · sven.panne@aedion.de · d17dea55 · 61c07139
Commit 61c07139 authored 25 years ago by sven.panne@aedion.de
--- 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"))