making the mangling safe for ghc 8.4 and above
authorCarter Tazio Schonwald <carter.schonwald@gmail.com>
Mon, 25 Dec 2017 19:19:15 +0000 (14:19 -0500)
committerCarter Tazio Schonwald <carter.schonwald@gmail.com>
Mon, 25 Dec 2017 19:19:15 +0000 (14:19 -0500)
cmmbits/floatsAndBits.cmm
src/Data/Random/Utils.hs

index d610ca3..acfa456 100644 (file)
@@ -7,7 +7,7 @@
 #define DOUBLE_SIZE_WDS   2
 #endif
 
-stg_word64ToDoublezhPrivate(I64 w)
+cts_random_stg_word64ToDoublezhPrivate(I64 w)
 {
     D_ d;
     P_ ptr;
@@ -22,7 +22,7 @@ stg_word64ToDoublezhPrivate(I64 w)
     return (d);
 }
 
-stg_doubleToWord64zhPrivate(D_ d)
+cts_random_stg_doubleToWord64zhPrivate(D_ d)
 {
     I64 w;
     P_ ptr;
@@ -37,7 +37,7 @@ stg_doubleToWord64zhPrivate(D_ d)
     return (w);
 }
 
-stg_word32ToFloatzhPrivate(W_ w)
+cts_random_stg_word32ToFloatzhPrivate(W_ w)
 {
     F_ f;
     P_ ptr;
@@ -52,7 +52,7 @@ stg_word32ToFloatzhPrivate(W_ w)
     return (f);
 }
 
-stg_floatToWord32zhPrivate(F_ f)
+cts_random_stg_floatToWord32zhPrivate(F_ f)
 {
     W_ w;
     P_ ptr;
index efb64d7..560b333 100644 (file)
@@ -80,7 +80,7 @@ is using CMM.
 castWord32ToFloat :: Word32 -> Float
 castWord32ToFloat (W32# w#) = F# (stgWord32ToFloat w#)
 
-foreign import prim "stg_word32ToFloatzhPrivate"
+foreign import prim "cts_random_stg_word32ToFloatzhPrivate"
     stgWord32ToFloat :: Word# -> Float#
 
 
@@ -93,7 +93,7 @@ foreign import prim "stg_word32ToFloatzhPrivate"
 castFloatToWord32 :: Float -> Word32
 castFloatToWord32 (F# f#) = W32# (stgFloatToWord32 f#)
 
-foreign import prim "stg_floatToWord32zhPrivate"
+foreign import prim "cts_random_stg_floatToWord32zhPrivate"
     stgFloatToWord32 :: Float# -> Word#
 
 
@@ -107,7 +107,7 @@ foreign import prim "stg_floatToWord32zhPrivate"
 castWord64ToDouble :: Word64 -> Double
 castWord64ToDouble (W64# w) = D# (stgWord64ToDouble w)
 
-foreign import prim "stg_word64ToDoublezhPrivate"
+foreign import prim "cts_random_stg_word64ToDoublezhPrivate"
 #if WORD_SIZE_IN_BITS == 64
     stgWord64ToDouble :: Word# -> Double#
 #else
@@ -124,7 +124,7 @@ foreign import prim "stg_word64ToDoublezhPrivate"
 castDoubleToWord64 :: Double -> Word64
 castDoubleToWord64 (D# d#) = W64# (stgDoubleToWord64 d#)
 
-foreign import prim "stg_doubleToWord64zhPrivate"
+foreign import prim "cts_random_stg_doubleToWord64zhPrivate"
 #if WORD_SIZE_IN_BITS == 64
     stgDoubleToWord64 :: Double# -> Word#
 #else