Int64# was added in GHC 9.4.x

Author: TravisWhitaker

Data/Atomic.hs

@@ -43,37 +43,51 @@ import Data.IORef
 -- 64-bit machine, Int ~ Int64, do it the fast way:
 #if SIZEOF_HSINT == 8
 
+#if MIN_VERSION_base(4,17,0)
+int64ToInt :: Int64# -> Int#
+int64ToInt = int64ToInt#
+
+intToInt64 :: Int# -> Int64#
+intToInt64 = intToInt64#
+#else
+int64ToInt :: Int# -> Int#
+int64ToInt i = i
+
+intToInt64 :: Int# -> Int#
+intToInt64 i = i
+#endif
+
 -- | A mutable, atomic integer.
 data Atomic = C (MutableByteArray# RealWorld)
 
 -- | Create a new, zero initialized, atomic.
 new :: Int64 -> IO Atomic
 new (I64# n64) = IO $ \s ->
     case newByteArray# SIZEOF_HSINT# s of { (# s1, mba #) ->
-    case atomicWriteIntArray# mba 0# (int64ToInt# n64) s1 of { s2 ->
+    case atomicWriteIntArray# mba 0# (int64ToInt n64) s1 of { s2 ->
     (# s2, C mba #) }}
 
 read :: Atomic -> IO Int64
 read (C mba) = IO $ \s ->
     case atomicReadIntArray# mba 0# s of { (# s1, n #) ->
-    (# s1, I64# (intToInt64# n) #)}
+    (# s1, I64# (intToInt64 n) #)}
 
 -- | Set the atomic to the given value.
 write :: Atomic -> Int64 -> IO ()
 write (C mba) (I64# n64) = IO $ \s ->
-    case atomicWriteIntArray# mba 0# (int64ToInt# n64) s of { s1 ->
+    case atomicWriteIntArray# mba 0# (int64ToInt n64) s of { s1 ->
     (# s1, () #) }
 
 -- | Increase the atomic by the given amount.
 add :: Atomic -> Int64 -> IO ()
 add (C mba) (I64# n64) = IO $ \s ->
-    case fetchAddIntArray# mba 0# (int64ToInt# n64) s of { (# s1, _ #) ->
+    case fetchAddIntArray# mba 0# (int64ToInt n64) s of { (# s1, _ #) ->
     (# s1, () #) }
 
 -- | Decrease the atomic by the given amount.
 subtract :: Atomic -> Int64 -> IO ()
 subtract (C mba) (I64# n64) = IO $ \s ->
-    case fetchSubIntArray# mba 0# (int64ToInt# n64) s of { (# s1, _ #) ->
+    case fetchSubIntArray# mba 0# (int64ToInt n64) s of { (# s1, _ #) ->
     (# s1, () #) }
 
 #else

System/Metrics/Distribution.hsc

@@ -44,6 +44,45 @@ import Data.Array
 import System.Metrics.Distribution.Internal (Stats(..))
 import System.Metrics.ThreadId
 
+-- 64-bit machine, Int ~ Int64, do it the fast way:
+#if SIZEOF_HSINT == 8
+
+#if MIN_VERSION_base(4,17,0)
+int64ToDouble :: Int64## -> Double##
+int64ToDouble i = int2Double## (int64ToInt## i)
+
+intToInt64 :: Int## -> Int64##
+intToInt64 = intToInt64##
+
+plusInt64 :: Int64## -> Int64## -> Int64##
+plusInt64 = plusInt64##
+
+readInt64Array :: MutableByteArray## d -> Int## -> State## d -> (## State## d, Int64## ##)
+readInt64Array = readInt64Array##
+
+writeInt64Array :: MutableByteArray## d -> Int## -> Int64## -> State## d -> State## d
+writeInt64Array = writeInt64Array##
+#else
+
+intToInt64 :: Int## -> Int##
+intToInt64 i = i
+
+plusInt64 :: Int## -> Int## -> Int##
+plusInt64 = (+##)
+
+readInt64Array :: MutableByteArray## d -> Int## -> State## d -> (## State## d, Int## ##)
+readInt64Array = readIntArray##
+
+writeInt64Array :: MutableByteArray# d -> Int# -> Int# -> State# d -> State# d
+writeInt64Array = writeIntArray##
+#endif
+
+#else
+-- I don't know a better way on 32-bit machines...
+int64ToDouble i =
+    case fromIntegral (I64## i) of (D## d) -> d
+#endif
+
 -- | An metric for tracking events.
 newtype Distribution = Distribution { unD :: Array Stripe }
 
@@ -90,7 +129,7 @@ newDistrib = IO $ \s ->
     -- probably unecessary
     case atomicWriteIntArray## mba lockPos' 0## s1 of { s2 ->
     case countPos of { (I## countPos') ->
-    case writeInt64Array## mba countPos' (intToInt64## 0##) s2 of { s3 ->
+    case writeInt64Array mba countPos' (intToInt64 0##) s2 of { s3 ->
     case meanPos of { (I## meanPos') ->
     case writeDoubleArray## mba meanPos' 0.0#### s3 of { s4 ->
     case sumSqDeltaPos of { (I## sumSqDeltaPos') ->
@@ -148,17 +187,6 @@ spinUnlock mba = \s ->
     case writeIntArray## mba lockPos' 0## s of { s2 ->
     s2 }}
 
-int64ToDouble :: Int64## -> Double##
--- 64-bit machine, Int ~ Int64, do it the fast way:
-#if SIZEOF_HSINT == 8
-int64ToDouble i = int2Double## (int64ToInt## i)
-#else
--- I don't know a better way on 32-bit machines...
-int64ToDouble i =
-    case fromIntegral (I64## i) of (D## d) -> d
-#endif
-
-{-# INLINE int64ToDouble #-}
 
 -- | Add the same value to the distribution N times.
 --   Mean and variance are computed according to
@@ -169,7 +197,7 @@ addN distribution (D## val) (I64## n) = IO $ \s ->
     case myStripe' s of { (## s1, (Stripe (Distrib mba)) ##) ->
     case spinLock mba s1 of { s2 ->
     case countPos of { (I## countPos') ->
-    case readInt64Array## mba countPos' s2 of { (## s3, count ##) ->
+    case readInt64Array mba countPos' s2 of { (## s3, count ##) ->
     case meanPos of { (I## meanPos') ->
     case readDoubleArray## mba meanPos' s3 of { (## s4, mean ##) ->
     case sumSqDeltaPos of { (I## sumSqDeltaPos') ->
@@ -180,11 +208,11 @@ addN distribution (D## val) (I64## n) = IO $ \s ->
     case readDoubleArray## mba minPos' s6 of { (## s7, dMin ##) ->
     case maxPos of { (I## maxPos') ->
     case readDoubleArray## mba maxPos' s7 of { (## s8, dMax ##) ->
-    case plusInt64## count n of { count' ->
+    case plusInt64 count n of { count' ->
     case val -#### mean of { delta ->
     case mean +#### ((int64ToDouble n) *#### delta /#### (int64ToDouble count')) of { mean' ->
     case sumSqDelta +#### (delta *#### (val -#### mean') *#### (int64ToDouble n)) of { sumSqDelta' ->
-    case writeInt64Array## mba countPos' count' s8 of { s9 ->
+    case writeInt64Array mba countPos' count' s8 of { s9 ->
     case writeDoubleArray## mba meanPos' mean' s9 of { s10 ->
     case writeDoubleArray## mba sumSqDeltaPos' sumSqDelta' s10 of { s11 ->
     case writeDoubleArray## mba sumPos' (dSum +#### val) s11 of { s12 ->
@@ -204,9 +232,9 @@ combine :: Distrib -> Distrib -> IO ()
 combine (Distrib bMBA) (Distrib aMBA) = IO $ \s ->
     case spinLock bMBA s of { s1 ->
     case countPos of { (I## countPos') ->
-    case readInt64Array## aMBA countPos' s1 of { (## s2, aCount ##) ->
-    case readInt64Array## bMBA countPos' s2 of { (## s3, bCount ##) ->
-    case plusInt64## aCount bCount of { count' ->
+    case readInt64Array aMBA countPos' s1 of { (## s2, aCount ##) ->
+    case readInt64Array bMBA countPos' s2 of { (## s3, bCount ##) ->
+    case plusInt64 aCount bCount of { count' ->
     case meanPos of { (I## meanPos' ) ->
     case readDoubleArray## aMBA meanPos' s3 of { (## s4, aMean ##) ->
     case readDoubleArray## bMBA meanPos' s4 of { (## s5, bMean ##) ->
@@ -226,8 +254,8 @@ combine (Distrib bMBA) (Distrib aMBA) = IO $ \s ->
                      )
                )
          ) of { sumSqDelta' ->
-    case writeInt64Array## aMBA countPos' count' s7 of { s8 ->
-    case (case eqInt64## count' (intToInt64## 0##) of { 0## -> mean'; _ -> 0.0#### }) of { writeMean ->
+    case writeInt64Array aMBA countPos' count' s7 of { s8 ->
+    case (case eqInt64## count' (intToInt64 0##) of { 0## -> mean'; _ -> 0.0#### }) of { writeMean ->
     case writeDoubleArray## aMBA meanPos' writeMean s8 of { s9 ->
     case writeDoubleArray## aMBA sumSqDeltaPos' sumSqDelta' s9 of { s10 ->
     case sumPos of { (I## sumPos') ->
@@ -258,7 +286,7 @@ read distrib = do
         case sumPos of { (I## sumPos') ->
         case minPos of { (I## minPos') ->
         case maxPos of { (I## maxPos') ->
-        case readInt64Array## mba countPos' s of { (## s1, count ##) ->
+        case readInt64Array mba countPos' s of { (## s1, count ##) ->
         case readDoubleArray## mba meanPos' s1 of { (## s2, mean ##) ->
         case readDoubleArray## mba sumSqDeltaPos' s2 of { (## s3, sumSqDelta ##) ->
         case readDoubleArray## mba sumPos' s3 of { (## s4, dSum ##) ->