{-# LANGUAGE CPP #-}
#ifdef __GLASGOW_HASKELL__
{-# LANGUAGE MagicHash #-}
#endif
{-# OPTIONS_HADDOCK hide #-}
module Utils.Containers.Internal.PtrEquality (ptrEq, hetPtrEq) where
#ifdef __GLASGOW_HASKELL__
import GHC.Exts ( reallyUnsafePtrEquality# )
import Unsafe.Coerce ( unsafeCoerce )
#if __GLASGOW_HASKELL__ < 707
import GHC.Exts ( (==#) )
#else
import GHC.Exts ( Int#, isTrue# )
#endif
#endif
ptrEq :: a -> a -> Bool
hetPtrEq :: a -> b -> Bool
#ifdef __GLASGOW_HASKELL__
#if __GLASGOW_HASKELL__ < 707
ptrEq x y = reallyUnsafePtrEquality# x y ==# 1#
hetPtrEq x y = unsafeCoerce reallyUnsafePtrEquality# x y ==# 1#
#else
ptrEq :: a -> a -> Bool
ptrEq a
x a
y = Int# -> Bool
isTrue# (a -> a -> Int#
forall a. a -> a -> Int#
reallyUnsafePtrEquality# a
x a
y)
hetPtrEq :: a -> b -> Bool
hetPtrEq a
x b
y = Int# -> Bool
isTrue# ((Any -> Any -> Int#) -> a -> b -> Int#
forall a b. a -> b
unsafeCoerce (forall a. a -> a -> Int#
reallyUnsafePtrEquality# :: x -> x -> Int#) a
x b
y)
#endif
#else
ptrEq _ _ = False
hetPtrEq _ _ = False
#endif
{-# INLINE ptrEq #-}
{-# INLINE hetPtrEq #-}
infix 4 `ptrEq`
infix 4 `hetPtrEq`