diff options
author | Alberto Ruiz <aruiz@um.es> | 2012-03-13 15:23:30 +0100 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2012-03-13 15:23:30 +0100 |
commit | b959655b75da207fd7ac1c785a6ea9924d70d5a6 (patch) | |
tree | 0031778af5633100993d8447a5cbe021b1d3066f /examples/devel/ej2/wrappers.hs | |
parent | c5fcca336f7d1ad6235d411268d8ff946bbe7f0c (diff) | |
parent | 0904bbd0befa48e98858def1b6d036c5b2f00bf1 (diff) |
Merge branch 'unsafe' into develop
Diffstat (limited to 'examples/devel/ej2/wrappers.hs')
-rw-r--r-- | examples/devel/ej2/wrappers.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
15 | ----------------------------------------------------- | 15 | ----------------------------------------------------- |
16 | -- arbitrary data order | 16 | -- arbitrary data order |
17 | 17 | ||
18 | foreign import ccall "c_diag" | 18 | foreign import ccall unsafe "c_diag" |
19 | cDiag :: CInt -- matrix order | 19 | cDiag :: CInt -- matrix order |
20 | -> CInt -> CInt -> Ptr Double -- argument | 20 | -> CInt -> CInt -> Ptr Double -- argument |
21 | -> CInt -> Ptr Double -- result1 | 21 | -> CInt -> Ptr Double -- result1 |