Doubledouble: disable FMADD

This commit is contained in:
Frédéric Bour 2021-12-16 10:42:30 +01:00
parent 8afe943e93
commit 850caf2d3b
1 changed files with 4 additions and 0 deletions

View File

@ -111,6 +111,10 @@ let add {hi = h1; lo = l1} {hi = h2; lo = l2} =
let neg {hi; lo} = {hi = -.hi; lo = -.lo}
let sub t1 t2 = add t1 (neg t2)
(* Disable fused-multiply-add optimization
See https://github.com/ocaml/ocaml/issues/10323. *)
let ( *. ) x y = Sys.opaque_identity (x *. y)
let mul {hi = h1; lo = l1} {hi = h2; lo = l2} =
(*C = SPLIT * hi; hx = C-hi; c = SPLIT * y.hi;*)
let c' = k_split *. h1 in