X-Git-Url: http://git.megacz.com/?p=ghc-prim.git;a=blobdiff_plain;f=GHC%2FIntWord32.hs;h=af4a391f5e64b2f72a73dcc4c96df8bd7c7600b1;hp=7eac21b041da7753900bae16871f636d9e75effa;hb=549f289423e58d6036290ce14fb4d86fa6fda726;hpb=f61cbd37654e0b6fe8afefafd51f1fb03e8dd052 diff --git a/GHC/IntWord32.hs b/GHC/IntWord32.hs index 7eac21b..af4a391 100644 --- a/GHC/IntWord32.hs +++ b/GHC/IntWord32.hs @@ -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