From a65481fce16930ff0cd343c9278d9b8961bee94f Mon Sep 17 00:00:00 2001
From: Isaac Dupree <id@isaac.cedarswampstudios.org>
Date: Tue, 7 Aug 2007 00:28:59 +0000
Subject: [PATCH] NOINLINE the global FastString.string_table

---
 compiler/utils/FastString.lhs |    1 +
 1 file changed, 1 insertion(+)

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
-- 
1.7.10.4