Remove ldexp and ldexpf. The former is in libc, and the latter is

identical to scalbnf, which is now aliased as ldexpf.  Note that the
old implementations made the mistake of setting errno and were the
only libm routines to do so.

2 files changed, 0 insertions, 59 deletions

diff --git a/lib/msun/src/s_ldexp.c b/lib/msun/src/s_ldexp.c
deleted file mode 100644
index 9dbffc0..0000000
--- a/lib/msun/src/s_ldexp.c
+++ /dev/null
@@ -1,28 +0,0 @@
-/* @(#)s_ldexp.c 5.1 93/09/24 */
-/*
- * ====================================================
- * 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.
- * ====================================================
- */
-
-#ifndef lint
-static char rcsid[] = "$FreeBSD$";
-#endif
-
-#include "math.h"
-#include "math_private.h"
-#include <errno.h>
-
-double
-ldexp(double value, int exp)
-{
-	if(!finite(value)||value==0.0) return value;
-	value = scalbn(value,exp);
-	if(!finite(value)||value==0.0) errno = ERANGE;
-	return value;
-}
diff --git a/lib/msun/src/s_ldexpf.c b/lib/msun/src/s_ldexpf.c
deleted file mode 100644
index 3b57da54..0000000
--- a/lib/msun/src/s_ldexpf.c
+++ /dev/null
@@ -1,31 +0,0 @@
-/* s_ldexpf.c -- float version of s_ldexp.c.
- * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@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.
- * ====================================================
- */
-
-#ifndef lint
-static char rcsid[] = "$FreeBSD$";
-#endif
-
-#include "math.h"
-#include "math_private.h"
-#include <errno.h>
-
-float
-ldexpf(float value, int exp)
-{
-	if(!finitef(value)||value==(float)0.0) return value;
-	value = scalbnf(value,exp);
-	if(!finitef(value)||value==(float)0.0) errno = ERANGE;
-	return value;
-}