diff options
Diffstat (limited to 'libraries/ghc-prim')
| -rw-r--r-- | libraries/ghc-prim/GHC/IntWord32.hs | 71 | ||||
| -rw-r--r-- | libraries/ghc-prim/ghc-prim.cabal | 1 |
2 files changed, 0 insertions, 72 deletions
diff --git a/libraries/ghc-prim/GHC/IntWord32.hs b/libraries/ghc-prim/GHC/IntWord32.hs deleted file mode 100644 index 385a916154..0000000000 --- a/libraries/ghc-prim/GHC/IntWord32.hs +++ /dev/null @@ -1,71 +0,0 @@ -{-# LANGUAGE NoImplicitPrelude #-} -{-# OPTIONS_HADDOCK hide #-} ------------------------------------------------------------------------------ --- | --- Module : GHC.IntWord32 --- Copyright : (c) The University of Glasgow, 1997-2008 --- License : see libraries/ghc-prim/LICENSE --- --- Maintainer : cvs-ghc@haskell.org --- Stability : internal --- Portability : non-portable (GHC Extensions) --- --- Primitive operations on Int32# and Word32# on platforms where --- WORD_SIZE_IN_BITS < 32. --- ------------------------------------------------------------------------------ - -#include "MachDeps.h" - --- #hide -module GHC.IntWord32 ( -#if WORD_SIZE_IN_BITS < 32 - Int32#, Word32#, module GHC.IntWord32 -#endif - ) where - -#if WORD_SIZE_IN_BITS < 32 -import GHC.Prim -import GHC.Types - -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 -foreign import unsafe "stg_leWord32" leWord32# :: Word32# -> Word32# -> Bool -foreign import unsafe "stg_gtWord32" gtWord32# :: Word32# -> Word32# -> Bool -foreign import unsafe "stg_geWord32" geWord32# :: Word32# -> Word32# -> Bool - -foreign import unsafe "stg_eqInt32" eqInt32# :: Int32# -> Int32# -> Bool -foreign import unsafe "stg_neInt32" neInt32# :: Int32# -> Int32# -> Bool -foreign import unsafe "stg_ltInt32" ltInt32# :: Int32# -> Int32# -> Bool -foreign import unsafe "stg_leInt32" leInt32# :: Int32# -> Int32# -> Bool -foreign import unsafe "stg_gtInt32" gtInt32# :: Int32# -> Int32# -> Bool -foreign import unsafe "stg_geInt32" geInt32# :: Int32# -> Int32# -> Bool - -foreign import unsafe "stg_int32ToWord32" int32ToWord32# :: Int32# -> Word32# -foreign import unsafe "stg_word32ToInt32" word32ToInt32# :: Word32# -> Int32# -foreign import unsafe "stg_intToInt32" intToInt32# :: Int# -> Int32# -foreign import unsafe "stg_wordToWord32" wordToWord32# :: Word# -> Word32# -foreign import unsafe "stg_word32ToWord" word32ToWord# :: Word32# -> Word# - -foreign import unsafe "stg_plusInt32" plusInt32# :: Int32# -> Int32# -> Int32# -foreign import unsafe "stg_minusInt32" minusInt32# :: Int32# -> Int32# -> Int32# -foreign import unsafe "stg_timesInt32" timesInt32# :: Int32# -> Int32# -> Int32# -foreign import unsafe "stg_negateInt32" negateInt32# :: Int32# -> Int32# -foreign import unsafe "stg_quotInt32" quotInt32# :: Int32# -> Int32# -> Int32# -foreign import unsafe "stg_remInt32" remInt32# :: Int32# -> Int32# -> Int32# -foreign import unsafe "stg_quotWord32" quotWord32# :: Word32# -> Word32# -> Word32# -foreign import unsafe "stg_remWord32" remWord32# :: Word32# -> Word32# -> Word32# - -foreign import unsafe "stg_and32" and32# :: Word32# -> Word32# -> Word32# -foreign import unsafe "stg_or32" or32# :: Word32# -> Word32# -> Word32# -foreign import unsafe "stg_xor32" xor32# :: Word32# -> Word32# -> Word32# -foreign import unsafe "stg_not32" not32# :: Word32# -> Word32# - -foreign import unsafe "stg_iShiftL32" iShiftL32# :: Int32# -> Int# -> Int32# -foreign import unsafe "stg_iShiftRA32" iShiftRA32# :: Int32# -> Int# -> Int32# -foreign import unsafe "stg_shiftL32" shiftL32# :: Word32# -> Int# -> Word32# -foreign import unsafe "stg_shiftRL32" shiftRL32# :: Word32# -> Int# -> Word32# - -#endif - diff --git a/libraries/ghc-prim/ghc-prim.cabal b/libraries/ghc-prim/ghc-prim.cabal index d06d3edc5e..c7a19a7902 100644 --- a/libraries/ghc-prim/ghc-prim.cabal +++ b/libraries/ghc-prim/ghc-prim.cabal @@ -29,7 +29,6 @@ Library { GHC.Magic GHC.Ordering GHC.PrimopWrappers - GHC.IntWord32 GHC.IntWord64 GHC.Tuple GHC.Types |