shithub: mc

Info  •  Files  •  Log  •  Branches

Remove fma from exp-impl; not needed

--- a/lib/math/exp-impl.myr

+++ b/lib/math/exp-impl.myr

@@ -17,8 +17,6 @@

 	pkglocal const expm164 : (f : flt64 -> flt64)

 ;;

-extern const fma32 : (x : flt32, y : flt32, z : flt32 -> flt32)

-extern const fma64 : (x : flt64, y : flt64, z : flt64 -> flt64)

 extern const horner_polyu32 : (f : flt32, a : uint32[:] -> flt32)

 extern const horner_polyu64 : (f : flt64, a : uint64[:] -> flt64)

@@ -25,7 +23,6 @@

 type fltdesc(@f, @u, @i) = struct

 	explode : (f : @f -> (bool, @i, @u))

 	assem : (n : bool, e : @i, s : @u -> @f)

-	fma : (x : @f, y : @f, z : @f -> @f)

 	horner : (f : @f, a : @u[:] -> @f)

 	sgnmask : @u

 	tobits : (f : @f -> @u)

@@ -59,7 +56,6 @@

 const desc32 : fltdesc(flt32, uint32, int32) = [

 	.explode = std.flt32explode,

 	.assem = std.flt32assem,

-	.fma = fma32,

 	.horner = horner_polyu32,

 	.sgnmask = (1 << 31),

 	.tobits = std.flt32bits,

@@ -127,7 +123,6 @@

 const desc64 : fltdesc(flt64, uint64, int64) = [

 	.explode = std.flt64explode,

 	.assem = std.flt64assem,

-	.fma = fma64,

 	.horner = horner_polyu64,

 	.sgnmask = (1 << 63),

 	.tobits = std.flt64bits,