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/roundl.c | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 src/math/s390x/roundl.c (limited to 'src/math/s390x/roundl.c') diff --git a/src/math/s390x/roundl.c b/src/math/s390x/roundl.c new file mode 100644 index 0000000..ce644dd --- /dev/null +++ b/src/math/s390x/roundl.c @@ -0,0 +1,15 @@ +#include + +#if defined(__HTM__) || __ARCH__ >= 9 + +long double roundl(long double x) +{ + __asm__ ("fixbra %0, 1, %1, 4" : "=f"(x) : "f"(x)); + return x; +} + +#else + +#include "../roundl.c" + +#endif -- cgit v1.2.3