[project @ 1997-11-21 11:23:04 by simonm]

[ghc-hetmet.git] / ghc / lib / glaExts / IOExts.lhs

diff --git a/ghc/lib/glaExts/IOExts.lhs b/ghc/lib/glaExts/IOExts.lhs
index ed8a3c1..2246165 100644 (file)
--- a/ghc/lib/glaExts/IOExts.lhs
+++ b/ghc/lib/glaExts/IOExts.lhs
@@ -20,12 +20,21 @@ module IOExts
 
         , trace
         , performGC
+       
+       , reallyUnsafePtrEq
         ) where
 \end{code}
 
 \begin{code}
+import PrelBase
 import IOBase
 import IORef
 import STBase
 import Unsafe
+import GHC
+
+reallyUnsafePtrEq a b =
+    case reallyUnsafePtrEquality# a b of
+        0# -> False
+        _  -> True
 \end{code}