From 072055e1658fa6fd64a4462b6a243ec0f5e5cdb4 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Tue, 13 Mar 2012 14:51:12 +0100 Subject: revert to SAFE_CHEAP macro, unsafe by default --- packages/special/lib/Numeric/GSL/Special/Laguerre.hs | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'packages/special/lib/Numeric/GSL/Special/Laguerre.hs') diff --git a/packages/special/lib/Numeric/GSL/Special/Laguerre.hs b/packages/special/lib/Numeric/GSL/Special/Laguerre.hs index 4110601..28b3d20 100644 --- a/packages/special/lib/Numeric/GSL/Special/Laguerre.hs +++ b/packages/special/lib/Numeric/GSL/Special/Laguerre.hs @@ -29,32 +29,32 @@ import Numeric.GSL.Special.Internal laguerre_1_e :: Double -> Double -> (Double,Double) laguerre_1_e a x = createSFR "laguerre_1_e" $ gsl_sf_laguerre_1_e a x -foreign import ccall unsafe "gsl_sf_laguerre_1_e" gsl_sf_laguerre_1_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall SAFE_CHEAP "gsl_sf_laguerre_1_e" gsl_sf_laguerre_1_e :: Double -> Double -> Ptr () -> IO CInt laguerre_2_e :: Double -> Double -> (Double,Double) laguerre_2_e a x = createSFR "laguerre_2_e" $ gsl_sf_laguerre_2_e a x -foreign import ccall unsafe "gsl_sf_laguerre_2_e" gsl_sf_laguerre_2_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall SAFE_CHEAP "gsl_sf_laguerre_2_e" gsl_sf_laguerre_2_e :: Double -> Double -> Ptr () -> IO CInt laguerre_3_e :: Double -> Double -> (Double,Double) laguerre_3_e a x = createSFR "laguerre_3_e" $ gsl_sf_laguerre_3_e a x -foreign import ccall unsafe "gsl_sf_laguerre_3_e" gsl_sf_laguerre_3_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall SAFE_CHEAP "gsl_sf_laguerre_3_e" gsl_sf_laguerre_3_e :: Double -> Double -> Ptr () -> IO CInt laguerre_1 :: Double -> Double -> Double laguerre_1 = gsl_sf_laguerre_1 -foreign import ccall unsafe "gsl_sf_laguerre_1" gsl_sf_laguerre_1 :: Double -> Double -> Double +foreign import ccall SAFE_CHEAP "gsl_sf_laguerre_1" gsl_sf_laguerre_1 :: Double -> Double -> Double laguerre_2 :: Double -> Double -> Double laguerre_2 = gsl_sf_laguerre_2 -foreign import ccall unsafe "gsl_sf_laguerre_2" gsl_sf_laguerre_2 :: Double -> Double -> Double +foreign import ccall SAFE_CHEAP "gsl_sf_laguerre_2" gsl_sf_laguerre_2 :: Double -> Double -> Double laguerre_3 :: Double -> Double -> Double laguerre_3 = gsl_sf_laguerre_3 -foreign import ccall unsafe "gsl_sf_laguerre_3" gsl_sf_laguerre_3 :: Double -> Double -> Double +foreign import ccall SAFE_CHEAP "gsl_sf_laguerre_3" gsl_sf_laguerre_3 :: Double -> Double -> Double laguerre_n_e :: CInt -> Double -> Double -> (Double,Double) laguerre_n_e n a x = createSFR "laguerre_n_e" $ gsl_sf_laguerre_n_e n a x -foreign import ccall unsafe "gsl_sf_laguerre_n_e" gsl_sf_laguerre_n_e :: CInt -> Double -> Double -> Ptr () -> IO CInt +foreign import ccall SAFE_CHEAP "gsl_sf_laguerre_n_e" gsl_sf_laguerre_n_e :: CInt -> Double -> Double -> Ptr () -> IO CInt laguerre_n :: CInt -> Double -> Double -> Double laguerre_n = gsl_sf_laguerre_n -foreign import ccall unsafe "gsl_sf_laguerre_n" gsl_sf_laguerre_n :: CInt -> Double -> Double -> Double +foreign import ccall SAFE_CHEAP "gsl_sf_laguerre_n" gsl_sf_laguerre_n :: CInt -> Double -> Double -> Double -- cgit v1.2.3