diff options
| author | Isaac Dupree <id@isaac.cedarswampstudios.org> | 2007-08-07 00:28:59 +0000 |
|---|---|---|
| committer | Isaac Dupree <id@isaac.cedarswampstudios.org> | 2007-08-07 00:28:59 +0000 |
| commit | a65481fce16930ff0cd343c9278d9b8961bee94f (patch) | |
| tree | babf572bb429403d72faee2e51ee00517687d5dc | |
| parent | d27302b92d741ae119bdf3cd52ba9dae251b6cf4 (diff) | |
| download | haskell-a65481fce16930ff0cd343c9278d9b8961bee94f.tar.gz | |
NOINLINE the global FastString.string_table
| -rw-r--r-- | compiler/utils/FastString.lhs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/utils/FastString.lhs b/compiler/utils/FastString.lhs index 4aa10ae775..cdabd626ca 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 |