projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
6c6ca84
)
[project @ 1999-11-22 10:53:51 by simonmar]
author
simonmar
<unknown>
Mon, 22 Nov 1999 10:53:51 +0000
(10:53 +0000)
committer
simonmar
<unknown>
Mon, 22 Nov 1999 10:53:51 +0000
(10:53 +0000)
eqForeignObj can be an unsafe ccall.
ghc/lib/std/PrelForeign.lhs
patch
|
blob
|
history
diff --git
a/ghc/lib/std/PrelForeign.lhs
b/ghc/lib/std/PrelForeign.lhs
index
9e326cb
..
ed575ef
100644
(file)
--- 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