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/Zeta.hs | 28 ++++++++++++------------ 1 file changed, 14 insertions(+), 14 deletions(-) (limited to 'packages/special/lib/Numeric/GSL/Special/Zeta.hs') diff --git a/packages/special/lib/Numeric/GSL/Special/Zeta.hs b/packages/special/lib/Numeric/GSL/Special/Zeta.hs index 5b59630..a57a918 100644 --- a/packages/special/lib/Numeric/GSL/Special/Zeta.hs +++ b/packages/special/lib/Numeric/GSL/Special/Zeta.hs @@ -35,56 +35,56 @@ import Numeric.GSL.Special.Internal zeta_int_e :: CInt -> (Double,Double) zeta_int_e n = createSFR "zeta_int_e" $ gsl_sf_zeta_int_e n -foreign import ccall unsafe "gsl_sf_zeta_int_e" gsl_sf_zeta_int_e :: CInt -> Ptr () -> IO CInt +foreign import ccall SAFE_CHEAP "gsl_sf_zeta_int_e" gsl_sf_zeta_int_e :: CInt -> Ptr () -> IO CInt zeta_int :: CInt -> Double zeta_int = gsl_sf_zeta_int -foreign import ccall unsafe "gsl_sf_zeta_int" gsl_sf_zeta_int :: CInt -> Double +foreign import ccall SAFE_CHEAP "gsl_sf_zeta_int" gsl_sf_zeta_int :: CInt -> Double zeta_e :: Double -> (Double,Double) zeta_e s = createSFR "zeta_e" $ gsl_sf_zeta_e s -foreign import ccall unsafe "gsl_sf_zeta_e" gsl_sf_zeta_e :: Double -> Ptr () -> IO CInt +foreign import ccall SAFE_CHEAP "gsl_sf_zeta_e" gsl_sf_zeta_e :: Double -> Ptr () -> IO CInt zeta :: Double -> Double zeta = gsl_sf_zeta -foreign import ccall unsafe "gsl_sf_zeta" gsl_sf_zeta :: Double -> Double +foreign import ccall SAFE_CHEAP "gsl_sf_zeta" gsl_sf_zeta :: Double -> Double zetam1_e :: Double -> (Double,Double) zetam1_e s = createSFR "zetam1_e" $ gsl_sf_zetam1_e s -foreign import ccall unsafe "gsl_sf_zetam1_e" gsl_sf_zetam1_e :: Double -> Ptr () -> IO CInt +foreign import ccall SAFE_CHEAP "gsl_sf_zetam1_e" gsl_sf_zetam1_e :: Double -> Ptr () -> IO CInt zetam1 :: Double -> Double zetam1 = gsl_sf_zetam1 -foreign import ccall unsafe "gsl_sf_zetam1" gsl_sf_zetam1 :: Double -> Double +foreign import ccall SAFE_CHEAP "gsl_sf_zetam1" gsl_sf_zetam1 :: Double -> Double zetam1_int_e :: CInt -> (Double,Double) zetam1_int_e s = createSFR "zetam1_int_e" $ gsl_sf_zetam1_int_e s -foreign import ccall unsafe "gsl_sf_zetam1_int_e" gsl_sf_zetam1_int_e :: CInt -> Ptr () -> IO CInt +foreign import ccall SAFE_CHEAP "gsl_sf_zetam1_int_e" gsl_sf_zetam1_int_e :: CInt -> Ptr () -> IO CInt zetam1_int :: CInt -> Double zetam1_int = gsl_sf_zetam1_int -foreign import ccall unsafe "gsl_sf_zetam1_int" gsl_sf_zetam1_int :: CInt -> Double +foreign import ccall SAFE_CHEAP "gsl_sf_zetam1_int" gsl_sf_zetam1_int :: CInt -> Double hzeta_e :: Double -> Double -> (Double,Double) hzeta_e s q = createSFR "hzeta_e" $ gsl_sf_hzeta_e s q -foreign import ccall unsafe "gsl_sf_hzeta_e" gsl_sf_hzeta_e :: Double -> Double -> Ptr () -> IO CInt +foreign import ccall SAFE_CHEAP "gsl_sf_hzeta_e" gsl_sf_hzeta_e :: Double -> Double -> Ptr () -> IO CInt hzeta :: Double -> Double -> Double hzeta = gsl_sf_hzeta -foreign import ccall unsafe "gsl_sf_hzeta" gsl_sf_hzeta :: Double -> Double -> Double +foreign import ccall SAFE_CHEAP "gsl_sf_hzeta" gsl_sf_hzeta :: Double -> Double -> Double eta_int_e :: CInt -> (Double,Double) eta_int_e n = createSFR "eta_int_e" $ gsl_sf_eta_int_e n -foreign import ccall unsafe "gsl_sf_eta_int_e" gsl_sf_eta_int_e :: CInt -> Ptr () -> IO CInt +foreign import ccall SAFE_CHEAP "gsl_sf_eta_int_e" gsl_sf_eta_int_e :: CInt -> Ptr () -> IO CInt eta_int :: CInt -> Double eta_int = gsl_sf_eta_int -foreign import ccall unsafe "gsl_sf_eta_int" gsl_sf_eta_int :: CInt -> Double +foreign import ccall SAFE_CHEAP "gsl_sf_eta_int" gsl_sf_eta_int :: CInt -> Double eta_e :: Double -> (Double,Double) eta_e s = createSFR "eta_e" $ gsl_sf_eta_e s -foreign import ccall unsafe "gsl_sf_eta_e" gsl_sf_eta_e :: Double -> Ptr () -> IO CInt +foreign import ccall SAFE_CHEAP "gsl_sf_eta_e" gsl_sf_eta_e :: Double -> Ptr () -> IO CInt eta :: Double -> Double eta = gsl_sf_eta -foreign import ccall unsafe "gsl_sf_eta" gsl_sf_eta :: Double -> Double +foreign import ccall SAFE_CHEAP "gsl_sf_eta" gsl_sf_eta :: Double -> Double -- cgit v1.2.3