From 4abab5ad6c8465a7528ccdd5f49367da05f78bbd Mon Sep 17 00:00:00 2001 From: Vladimir Azarov Date: Tue, 1 Oct 2024 15:47:05 +0200 Subject: Initial version --- src/math/s390x/trunc.c | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 src/math/s390x/trunc.c (limited to 'src/math/s390x/trunc.c') diff --git a/src/math/s390x/trunc.c b/src/math/s390x/trunc.c new file mode 100644 index 0000000..3e5d886 --- /dev/null +++ b/src/math/s390x/trunc.c @@ -0,0 +1,15 @@ +#include + +#if defined(__HTM__) || __ARCH__ >= 9 + +double trunc(double x) +{ + __asm__ ("fidbra %0, 5, %1, 4" : "=f"(x) : "f"(x)); + return x; +} + +#else + +#include "../trunc.c" + +#endif -- cgit v1.2.3