about summary refs log tree commit diff
path: root/sysdeps/libm-ieee754/s_ldexpl.c
diff options
context:
space:
mode:
authorRoland McGrath <roland@gnu.org>1996-07-12 00:43:28 +0000
committerRoland McGrath <roland@gnu.org>1996-07-12 00:43:28 +0000
commite6c9a67a0bdb970f3b7f7ced6581b98cfe35797c (patch)
treef44ede8d7ebfe1f660126bebf0f2ef7009e04309 /sysdeps/libm-ieee754/s_ldexpl.c
parentadc6ff7f817959b0acf48de1bf0e7a7a6c0b901d (diff)
downloadglibc-e6c9a67a0bdb970f3b7f7ced6581b98cfe35797c.tar.gz
glibc-e6c9a67a0bdb970f3b7f7ced6581b98cfe35797c.tar.xz
glibc-e6c9a67a0bdb970f3b7f7ced6581b98cfe35797c.zip
* math/Makefile (calls): Add s_frexp, s_ldexp.
	(routines): Remove them and &f from here.

	* sys/socket.h: New file, wrapper for socket/sys/socket.h.

Thu Jul 11 00:22:40 1996  Ulrich Drepper  <drepper@cygnus.com>

	* sysdeps/libm-ieee754/s_frexpl.c: New file.  `long double'
	implementation of frexp() function.
	* sysdeps/libm-ieee754/s_ldexpl.c: New file.  `long double'
	implementation of ldexp() function.

	* sysdeps/libm-i387/s_isnanl.c (isnanl): Mask explicit one
	out before or'ing.
Diffstat (limited to 'sysdeps/libm-ieee754/s_ldexpl.c')
-rw-r--r--sysdeps/libm-ieee754/s_ldexpl.c37
1 files changed, 37 insertions, 0 deletions
diff --git a/sysdeps/libm-ieee754/s_ldexpl.c b/sysdeps/libm-ieee754/s_ldexpl.c
new file mode 100644
index 0000000000..bf64c89898
--- /dev/null
+++ b/sysdeps/libm-ieee754/s_ldexpl.c
@@ -0,0 +1,37 @@
+/* s_ldexpl.c -- long double version of s_ldexp.c.
+ * Conversion to long double by Ulrich Drepper,
+ * Cygnus Support, drepper@cygnus.com.
+ */
+
+/*
+ * ====================================================
+ * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
+ *
+ * Developed at SunPro, a Sun Microsystems, Inc. business.
+ * Permission to use, copy, modify, and distribute this
+ * software is freely granted, provided that this notice
+ * is preserved.
+ * ====================================================
+ */
+
+#if defined(LIBM_SCCS) && !defined(lint)
+static char rcsid[] = "$NetBSD: $";
+#endif
+
+#include "math.h"
+#include "math_private.h"
+#include <errno.h>
+
+#ifdef __STDC__
+	long double __ldexpl(long double value, int exp)
+#else
+	long double __ldexpl(value, exp)
+	long double value; int exp;
+#endif
+{
+	if(!__finitel(value)||value==0.0) return value;
+	value = __scalbnl(value,exp);
+	if(!__finitel(value)||value==0.0) errno = ERANGE;
+	return value;
+}
+weak_alias (__ldexpl, ldexpl)