From: simonmar <unknown>
Date: Mon, 22 Nov 1999 10:53:51 +0000 (+0000)
Subject: [project @ 1999-11-22 10:53:51 by simonmar]
X-Git-Tag: Approximately_9120_patches~5533
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=dfe1bcf198e1908d6ee9057ecda58677685d2f6b;p=ghc-hetmet.git

[project @ 1999-11-22 10:53:51 by simonmar]
eqForeignObj can be an unsafe ccall.
---

diff --git a/ghc/lib/std/PrelForeign.lhs b/ghc/lib/std/PrelForeign.lhs
index 9e326cb..ed575ef 100644
--- a/ghc/lib/std/PrelForeign.lhs
+++ b/ghc/lib/std/PrelForeign.lhs
@@ -51,7 +51,7 @@ writeForeignObj (ForeignObj fo#) (A# datum#) = IO ( \ s# ->
 eqForeignObj mp1 mp2
   = unsafePerformIO (primEqForeignObj mp1 mp2) /= (0::Int)
 
-foreign import "eqForeignObj" primEqForeignObj :: ForeignObj -> ForeignObj -> IO Int
+foreign import "eqForeignObj" unsafe primEqForeignObj :: ForeignObj -> ForeignObj -> IO Int
 
 instance Eq ForeignObj where 
     p == q = eqForeignObj p q