AuroraMiddleware/glibc
1
0
Fork 0
mirror of https://sourceware.org/git/glibc.git synced 2025-01-11 11:50:06 +00:00
Code Issues Packages Projects Releases Wiki Activity

Correct the FE_INEXACT and FE_UNDERFLOW cases.

Browse Source
This commit is contained in:
Ulrich Drepper 1997-07-06 21:45:05 +00:00
parent 184e1d450b
commit c49416b519
1 changed files with 31 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
sysdeps/m68k/fpu/fraiseexcpt.c
View File

@ -48,15 +48,43 @@ feraiseexcept (int excepts)
/* Next: overflow. */
if (excepts & FE_OVERFLOW)
{
/* We cannot raise the overflow exception without also setting the
inexact flag. Restore it after the operation, unless it should
be set anyway. */
long double d = LDBL_MAX;
__asm__ __volatile__ ("fmul%.x %0,%0; fnop" : "=f" (d) : "0" (d));
fexcept_t fpsr;
__asm__ ("fmove%.l %/fpsr,%0" : "=dm" (fpsr));
__asm__ __volatile__ ("fmul%.x %0,%0" : "=f" (d) : "0" (d));
if (!((excepts | fpsr) & FE_INEXACT))
{
__asm__ ("fmove%.l %/fpsr,%0" : "=dm" (fpsr));
fpsr &= ~FE_INEXACT;
__asm__ __volatile__ ("fmove%.l %0,%/fpsr" : : "dm" (fpsr));
}
else
__asm__ ("fnop");
}
/* Next: underflow. */
if (excepts & FE_UNDERFLOW)
{
long double d = LDBL_MIN;
__asm__ __volatile__ ("fdiv%.s %#0r16,%0; fnop" : "=f" (d) : "0" (d));
/* We cannot raise the underflow exception without also setting the
inexact flag. Restore it after the operation, unless it should
be set anyway. */
long double d = -LDBL_MAX;
fexcept_t fpsr;
__asm__ ("fmove%.l %/fpsr,%0" : "=dm" (fpsr));
__asm__ __volatile__ ("fetox%.x %0" : "=f" (d) : "0" (d));
if (!((excepts | fpsr) & FE_INEXACT))
{
__asm__ ("fmove%.l %/fpsr,%0" : "=dm" (fpsr));
fpsr &= ~FE_INEXACT;
__asm__ __volatile__ ("fmove%.l %0,%/fpsr" : : "dm" (fpsr));
}
else
__asm__ ("fnop");
}
/* Last: inexact. */