diff options
| author | simonmar <unknown> | 1999-11-22 10:53:51 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 1999-11-22 10:53:51 +0000 |
| commit | dfe1bcf198e1908d6ee9057ecda58677685d2f6b (patch) | |
| tree | a55ef130a97ff78cbadcdfa7705875beaa246a45 | |
| parent | 6c6ca84c43c4da9f8cdaa044e5dac13b83af928e (diff) | |
| download | haskell-dfe1bcf198e1908d6ee9057ecda58677685d2f6b.tar.gz | |
[project @ 1999-11-22 10:53:51 by simonmar]
eqForeignObj can be an unsafe ccall.
| -rw-r--r-- | ghc/lib/std/PrelForeign.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/lib/std/PrelForeign.lhs b/ghc/lib/std/PrelForeign.lhs index 9e326cb7b3..ed575ef604 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 |