summaryrefslogtreecommitdiff
path: root/libquadmath/math/modfq.c
diff options
context:
space:
mode:
Diffstat (limited to 'libquadmath/math/modfq.c')
-rw-r--r--libquadmath/math/modfq.c19
1 files changed, 16 insertions, 3 deletions
diff --git a/libquadmath/math/modfq.c b/libquadmath/math/modfq.c
index 8c5db54bb76..12a87e75ee1 100644
--- a/libquadmath/math/modfq.c
+++ b/libquadmath/math/modfq.c
@@ -1,4 +1,4 @@
-/* modfq.c -- __float128 version of s_modf.c.
+/* s_modfl.c -- long double version of s_modf.c.
* Conversion to IEEE quad long double by Jakub Jelinek, jj@ultra.linux.cz.
*/
@@ -13,12 +13,25 @@
* ====================================================
*/
+#if defined(LIBM_SCCS) && !defined(lint)
+static char rcsid[] = "$NetBSD: $";
+#endif
+
+/*
+ * modfq(long double x, long double *iptr)
+ * return fraction part of x, and return x's integral part in *iptr.
+ * Method:
+ * Bit twiddling.
+ *
+ * Exception:
+ * No exception.
+ */
+
#include "quadmath-imp.h"
static const __float128 one = 1.0;
-__float128
-modfq (__float128 x, __float128 *iptr)
+__float128 modfq(__float128 x, __float128 *iptr)
{
int64_t i0,i1,j0;
uint64_t i;