[Git][ghc/ghc][wip/T24359] split up SPECIALISE pragmas in GHC.Internal.Float

[sheaf (@sheaf)]

sheaf pushed to branch wip/T24359 at Glasgow Haskell Compiler / GHC


Commits:
6f9fa3be by sheaf at 2024-12-05T09:27:45+01:00
split up SPECIALISE pragmas in GHC.Internal.Float

- - - - -


1 changed file:

- libraries/ghc-internal/src/GHC/Internal/Float.hs


Changes:

=====================================
libraries/ghc-internal/src/GHC/Internal/Float.hs
=====================================
@@ -1217,8 +1217,8 @@ floatToDigits base x =
 -- Converting from an Integer to a RealFloat
 ------------------------------------------------------------------------
 
-{-# SPECIALISE integerToBinaryFloat' :: Integer -> Float,
-                                        Integer -> Double #-}
+{-# SPECIALISE integerToBinaryFloat' :: Integer -> Float #-}
+{-# SPECIALISE integerToBinaryFloat' :: Integer -> Double #-}
 -- | Converts a positive integer to a floating-point value.
 --
 -- The value nearest to the argument will be returned.
@@ -1386,8 +1386,8 @@ Float or Double exploiting the known floatRadix and avoiding
 divisions as much as possible.
 -}
 
-{-# SPECIALISE fromRat'' :: Int -> Int -> Integer -> Integer -> Float,
-                            Int -> Int -> Integer -> Integer -> Double #-}
+{-# SPECIALISE fromRat'' :: Int -> Int -> Integer -> Integer -> Float #-}
+{-# SPECIALISE fromRat'' :: Int -> Int -> Integer -> Integer -> Double #-}
 fromRat'' :: RealFloat a => Int -> Int -> Integer -> Integer -> a
 -- Invariant: n and d strictly positive
 fromRat'' minEx@(I# me#) mantDigs@(I# md#) n d =



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/6f9fa3beed8a1d9fc19ad6a2b6ec477b45448342

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/6f9fa3beed8a1d9fc19ad6a2b6ec477b45448342
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20241205/84c40513/attachment-0001.html>