Skip to content

Commit cf756bf

Browse files
committed
fp-ieee: Enable FMA primitive on GHC 9.8.3
1 parent c52769b commit cf756bf

File tree

1 file changed

+1
-2
lines changed
  • fp-ieee/src/Numeric/Floating/IEEE/Internal

1 file changed

+1
-2
lines changed

fp-ieee/src/Numeric/Floating/IEEE/Internal/FMA.hs

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -159,10 +159,9 @@ twoProduct_nonscaling a b =
159159
twoProductFloat :: Float -> Float -> (Float, Float)
160160
twoProductDouble :: Double -> Double -> (Double, Double)
161161

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)
163163
-- GHC 9.8.1 is buggy: https://gitlab.haskell.org/ghc/ghc/-/issues/24160
164164
-- 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.
166165

167166
twoProductFloat# :: Float# -> Float# -> (# Float#, Float# #)
168167
twoProductFloat# x y = let !r = x `timesFloat#` y

0 commit comments

Comments
 (0)