Commit ef78a50f authored by simonmar's avatar simonmar

[project @ 2000-03-15 11:11:08 by simonmar]

sigh, add some more #ifdefs to this file (MutableArray/STArray changes).
parent 67efadd8
......@@ -87,7 +87,11 @@ import PrelIOBase ( Handle__(..), IOError(..), IOErrorType(..),
import PrimPacked
import GlaExts
import Addr ( Addr(..) )
#if __GLASGOW_HASKELL__ < 407
import MutableArray ( MutableArray(..) )
#else
import PrelArr ( STArray(..), newSTArray )
#endif
-- ForeignObj is now exported abstractly.
#if __GLASGOW_HASKELL__ >= 303
......@@ -232,11 +236,15 @@ type FastStringTableVar = IORef FastStringTable
string_table :: FastStringTableVar
string_table =
unsafePerformIO (
stToIO (newArray (0::Int,hASH_TBL_SIZE) [])
#if __GLASGOW_HASKELL__ < 405
stToIO (newArray (0::Int,hASH_TBL_SIZE) [])
>>= \ (MutableArray _ arr#) ->
#else
#elif __GLASGOW_HASKELL__ < 407
stToIO (newArray (0::Int,hASH_TBL_SIZE) [])
>>= \ (MutableArray _ _ arr#) ->
#else
stToIO (newSTArray (0::Int,hASH_TBL_SIZE) [])
>>= \ (STArray _ _ arr#) ->
#endif
newIORef (FastStringTable 0# arr#))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment