File tree Expand file tree Collapse file tree 1 file changed +1
-2
lines changed
fp-ieee/src/Numeric/Floating/IEEE/Internal Expand file tree Collapse file tree 1 file changed +1
-2
lines changed Original file line number Diff line number Diff line change @@ -159,10 +159,9 @@ twoProduct_nonscaling a b =
159
159
twoProductFloat :: Float -> Float -> (Float , Float )
160
160
twoProductDouble :: Double -> Double -> (Double , Double )
161
161
162
- #if defined(HAS_FMA_PRIM) && MIN_VERSION_GLASGOW_HASKELL(9, 10, 1 , 0)
162
+ #if defined(HAS_FMA_PRIM) && MIN_VERSION_GLASGOW_HASKELL(9, 8, 3 , 0)
163
163
-- GHC 9.8.1 is buggy: https://gitlab.haskell.org/ghc/ghc/-/issues/24160
164
164
-- GHC 9.8.2 is also buggy: https://gitlab.haskell.org/ghc/ghc/-/issues/24496
165
- -- We might use `MIN_VERSION_GLASGOW_HASKELL(9, 8, 3, 0)` once GHC 9.8.3 is released.
166
165
167
166
twoProductFloat# :: Float # -> Float # -> (# Float # , Float # # )
168
167
twoProductFloat# x y = let ! r = x `timesFloat# ` y
You can’t perform that action at this time.
0 commit comments