s390x: add single instruction fma and fmaf

These are available in the s390x baseline isa -march=z900.

diff --git a/src/math/s390x/fma.c b/src/math/s390x/fma.c
new file mode 100644 (file)
index 0000000..86da0e4
--- /dev/null
+++ b/src/math/s390x/fma.c
@@ -0,0 +1,7 @@
+#include <math.h>
+
+double fma(double x, double y, double z)
+{
+       __asm__ ("madbr %0, %1, %2" : "+f"(z) : "f"(x), "f"(y));
+       return z;
+}

diff --git a/src/math/s390x/fmaf.c b/src/math/s390x/fmaf.c
new file mode 100644 (file)
index 0000000..f1aec6a
--- /dev/null
+++ b/src/math/s390x/fmaf.c
@@ -0,0 +1,7 @@
+#include <math.h>
+
+float fmaf(float x, float y, float z)
+{
+       __asm__ ("maebr %0, %1, %2" : "+f"(z) : "f"(x), "f"(y));
+       return z;
+}