Commit 42b180c3 authored by panne's avatar panne
Browse files

[project @ 2003-09-17 08:39:26 by panne]

Simplified my previous quick-fix-after-some-beers
parent 0aa891b0
......@@ -79,18 +79,12 @@ mkSplitUniqSupply (C# c#)
return (MkSplitUniqSupply uniq s1 s2)
)
mk_unique =
#if __GLASGOW_HASKELL__ < 603
_ccall_
#endif
genSymZh >>= \ (W# u#) ->
mk_unique = genSymZh >>= \ (W# u#) ->
return (I# (w2i (mask# `or#` u#)))
in
mk_supply#
#if __GLASGOW_HASKELL__ >= 603
foreign import ccall unsafe "genSymZh" genSymZh :: IO Word
#endif
foreign import ccall "genSymZh" unsafe genSymZh :: IO Word
splitUniqSupply (MkSplitUniqSupply _ s1 s2) = (s1, s2)
\end{code}
......
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