{-# LANGUAGE Unsafe #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE MagicHash #-}
module GHC.Prim.PtrEq
( reallyUnsafePtrEquality,
sameArray#,
sameMutableArray#,
sameSmallArray#,
sameSmallMutableArray#,
sameByteArray#,
sameMutableByteArray#,
sameMutVar#,
sameTVar#,
sameMVar#,
sameIOPort#,
eqStableName#
) where
import GHC.Prim
import GHC.Types ()
default ()
reallyUnsafePtrEquality :: a -> a -> Int#
reallyUnsafePtrEquality :: forall a. a -> a -> Int#
reallyUnsafePtrEquality = a -> a -> Int#
forall a b. a -> b -> Int#
reallyUnsafePtrEquality#
sameArray# :: Array# a -> Array# a -> Int#
sameArray# :: forall a. Array# a -> Array# a -> Int#
sameArray# = Array# a -> Array# a -> Int#
forall a b. a -> b -> Int#
reallyUnsafePtrEquality#
sameMutableArray# :: MutableArray# s a -> MutableArray# s a -> Int#
sameMutableArray# :: forall s a. MutableArray# s a -> MutableArray# s a -> Int#
sameMutableArray# = MutableArray# s a -> MutableArray# s a -> Int#
forall a b. a -> b -> Int#
reallyUnsafePtrEquality#
sameSmallArray# :: SmallArray# a -> SmallArray# a -> Int#
sameSmallArray# :: forall a. SmallArray# a -> SmallArray# a -> Int#
sameSmallArray# = SmallArray# a -> SmallArray# a -> Int#
forall a b. a -> b -> Int#
reallyUnsafePtrEquality#
sameSmallMutableArray# :: SmallMutableArray# s a -> SmallMutableArray# s a -> Int#
sameSmallMutableArray# :: forall s a.
SmallMutableArray# s a -> SmallMutableArray# s a -> Int#
sameSmallMutableArray# = SmallMutableArray# s a -> SmallMutableArray# s a -> Int#
forall a b. a -> b -> Int#
reallyUnsafePtrEquality#
sameByteArray# :: ByteArray# -> ByteArray# -> Int#
sameByteArray# :: ByteArray# -> ByteArray# -> Int#
sameByteArray# = ByteArray# -> ByteArray# -> Int#
forall a b. a -> b -> Int#
reallyUnsafePtrEquality#
sameMutableByteArray# :: MutableByteArray# s -> MutableByteArray# s -> Int#
sameMutableByteArray# :: forall s. MutableByteArray# s -> MutableByteArray# s -> Int#
sameMutableByteArray# = MutableByteArray# s -> MutableByteArray# s -> Int#
forall a b. a -> b -> Int#
reallyUnsafePtrEquality#
sameMutVar# :: MutVar# s a -> MutVar# s a -> Int#
sameMutVar# :: forall s a. MutVar# s a -> MutVar# s a -> Int#
sameMutVar# = MutVar# s a -> MutVar# s a -> Int#
forall a b. a -> b -> Int#
reallyUnsafePtrEquality#
sameTVar# :: TVar# s a -> TVar# s a -> Int#
sameTVar# :: forall s a. TVar# s a -> TVar# s a -> Int#
sameTVar# = TVar# s a -> TVar# s a -> Int#
forall a b. a -> b -> Int#
reallyUnsafePtrEquality#
sameMVar# :: MVar# s a -> MVar# s a -> Int#
sameMVar# :: forall s a. MVar# s a -> MVar# s a -> Int#
sameMVar# = MVar# s a -> MVar# s a -> Int#
forall a b. a -> b -> Int#
reallyUnsafePtrEquality#
sameIOPort# :: IOPort# s a -> IOPort# s a -> Int#
sameIOPort# :: forall s a. IOPort# s a -> IOPort# s a -> Int#
sameIOPort# = IOPort# s a -> IOPort# s a -> Int#
forall a b. a -> b -> Int#
reallyUnsafePtrEquality#
eqStableName# :: StableName# a -> StableName# b -> Int#
eqStableName# :: forall a b. StableName# a -> StableName# b -> Int#
eqStableName# = StableName# a -> StableName# b -> Int#
forall a b. a -> b -> Int#
reallyUnsafePtrEquality#