Enable FMA primops on GHC 9.8.2 or later

minoki · Feb 29, 2024 · e0015bf · e0015bf
1 parent 67c1515
commit e0015bf
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/fp-ieee/src/Numeric/Floating/IEEE/Internal/FMA.hs b/fp-ieee/src/Numeric/Floating/IEEE/Internal/FMA.hs
@@ -159,8 +159,8 @@ twoProduct_nonscaling a b =
 twoProductFloat :: Float -> Float -> (Float, Float)
 twoProductDouble :: Double -> Double -> (Double, Double)
 
-#if defined(HAS_FMA_PRIM) && 0
--- Disabled for now: https://gitlab.haskell.org/ghc/ghc/-/issues/24160
+#if defined(HAS_FMA_PRIM) && MIN_VERSION_GLASGOW_HASKELL(9, 8, 2, 0)
+-- GHC 9.8.1 is buggy: https://gitlab.haskell.org/ghc/ghc/-/issues/24160
 
 twoProductFloat# :: Float# -> Float# -> (# Float#, Float# #)
 twoProductFloat# x y = let !r = x `timesFloat#` y