From 2242bf616b893e85886ed0a2348b96bf1cf7623e Mon Sep 17 00:00:00 2001
From: Rich Felker <dalias@aerifal.cx>
Date: Mon, 13 Aug 2012 14:51:43 -0400
Subject: add significand[fl] math functions

---
 src/math/significand.c | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 src/math/significand.c

(limited to 'src/math/significand.c')

diff --git a/src/math/significand.c b/src/math/significand.c
new file mode 100644
index 00000000..40d9aa9f
--- /dev/null
+++ b/src/math/significand.c
@@ -0,0 +1,7 @@
+#define _GNU_SOURCE
+#include <math.h>
+
+double significand(double x)
+{
+	return scalbn(x, -ilogb(x));
+}
-- 
cgit v1.2.1