mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-07 04:10:27 -08:00
Code Issues Projects Releases Wiki Activity

(fmod): Implement it on systems where it's missing, using drem if available.

Browse source
This commit is contained in:
Karl Heuer 1994-02-04 20:18:59 +00:00
parent 399703f129
commit 1d66a5fabb
1 changed files with 13 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/data.c
View file

@ -1778,6 +1778,19 @@ Both must be integers or markers.")
return val;
}
#ifndef HAVE_FMOD
double
fmod (f1, f2)
double f1, f2;
{
#ifdef HAVE_DREM /* Some systems use this non-standard name. */
return (drem (f1, f2));
#else /* Other systems don't seem to have it at all. */
return (f1 - f2 * floor (f1/f2));
#endif
}
#endif /* ! HAVE_FMOD */
DEFUN ("mod", Fmod, Smod, 2, 2, 0,
"Returns X modulo Y.\n\
The result falls between zero (inclusive) and Y (exclusive).\n\
@ -1801,11 +1814,7 @@ Both X and Y must be numbers or markers.")
if (f2 == 0)
Fsignal (Qarith_error, Qnil);
#ifdef HAVE_FMOD
f1 = fmod (f1, f2);
#else
f1 = drem (f1, f2);
#endif
/* If the "remainder" comes out with the wrong sign, fix it. */
if ((f1 < 0) != (f2 < 0))
f1 += f2;