From f8b7b3734fa6bb8d63914719e09d17940add27d4 Mon Sep 17 00:00:00 2001 From: Clark Gaebel Date: Sat, 10 Mar 2012 18:26:56 -0500 Subject: Removed foreign import safety. --- examples/devel/ej1/wrappers.hs | 4 ++-- examples/devel/ej2/wrappers.hs | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'examples') diff --git a/examples/devel/ej1/wrappers.hs b/examples/devel/ej1/wrappers.hs index b329464..a88f74b 100644 --- a/examples/devel/ej1/wrappers.hs +++ b/examples/devel/ej1/wrappers.hs @@ -15,7 +15,7 @@ main = do ----------------------------------------------------- -foreign import ccall "c_scale_vector" +foreign import ccall unsafe "c_scale_vector" cScaleVector :: Double -- scale -> CInt -> Ptr Double -- argument -> CInt -> Ptr Double -- result @@ -29,7 +29,7 @@ myScale s x = unsafePerformIO $ do ----------------------------------------------------- -- forcing row order -foreign import ccall "c_diag" +foreign import ccall unsafe "c_diag" cDiag :: CInt -> CInt -> Ptr Double -- argument -> CInt -> Ptr Double -- result1 -> CInt -> CInt -> Ptr Double -- result2 diff --git a/examples/devel/ej2/wrappers.hs b/examples/devel/ej2/wrappers.hs index 399c5a9..1c02a24 100644 --- a/examples/devel/ej2/wrappers.hs +++ b/examples/devel/ej2/wrappers.hs @@ -15,7 +15,7 @@ main = do ----------------------------------------------------- -- arbitrary data order -foreign import ccall "c_diag" +foreign import ccall unsafe "c_diag" cDiag :: CInt -- matrix order -> CInt -> CInt -> Ptr Double -- argument -> CInt -> Ptr Double -- result1 -- cgit v1.2.3