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/Get.hs | |
| parent | 7d9015e2e159b376cf2ba8332093c9623375557e (diff) | |
support ghc9.4
Diffstat (limited to 'src/runtime/haskell/Data/Binary/Get.hs')
| -rw-r--r-- | src/runtime/haskell/Data/Binary/Get.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/runtime/haskell/Data/Binary/Get.hs b/src/runtime/haskell/Data/Binary/Get.hs index 8faf249a9..a33c5c5a3 100644 --- a/src/runtime/haskell/Data/Binary/Get.hs +++ b/src/runtime/haskell/Data/Binary/Get.hs @@ -104,6 +104,9 @@ import GHC.Word #if MIN_VERSION_base(4,16,0) import GHC.Exts (wordToWord16#, word16ToWord#, wordToWord32#, word32ToWord#) #endif +#if __GLASGOW_HASKELL__ >= 900 +import GHC.Word (uncheckedShiftL64#) +#endif #endif -- Control.Monad.Fail import will become redundant in GHC 8.8+ @@ -553,7 +556,12 @@ foreign import ccall unsafe "stg_uncheckedShiftL64" #endif #else +#if __GLASGOW_HASKELL__ <= 810 shiftl_w64 (W64# w) (I# i) = W64# (w `uncheckedShiftL#` i) +#else +shiftl_w64 (W64# w) (I# i) = W64# (w `uncheckedShiftL64#` i) +#endif + #endif #else |