X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FIntWord32.hs;h=af4a391f5e64b2f72a73dcc4c96df8bd7c7600b1;hb=549f289423e58d6036290ce14fb4d86fa6fda726;hp=c83585ab7ddc1584385fdc2e4420c16c537ff5c8;hpb=9850cccb116575f3a47d91bed0031050094f87e2;p=ghc-prim.git diff --git a/GHC/IntWord32.hs b/GHC/IntWord32.hs index c83585a..af4a391 100644 --- a/GHC/IntWord32.hs +++ b/GHC/IntWord32.hs @@ -1,4 +1,4 @@ -{-# OPTIONS_GHC -fno-implicit-prelude #-} +{-# OPTIONS_GHC -XNoImplicitPrelude #-} {-# OPTIONS_HADDOCK hide #-} ----------------------------------------------------------------------------- -- | @@ -24,11 +24,10 @@ module GHC.IntWord32 ( #endif ) where +#if WORD_SIZE_IN_BITS < 32 import GHC.Bool import GHC.Prim -#if WORD_SIZE_IN_BITS < 32 - foreign import unsafe "stg_eqWord32" eqWord32# :: Word32# -> Word32# -> Bool foreign import unsafe "stg_neWord32" neWord32# :: Word32# -> Word32# -> Bool foreign import unsafe "stg_ltWord32" ltWord32# :: Word32# -> Word32# -> Bool