module GHC.Bool where
-- We need Inl etc behind the scenes for the Bool definition
-import GHC.Generics
+import GHC.Generics ()
default ()
#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
#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
module GHC.Ordering where
-- We need Inl etc behind the scenes for the Ordering definition
-import GHC.Generics
+import GHC.Generics ()
default ()