From: Isaac Dupree <id@isaac.cedarswampstudios.org>
Date: Tue, 7 Aug 2007 00:28:59 +0000 (+0000)
Subject: NOINLINE the global FastString.string_table
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=a65481fce16930ff0cd343c9278d9b8961bee94f

NOINLINE the global FastString.string_table
---

diff --git a/compiler/utils/FastString.lhs b/compiler/utils/FastString.lhs
index 4aa10ae..cdabd62 100644
--- a/compiler/utils/FastString.lhs
+++ b/compiler/utils/FastString.lhs
@@ -161,6 +161,7 @@ data FastStringTable =
     {-# UNPACK #-} !Int
     (MutableArray# RealWorld [FastString])
 
+{-# NOINLINE string_table #-}
 string_table :: IORef FastStringTable
 string_table = 
  unsafePerformIO $ do