projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Optimise Digraph.postOrd, used when finding strongly connected components
[ghc-hetmet.git]
/
compiler
/
utils
/
FastMutInt.lhs
diff --git
a/compiler/utils/FastMutInt.lhs
b/compiler/utils/FastMutInt.lhs
index
bdcf502
..
90b4b9e
100644
(file)
--- a/
compiler/utils/FastMutInt.lhs
+++ b/
compiler/utils/FastMutInt.lhs
@@
-50,6
+50,10
@@
writeFastMutInt (FastMutInt arr) (I# i) = IO $ \s ->
case writeIntArray# arr 0# i s of { s ->
(# s, () #) }
#else /* ! __GLASGOW_HASKELL__ */
case writeIntArray# arr 0# i s of { s ->
(# s, () #) }
#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)
-- If any default value was chosen, it surely would be 0,
newtype FastMutInt = FastMutInt (IORef Int)
-- If any default value was chosen, it surely would be 0,