summaryrefslogtreecommitdiffstats
path: root/libc-top-half/musl/src/math/truncf.c
diff options
context:
space:
mode:
Diffstat (limited to 'libc-top-half/musl/src/math/truncf.c')
-rw-r--r--libc-top-half/musl/src/math/truncf.c19
1 files changed, 19 insertions, 0 deletions
diff --git a/libc-top-half/musl/src/math/truncf.c b/libc-top-half/musl/src/math/truncf.c
new file mode 100644
index 0000000..1a7d03c
--- /dev/null
+++ b/libc-top-half/musl/src/math/truncf.c
@@ -0,0 +1,19 @@
+#include "libm.h"
+
+float truncf(float x)
+{
+ union {float f; uint32_t i;} u = {x};
+ int e = (int)(u.i >> 23 & 0xff) - 0x7f + 9;
+ uint32_t m;
+
+ if (e >= 23 + 9)
+ return x;
+ if (e < 9)
+ e = 1;
+ m = -1U >> e;
+ if ((u.i & m) == 0)
+ return x;
+ FORCE_EVAL(x + 0x1p120f);
+ u.i &= ~m;
+ return u.f;
+}