Fix overflow bug in fma

Author: gnzlbg

src/math/fma.rs

@@ -126,8 +126,8 @@ pub fn fma(x: f64, y: f64, z: f64) -> f64 {
     } else {
         /* r -= z */
         let t = rlo;
-        rlo -= zlo;
-        rhi = rhi - zhi - (t < rlo) as u64;
+        rlo = rlo.wrapping_sub(zlo);
+        rhi = rhi.wrapping_sub(zhi.wrapping_sub((t < rlo) as u64));
         if (rhi >> 63) != 0 {
             rlo = (-(rlo as i64)) as u64;
             rhi = (-(rhi as i64)) as u64 - (rlo != 0) as u64;

tests/unit.rs

@@ -12,8 +12,5 @@ fn fma_segfault() {
         -0.00000000000000022204460492503126,
     );
 
-    assert_eq!(
-        fma(-0.992, -0.992, -0.992),
-        -0.00793599999988632,
-    );
+    assert_eq!(fma(-0.992, -0.992, -0.992), -0.00793599999988632,);
 }