X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2FglaExts%2FIOExts.lhs;fp=ghc%2Flib%2FglaExts%2FIOExts.lhs;h=224616507ac0f6730b8699f314adfd1b6d701def;hb=f4ef2fab7f1ff93fe4916c9e6d2fe31922bb99f6;hp=ed8a3c169aec4970940297bb30a1f5cfb64777a3;hpb=814e402f24569ca7a8a02e8b54a38abfd6b0b59e;p=ghc-hetmet.git

diff --git a/ghc/lib/glaExts/IOExts.lhs b/ghc/lib/glaExts/IOExts.lhs
index ed8a3c1..2246165 100644
--- 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}