24 lines
751 B
Diff
24 lines
751 B
Diff
--- memory-0.17.0/Data/Memory/Internal/CompatPrim64.hs.orig 2019-09-02 10:59:04.000000000 +0800
|
|
+++ memory-0.17.0/Data/Memory/Internal/CompatPrim64.hs 2023-02-17 02:13:44.131991990 +0800
|
|
@@ -148,14 +148,14 @@
|
|
w64# w _ _ = w
|
|
|
|
#elif WORD_SIZE_IN_BITS == 32
|
|
-import GHC.IntWord64
|
|
+import GHC.Exts
|
|
import GHC.Prim (Word#)
|
|
|
|
-timesWord64# :: Word64# -> Word64# -> Word64#
|
|
-timesWord64# a b =
|
|
- let !ai = word64ToInt64# a
|
|
- !bi = word64ToInt64# b
|
|
- in int64ToWord64# (timesInt64# ai bi)
|
|
+-- timesWord64# :: Word64# -> Word64# -> Word64#
|
|
+-- timesWord64# a b =
|
|
+-- let !ai = word64ToInt64# a
|
|
+-- !bi = word64ToInt64# b
|
|
+-- in int64ToWord64# (timesInt64# ai bi)
|
|
|
|
w64# :: Word# -> Word# -> Word# -> Word64#
|
|
w64# _ hw lw =
|