Fcalva/OpenLibm
1
0
Fork 0
mirror of https://git.planet-casio.com/Lephenixnoir/OpenLibm.git synced 2024-12-28 20:43:41 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Remove the non-standard significand() function.

Browse source
This commit is contained in:
Ed Schouten 2015-02-12 13:28:37 +01:00
parent 532fe1553e
commit eca4ac8bf1
7 changed files with 4 additions and 115 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
i387/Make.files
View file

@ -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,7 +11,7 @@ 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 \

21
i387/s_significand.S
View file

@ -1,21 +0,0 @@
/*
* Written by:
* J.T. Conklin (jtc@netbsd.org)
* 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

22
i387/s_significandf.S
View file

@ -1,22 +0,0 @@
/*
* Written by J.T. Conklin <jtc@netbsd.org>.
* 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

10
include/openlibm_math.h
View file

@ -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 */
/*

2
src/Make.files
View file

@ -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

30
src/s_significand.c
View file

@ -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));
}

27
src/s_significandf.c
View file

@ -1,27 +0,0 @@
/* s_significandf.c -- float version of s_significand.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.
* ====================================================
*/
#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));
}