mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(isnan): Define even if LISP_FLOAT_TYPE is not defined, since fmod

Browse Source 
might need it.
(fmod): Ensure that the magnitude of the result does not exceed that
of the divisor, and that the sign of the result does not disagree with
that of the dividend.  This does not yield a
particularly accurate result, but at least it will be in the
range promised by fmod.
This commit is contained in:
Paul Eggert 1997-01-28 04:51:45 +00:00
parent e1d409fed5
commit bc1c9d7e6b
1 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/data.c
View File

@ -2007,11 +2007,11 @@ arith_driver (code, nargs, args)
return val;
}
#ifdef LISP_FLOAT_TYPE
#undef isnan
#define isnan(x) ((x) != (x))
#ifdef LISP_FLOAT_TYPE
Lisp_Object
float_arith_driver (accum, argnum, code, nargs, args)
double accum;
@ -2141,9 +2141,21 @@ double
fmod (f1, f2)
double f1, f2;
{
double r = f1;
if (f2 < 0.0)
f2 = -f2;
return (f1 - f2 * floor (f1/f2));
/* If the magnitude of the result exceeds that of the divisor, or
the sign of the result does not agree with that of the dividend,
iterate with the reduced value. This does not yield a
particularly accurate result, but at least it will be in the
range promised by fmod. */
do
r -= f2 * floor (r / f2);
while (f2 <= (r < 0 ? -r : r) || ((r < 0) != (f1 < 0) && ! isnan (r)));
return r;
}
#endif /* ! HAVE_FMOD */