X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FIntWord64.hs;h=1facda4d3634a3d381c8a55c5f24b31724eb509d;hb=549f289423e58d6036290ce14fb4d86fa6fda726;hp=17002d85c0daf6d20c205c93b8d750e2b13a2459;hpb=9850cccb116575f3a47d91bed0031050094f87e2;p=ghc-prim.git diff --git a/GHC/IntWord64.hs b/GHC/IntWord64.hs index 17002d8..1facda4 100644 --- a/GHC/IntWord64.hs +++ b/GHC/IntWord64.hs @@ -1,4 +1,4 @@ -{-# OPTIONS_GHC -fno-implicit-prelude #-} +{-# OPTIONS_GHC -XNoImplicitPrelude #-} {-# OPTIONS_HADDOCK hide #-} ----------------------------------------------------------------------------- -- | @@ -24,11 +24,10 @@ module GHC.IntWord64 ( #endif ) where +#if WORD_SIZE_IN_BITS < 64 import GHC.Bool import GHC.Prim -#if WORD_SIZE_IN_BITS < 64 - foreign import ccall unsafe "hs_eqWord64" eqWord64# :: Word64# -> Word64# -> Bool foreign import ccall unsafe "hs_neWord64" neWord64# :: Word64# -> Word64# -> Bool foreign import ccall unsafe "hs_ltWord64" ltWord64# :: Word64# -> Word64# -> Bool