diff options
| author | o1lo01ol1o <tim.pierson@gmail.com> | 2023-11-15 12:04:41 -0600 |
|---|---|---|
| committer | o1lo01ol1o <tim.pierson@gmail.com> | 2023-11-15 12:04:41 -0600 |
| commit | 2c98075a0b68fa92959a1048cd0d1cec9ec20fd1 (patch) | |
| tree | 431f4f4e24fcf1b6d5c8c8c414750c4dafe55a1f /src/runtime/haskell/Data/Binary/Builder.hs | |
| parent | 7d9015e2e159b376cf2ba8332093c9623375557e (diff) | |
support ghc9.4
Diffstat (limited to 'src/runtime/haskell/Data/Binary/Builder.hs')
| -rw-r--r-- | src/runtime/haskell/Data/Binary/Builder.hs | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/src/runtime/haskell/Data/Binary/Builder.hs b/src/runtime/haskell/Data/Binary/Builder.hs index 5f8983c0c..8dc46f816 100644 --- a/src/runtime/haskell/Data/Binary/Builder.hs +++ b/src/runtime/haskell/Data/Binary/Builder.hs @@ -74,13 +74,16 @@ import qualified Data.ByteString.Internal as S #endif #if defined(__GLASGOW_HASKELL__) && !defined(__HADDOCK__) -import GHC.Base(Int(..),uncheckedShiftRL# ) +import GHC.Base(Int(..),uncheckedShiftRL#,) import GHC.Word (Word32(..),Word16(..),Word64(..)) #if MIN_VERSION_base(4,16,0) import GHC.Exts (wordToWord16#, word16ToWord#, wordToWord32#, word32ToWord#) #endif -#if WORD_SIZE_IN_BITS < 64 && __GLASGOW_HASKELL__ >= 608 +#if WORD_SIZE_IN_BITS < 64 && __GLASGOW_HASKELL__ >= 608 +import GHC.Word (uncheckedShiftRL64#) +#endif +#if __GLASGOW_HASKELL__ >= 900 import GHC.Word (uncheckedShiftRL64#) #endif #endif @@ -433,7 +436,11 @@ foreign import ccall unsafe "stg_uncheckedShiftRL64" #endif #else +#if __GLASGOW_HASKELL__ <= 810 shiftr_w64 (W64# w) (I# i) = W64# (w `uncheckedShiftRL#` i) +#else +shiftr_w64 (W64# w) (I# i) = W64# (w `uncheckedShiftRL64#` i) +#endif #endif #else |