summaryrefslogtreecommitdiff
path: root/examples/devel
diff options
context:
space:
mode:
Diffstat (limited to 'examples/devel')
-rw-r--r--examples/devel/ej1/wrappers.hs4
-rw-r--r--examples/devel/ej2/wrappers.hs2
2 files changed, 3 insertions, 3 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
18foreign import ccall "c_scale_vector" 18foreign 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
32foreign import ccall "c_diag" 32foreign 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
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
18foreign import ccall "c_diag" 18foreign 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