Browse Source

Remove the non-standard significand() function.

Ed Schouten 10 years ago
parent
commit
eca4ac8bf1
7 changed files with 4 additions and 115 deletions
  1. 3 4
      i387/Make.files
  2. 0 21
      i387/s_significand.S
  3. 0 22
      i387/s_significandf.S
  4. 0 10
      include/openlibm_math.h
  5. 1 1
      src/Make.files
  6. 0 30
      src/s_significand.c
  7. 0 27
      src/s_significandf.c

+ 3 - 4
i387/Make.files

@@ -1,8 +1,7 @@
 $(CUR_SRCS) = e_exp.S e_fmod.S e_log.S e_log10.S \
 	    e_remainder.S e_sqrt.S s_ceil.S s_copysign.S \
 	    s_finite.S s_floor.S s_llrint.S s_logb.S s_lrint.S \
-	    s_remquo.S s_rint.S  s_significand.S s_tan.S \
-	    s_trunc.S
+	    s_remquo.S s_rint.S  s_tan.S s_trunc.S
 
 ifneq ($(OS), WINNT)
 $(CUR_SRCS) += s_scalbn.S s_scalbnf.S s_scalbnl.S
@@ -12,11 +11,11 @@ endif
 $(CUR_SRCS)+= e_log10f.S e_logf.S e_remainderf.S \
 	    e_sqrtf.S s_ceilf.S s_copysignf.S s_floorf.S \
 	    s_llrintf.S s_logbf.S s_lrintf.S \
-	    s_remquof.S s_rintf.S s_significandf.S s_truncf.S
+	    s_remquof.S s_rintf.S s_truncf.S
 
 # long double counterparts
 $(CUR_SRCS)+= e_remainderl.S e_sqrtl.S s_ceill.S s_copysignl.S \
 	    s_floorl.S s_llrintl.S \
 	    s_logbl.S s_lrintl.S s_remquol.S s_rintl.S s_truncl.S
 
-$(CUR_SRCS)+= fenv.c
+$(CUR_SRCS)+= fenv.c

+ 0 - 21
i387/s_significand.S

@@ -1,21 +0,0 @@
-/*
- * Written by:
- *	J.T. Conklin ([email protected])
- *	Public domain.
- */
-
-#include <i387/bsd_asm.h>
-//__FBSDID("$FreeBSD: src/lib/msun/i387/s_significand.S,v 1.10 2011/01/07 16:13:12 kib Exp $")
-
-ENTRY(significand)
-	fldl	4(%esp)
-	fxtract
-	fstp	%st(1)
-	ret
-END(significand)
-
-	
-/* Enable stack protection */
-#if defined(__linux__) && defined(__ELF__)
-.section .note.GNU-stack,"",%progbits
-#endif

+ 0 - 22
i387/s_significandf.S

@@ -1,22 +0,0 @@
-/*
- * Written by J.T. Conklin <[email protected]>.
- * Public domain.
- */
-
-#include <i387/bsd_asm.h>
-
-//__FBSDID("$FreeBSD: src/lib/msun/i387/s_significandf.S,v 1.3 2011/01/07 16:13:12 kib Exp $");
-/* RCSID("$NetBSD: s_significandf.S,v 1.3 1995/05/09 00:24:07 jtc Exp $") */
-
-ENTRY(significandf)
-	flds	4(%esp)
-	fxtract
-	fstp	%st(1)
-	ret
-END(significandf)
-
-	
-/* Enable stack protection */
-#if defined(__linux__) && defined(__ELF__)
-.section .note.GNU-stack,"",%progbits
-#endif

+ 0 - 10
include/openlibm_math.h

@@ -317,11 +317,6 @@ double	lgamma_r(double, int *);
  * Single sine/cosine function.
  */
 void	sincos(double, double *, double *);
-
-/*
- * IEEE Test Vector
- */
-double	significand(double);
 #endif /* __BSD_VISIBLE */
 
 /* float versions of ANSI/POSIX functions */
@@ -415,11 +410,6 @@ float	lgammaf_r(float, int *);
  * Single sine/cosine function.
  */
 void	sincosf(float, float *, float *);
-
-/*
- * float version of IEEE Test Vector
- */
-float	significandf(float);
 #endif	/* __BSD_VISIBLE */
 
 /*

+ 1 - 1
src/Make.files

@@ -28,7 +28,7 @@ $(CUR_SRCS) = common.c \
 	s_nexttowardf.c s_remquo.c s_remquof.c \
 	s_rint.c s_rintf.c s_round.c s_roundf.c s_roundl.c \
 	s_scalbln.c s_scalbn.c s_scalbnf.c s_signbit.c \
-	s_signgam.c s_significand.c s_significandf.c s_sin.c s_sincos.c \
+	s_signgam.c s_sin.c s_sincos.c \
 	s_sinf.c s_sincosf.c s_tan.c s_tanf.c s_tanh.c s_tanhf.c s_tgammaf.c \
 	s_trunc.c s_truncf.c s_cpow.c  s_cpowf.c \
 	w_cabs.c w_cabsf.c w_drem.c w_dremf.c

+ 0 - 30
src/s_significand.c

@@ -1,30 +0,0 @@
-/* @(#)s_signif.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.
- * ====================================================
- */
-
-#include "cdefs-compat.h"
-//__FBSDID("$FreeBSD: src/lib/msun/src/s_significand.c,v 1.10 2008/02/22 02:30:35 das Exp $");
-
-/*
- * significand(x) computes just
- * 	scalb(x, (double) -ilogb(x)),
- * for exercising the fraction-part(F) IEEE 754-1985 test vector.
- */
-
-#include <openlibm_math.h>
-
-#include "math_private.h"
-
-DLLEXPORT double
-significand(double x)
-{
-	return __ieee754_scalb(x,(double) -ilogb(x));
-}

+ 0 - 27
src/s_significandf.c

@@ -1,27 +0,0 @@
-/* s_significandf.c -- float version of s_significand.c.
- * Conversion to float by Ian Lance Taylor, Cygnus Support, [email protected].
- */
-
-/*
- * ====================================================
- * 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.
- * ====================================================
- */
-
-#include "cdefs-compat.h"
-//__FBSDID("$FreeBSD: src/lib/msun/src/s_significandf.c,v 1.8 2008/02/22 02:30:36 das Exp $");
-
-#include <openlibm_math.h>
-
-#include "math_private.h"
-
-DLLEXPORT float
-significandf(float x)
-{
-	return __ieee754_scalbf(x,(float) -ilogbf(x));
-}