lib/glibc
1
0
Fork 0
mirror of https://sourceware.org/git/glibc.git synced 2025-07-29 11:41:21 +03:00
Code Activity

Update.

Browse Source 
2001-05-06  Andreas Jaeger  <aj@suse.de>

	* sysdeps/i386/fpu/e_acosl.c: New, rewrite of e_acos.S.
	* sysdeps/i386/fpu/s_atanl.c: New, rewrite of e_atanl.S.
	* sysdeps/i386/fpu/e_sqrtl.c: New, rewrite of e_sqrt.S.
	* sysdeps/i386/fpu/e_acosl.S: Removed.
	* sysdeps/i386/fpu/s_atanl.S: Removed.
	* sysdeps/i386/fpu/e_sqrtl.S: Removed.
This commit is contained in:
Andreas Jaeger
2001-05-06 17:03:45 +00:00
parent bcd249f638
commit b3b380428d
6 changed files with 64 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
ChangeLog
View File

@ -1,3 +1,12 @@
2001-05-06 Andreas Jaeger <aj@suse.de>
* sysdeps/i386/fpu/e_acosl.c: New, rewrite of e_acos.S.
* sysdeps/i386/fpu/s_atanl.c: New, rewrite of e_atanl.S.
* sysdeps/i386/fpu/e_sqrtl.c: New, rewrite of e_sqrt.S.
* sysdeps/i386/fpu/e_acosl.S: Removed.
* sysdeps/i386/fpu/s_atanl.S: Removed.
* sysdeps/i386/fpu/e_sqrtl.S: Removed.
2001-05-05 Mark Kettenis <kettenis@gnu.org> 2001-05-05 Mark Kettenis <kettenis@gnu.org>
* sysdeps/mach/hurd/bits/environments.h: Add comment from * sysdeps/mach/hurd/bits/environments.h: Add comment from

22
sysdeps/i386/fpu/e_acosl.S
View File

@ -1,22 +0,0 @@
/*
* Written by J.T. Conklin <jtc@netbsd.org>.
* Public domain.
*
* Adapted for `long double' by Ulrich Drepper <drepper@cygnus.com>.
*/
#include <machine/asm.h>
/* acosl = atanl (sqrtl(1 - x^2) / x) */
ENTRY(__ieee754_acosl)
fldt 4(%esp) /* x */
fld %st
fmul %st(0) /* x^2 */
fld1
fsubp /* 1 - x^2 */
fsqrt /* sqrtl (1 - x^2) */
fxch %st(1)
fpatan
ret
END (__ieee754_acosl)

25
sysdeps/i386/fpu/e_acosl.c Normal file
View File

@ -0,0 +1,25 @@
/*
* Written by J.T. Conklin <jtc@netbsd.org>.
* Public domain.
*
* Adapted for `long double' by Ulrich Drepper <drepper@cygnus.com>.
*/
#include <math_private.h>
long double
__ieee754_acosl (long double x)
{
long double res;
/* acosl = atanl (sqrtl(1 - x^2) / x) */
asm ( "fld %%st\n"
"fmul %%st(0)\n" /* x^2 */
"fld1\n"
"fsubp\n" /* 1 - x^2 */
"fsqrt\n" /* sqrtl (1 - x^2) */
"fxch %%st(1)\n"
"fpatan"
: "=t" (res) : "0" (x) : "st(1)");
return res;
}

16
sysdeps/i386/fpu/e_sqrtl.S
View File

@ -1,16 +0,0 @@
/*
* Written by J.T. Conklin <jtc@netbsd.org>.
* Public domain.
*
* Adapted for `long double' by Ulrich Drepper <drepper@cygnus.com>.
*/
#include <machine/asm.h>
RCSID("$NetBSD: $")
ENTRY(__ieee754_sqrtl)
fldt 4(%esp)
fsqrt
ret
END (__ieee754_sqrtl)

18
sysdeps/i386/fpu/e_sqrtl.c Normal file
View File

@ -0,0 +1,18 @@
/*
* Written by J.T. Conklin <jtc@netbsd.org>.
* Public domain.
*
* Adapted for `long double' by Ulrich Drepper <drepper@cygnus.com>.
*/
#include <math_private.h>
long double
__ieee754_sqrtl (long double x)
{
long double res;
asm ("fsqrt" : "=t" (res) : "0" (x));
return res;
}

20
sysdeps/i386/fpu/s_atanl.S → sysdeps/i386/fpu/s_atanl.c
View File

@ -5,14 +5,18 @@
* Adapted for `long double' by Ulrich Drepper <drepper@cygnus.com>. * Adapted for `long double' by Ulrich Drepper <drepper@cygnus.com>.
*/ */
#include <machine/asm.h> #include <math_private.h>
RCSID("$NetBSD: $") long double
__atanl (long double x)
{
long double res;
asm ("fld1\n"
"fpatan"
: "=t" (res) : "0" (x));
return res;
}
ENTRY(__atanl)
fldt 4(%esp)
fld1
fpatan
ret
END (__atanl)
weak_alias (__atanl, atanl) weak_alias (__atanl, atanl)