From f99532092deb6b21db01aba1c98fa6579cb36e7d Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sun, 5 Jul 2009 15:51:20 +0000 Subject: [PATCH] Don't export CLDouble for GHC; fixes trac #2793 We never really supported CLDouble (it was a plain old double underneath), and pretending that we do does more harm than good. --- Foreign/C/Types.hs | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) diff --git a/Foreign/C/Types.hs b/Foreign/C/Types.hs index 44101fc..798c899 100644 --- a/Foreign/C/Types.hs +++ b/Foreign/C/Types.hs @@ -50,7 +50,11 @@ module Foreign.C.Types -- 'Prelude.Show', 'Prelude.Enum', 'Typeable', 'Storable', -- 'Prelude.Real', 'Prelude.Fractional', 'Prelude.Floating', -- 'Prelude.RealFrac' and 'Prelude.RealFloat'. - , CFloat, CDouble, CLDouble + , CFloat, CDouble +-- GHC doesn't support CLDouble yet +#ifndef __GLASGOW_HASKELL__ + , CLDouble +#endif #else -- Exported non-abstractly in nhc98 to fix an interface file problem. CChar(..), CSChar(..), CUChar(..) @@ -151,20 +155,25 @@ INTEGRAL_TYPE(CULLong,tyConCULLong,"CULLong",HTYPE_UNSIGNED_LONG_LONG) FLOATING_TYPE(CFloat,tyConCFloat,"CFloat",HTYPE_FLOAT) -- | Haskell type representing the C @double@ type. FLOATING_TYPE(CDouble,tyConCDouble,"CDouble",HTYPE_DOUBLE) +-- GHC doesn't support CLDouble yet +#ifndef __GLASGOW_HASKELL__ -- HACK: Currently no long double in the FFI, so we simply re-use double -- | Haskell type representing the C @long double@ type. FLOATING_TYPE(CLDouble,tyConCLDouble,"CLDouble",HTYPE_DOUBLE) +#endif {-# RULES "realToFrac/a->CFloat" realToFrac = \x -> CFloat (realToFrac x) "realToFrac/a->CDouble" realToFrac = \x -> CDouble (realToFrac x) -"realToFrac/a->CLDouble" realToFrac = \x -> CLDouble (realToFrac x) "realToFrac/CFloat->a" realToFrac = \(CFloat x) -> realToFrac x "realToFrac/CDouble->a" realToFrac = \(CDouble x) -> realToFrac x -"realToFrac/CLDouble->a" realToFrac = \(CLDouble x) -> realToFrac x #-} +-- GHC doesn't support CLDouble yet +-- "realToFrac/a->CLDouble" realToFrac = \x -> CLDouble (realToFrac x) +-- "realToFrac/CLDouble->a" realToFrac = \(CLDouble x) -> realToFrac x + -- | Haskell type representing the C @ptrdiff_t@ type. INTEGRAL_TYPE(CPtrdiff,tyConCPtrdiff,"CPtrdiff",HTYPE_PTRDIFF_T) -- | Haskell type representing the C @size_t@ type. -- 1.7.10.4