diff options
| author | Clark Gaebel <cgaebel@csclub.uwaterloo.ca> | 2012-03-10 18:26:56 -0500 |
|---|---|---|
| committer | Clark Gaebel <cgaebel@csclub.uwaterloo.ca> | 2012-03-10 18:26:56 -0500 |
| commit | f8b7b3734fa6bb8d63914719e09d17940add27d4 (patch) | |
| tree | 233c1c41ea8d5a0cf43bf9430cc2b60cff38a3e9 /examples/devel/ej1/wrappers.hs | |
| parent | 13fe05779923baad386b0059ff6fbc7c6af405d9 (diff) | |
Removed foreign import safety.
Diffstat (limited to 'examples/devel/ej1/wrappers.hs')
| -rw-r--r-- | examples/devel/ej1/wrappers.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 | |||
| 15 | 15 | ||
| 16 | ----------------------------------------------------- | 16 | ----------------------------------------------------- |
| 17 | 17 | ||
| 18 | foreign import ccall "c_scale_vector" | 18 | foreign import ccall unsafe "c_scale_vector" |
| 19 | cScaleVector :: Double -- scale | 19 | cScaleVector :: Double -- scale |
| 20 | -> CInt -> Ptr Double -- argument | 20 | -> CInt -> Ptr Double -- argument |
| 21 | -> CInt -> Ptr Double -- result | 21 | -> CInt -> Ptr Double -- result |
| @@ -29,7 +29,7 @@ myScale s x = unsafePerformIO $ do | |||
| 29 | ----------------------------------------------------- | 29 | ----------------------------------------------------- |
| 30 | -- forcing row order | 30 | -- forcing row order |
| 31 | 31 | ||
| 32 | foreign import ccall "c_diag" | 32 | foreign import ccall unsafe "c_diag" |
| 33 | cDiag :: CInt -> CInt -> Ptr Double -- argument | 33 | cDiag :: CInt -> CInt -> Ptr Double -- argument |
| 34 | -> CInt -> Ptr Double -- result1 | 34 | -> CInt -> Ptr Double -- result1 |
| 35 | -> CInt -> CInt -> Ptr Double -- result2 | 35 | -> CInt -> CInt -> Ptr Double -- result2 |