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 /lib/Numeric/GSL/Root.hs | |
| parent | c5fcca336f7d1ad6235d411268d8ff946bbe7f0c (diff) | |
| parent | 0904bbd0befa48e98858def1b6d036c5b2f00bf1 (diff) | |
Merge branch 'unsafe' into develop
Diffstat (limited to 'lib/Numeric/GSL/Root.hs')
| -rw-r--r-- | lib/Numeric/GSL/Root.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Numeric/GSL/Root.hs b/lib/Numeric/GSL/Root.hs index 41f7fb3..cd2982a 100644 --- a/lib/Numeric/GSL/Root.hs +++ b/lib/Numeric/GSL/Root.hs | |||
| @@ -91,7 +91,7 @@ rootGen m f xi epsabs maxit = unsafePerformIO $ do | |||
| 91 | return (take n $ drop 1 sol, path) | 91 | return (take n $ drop 1 sol, path) |
| 92 | 92 | ||
| 93 | 93 | ||
| 94 | foreign import ccall "root" | 94 | foreign import ccall safe "root" |
| 95 | c_root:: CInt -> FunPtr TVV -> Double -> CInt -> TVM | 95 | c_root:: CInt -> FunPtr TVV -> Double -> CInt -> TVM |
| 96 | 96 | ||
| 97 | ------------------------------------------------------------------------- | 97 | ------------------------------------------------------------------------- |
| @@ -130,7 +130,7 @@ rootJGen m f jac xi epsabs maxit = unsafePerformIO $ do | |||
| 130 | return (take n $ drop 1 sol, path) | 130 | return (take n $ drop 1 sol, path) |
| 131 | 131 | ||
| 132 | 132 | ||
| 133 | foreign import ccall "rootj" | 133 | foreign import ccall safe "rootj" |
| 134 | c_rootj:: CInt -> FunPtr TVV -> FunPtr TVM -> Double -> CInt -> TVM | 134 | c_rootj:: CInt -> FunPtr TVV -> FunPtr TVM -> Double -> CInt -> TVM |
| 135 | 135 | ||
| 136 | ------------------------------------------------------- | 136 | ------------------------------------------------------- |