Use aToWord# instead of unsafeCoerce#
authorJoachim Breitner <mail@joachim-breitner.de>
Fri, 2 Nov 2012 10:05:46 +0000 (10:05 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Fri, 2 Nov 2012 10:05:46 +0000 (10:05 +0000)
src/GHC/HeapView.hs

index ef1d050..5719cd6 100644 (file)
@@ -391,7 +391,7 @@ slurpClosure# :: Any -> (# Addr#, ByteArray#, Array# b #)
 slurpClosure# a = slurpClosure'# (aToWord# a)
 
 reallyUnsafePtrEqualityUpToTag# :: Any -> Any -> Int#
-reallyUnsafePtrEqualityUpToTag# a b = reallyUnsafePtrEqualityUpToTag'# (unsafeCoerce# a) (unsafeCoerce# b)
+reallyUnsafePtrEqualityUpToTag# a b = reallyUnsafePtrEqualityUpToTag'# (aToWord# a) (aToWord# b)
 #endif
 
 --pClosure x = do