lib/glibc
1
0
Fork 0
mirror of https://sourceware.org/git/glibc.git synced 2025-07-30 22:43:12 +03:00
Code Activity

Update.

Browse Source 
2000-12-03  Ulrich Drepper  <drepper@redhat.com>

	* math/test-misc.c (main): Add tests for frexp.
	Reported by Fred J. Tydeman <tydeman@tybor.com>.
	* sysdeps/i386/fpu/s_frexpl.S: Don't overflow during the computation.
This commit is contained in:
Ulrich Drepper
2000-12-03 10:00:46 +00:00
parent 06f55c0c1d
commit 79569444ef
3 changed files with 63 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
math/test-misc.c
View File

@ -39,6 +39,43 @@ main (void)
result = 1;
}
}
# if __GNUC__ >= 3 || __GNUC_MINOR__ >= 96
{
long double x = LDBL_MAX / ldexpl (1.0L, LDBL_MANT_DIG + 1);
long double m;
int i;
# if LDBL_MANT_DIG == 64
m = 0xf.fffffffffffffffp-4L;
# else
# error "Please adjust"
# endif
for (i = 0; i < LDBL_MANT_DIG + 1; ++i, x *= 2.0L)
{
long double r;
int e;
printf ("2^%d: ", LDBL_MAX_EXP - (LDBL_MANT_DIG + 1) + i);
r = frexpl (x, &e);
if (r != m)
{
printf ("mantissa incorrect: %.20La\n", r);
result = 1;
continue;
}
if (e != LDBL_MAX_EXP - (LDBL_MANT_DIG + 1) + i)
{
printf ("exponent wrong %d (%.20Lg)\n", e, x);
result = 1;
continue;
}
puts ("ok");
}
}
# endif
#endif
{