diff --git a/src/estrin.jl b/src/estrin.jl index 5f7d9cf..f2e6e8e 100644 --- a/src/estrin.jl +++ b/src/estrin.jl @@ -126,12 +126,12 @@ end lo = Symbol(:lo_,n) push!(q.args, :($pₙ = p[$n])) push!(q.args, :($prodₙ = $hi_old*x)) - push!(q.args, :($errₙ = fma($hi_old, x, -$prodₙ))) + push!(q.args, :($errₙ = vfmadd($hi_old, x, -$prodₙ))) push!(q.args, :($hi = $pₙ + $prodₙ)) if lo_old === hi_old push!(q.args, :($lo = $prodₙ - ($hi - $pₙ) + $errₙ)) else - push!(q.args, :($lo = fma($lo_old, x, $prodₙ - ($hi - $pₙ) + $errₙ))) + push!(q.args, :($lo = vfmadd($lo_old, x, $prodₙ - ($hi - $pₙ) + $errₙ))) end hi_old = hi lo_old = lo