Skip to content

Commit

Permalink
remove redundant ifdef block
Browse files Browse the repository at this point in the history
  • Loading branch information
joewatt95 committed Sep 20, 2023
1 parent 1eb299b commit 8c94580
Show file tree
Hide file tree
Showing 3 changed files with 1 addition and 11 deletions.
6 changes: 0 additions & 6 deletions src/runtime/haskell/Data/Binary/Builder.hs
Original file line number Diff line number Diff line change
Expand Up @@ -422,19 +422,13 @@ shiftr_w16 (W16# w) (I# i) = W16# (w `uncheckedShiftRL#` i)
shiftr_w32 (W32# w) (I# i) = W32# (w `uncheckedShiftRL#` i)
#endif


#if WORD_SIZE_IN_BITS < 64
shiftr_w64 (W64# w) (I# i) = W64# (w `uncheckedShiftRL64#` i)

#if __GLASGOW_HASKELL__ <= 606
-- Exported by GHC.Word in GHC 6.8 and higher
foreign import ccall unsafe "stg_uncheckedShiftRL64"
uncheckedShiftRL64# :: Word64# -> Int# -> Word64#
#endif

#else
shiftr_w64 (W64# w) (I# i) = W64# (w `uncheckedShiftRL64#` i)
#endif

#else
shiftr_w16 = shiftR
Expand Down
5 changes: 0 additions & 5 deletions src/runtime/haskell/Data/Binary/Get.hs
Original file line number Diff line number Diff line change
Expand Up @@ -543,18 +543,13 @@ shiftl_w16 (W16# w) (I# i) = W16# (w `uncheckedShiftL#` i)
shiftl_w32 (W32# w) (I# i) = W32# (w `uncheckedShiftL#` i)
#endif

#if WORD_SIZE_IN_BITS < 64
shiftl_w64 (W64# w) (I# i) = W64# (w `uncheckedShiftL64#` i)

#if __GLASGOW_HASKELL__ <= 606
-- Exported by GHC.Word in GHC 6.8 and higher
foreign import ccall unsafe "stg_uncheckedShiftL64"
uncheckedShiftL64# :: Word64# -> Int# -> Word64#
#endif

#else
shiftl_w64 (W64# w) (I# i) = W64# (w `uncheckedShiftL64#` i)
#endif

#else
shiftl_w16 = shiftL
Expand Down
1 change: 1 addition & 0 deletions stack.yaml
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
# This default stack file is a copy of stack-ghc9.4.7.yaml
# But committing a symlink can be problematic on Windows, so it's a real copy.
# See: https://github.com/GrammaticalFramework/gf-core/pull/106

resolver: lts-21.12

extra-deps:
Expand Down

0 comments on commit 8c94580

Please sign in to comment.