Skip to content

GitLab

Commit d27302b9 authored by Isaac Dupree's avatar Isaac Dupree
Browse files

comment FastMutInt possibilities

parent 12ee8b3d
Hide whitespace changes
Inline Side-by-side
compiler/utils/FastMutInt.lhs
View file @ d27302b9
...@@ -50,6 +50,10 @@ writeFastMutInt (FastMutInt arr) (I# i) = IO $ \s -> ...@@ -50,6 +50,10 @@ writeFastMutInt (FastMutInt arr) (I# i) = IO $ \s ->
case writeIntArray# arr 0# i s of { s -> case writeIntArray# arr 0# i s of { s ->
(# s, () #) } (# s, () #) }
#else /* ! __GLASGOW_HASKELL__ */ #else /* ! __GLASGOW_HASKELL__ */
--maybe someday we could use
--http://haskell.org/haskellwiki/Library/ArrayRef
--which has an implementation of IOURefs
--that is unboxed in GHC and just strict in all other compilers...
newtype FastMutInt = FastMutInt (IORef Int) newtype FastMutInt = FastMutInt (IORef Int)
-- If any default value was chosen, it surely would be 0, -- If any default value was chosen, it surely would be 0,
......
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