Mercurial > emacs

comparison src/data.c @ 1253:7afcf7be0d30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* data.c (Frem): Use the `fmod' function under SunOS, Ultrix, and HP/UX, not just under USG systems.
author Jim Blandy <jimb@redhat.com>
date Tue, 29 Sep 1992 04:54:28 +0000
parents 65f15f1961d8
children 3790dfbefb30
comparison
equal deleted inserted replaced
1252:86a17674c2a1 1253:7afcf7be0d30
1647 { 1647 {
1648 double f1, f2; 1648 double f1, f2;
1649 1649
1650 f1 = XTYPE (num1) == Lisp_Float ? XFLOAT (num1)->data : XINT (num1); 1650 f1 = XTYPE (num1) == Lisp_Float ? XFLOAT (num1)->data : XINT (num1);
1651 f2 = XTYPE (num2) == Lisp_Float ? XFLOAT (num2)->data : XINT (num2); 1651 f2 = XTYPE (num2) == Lisp_Float ? XFLOAT (num2)->data : XINT (num2);
1652 #ifdef USG 1652 #if defined (USG) || defined (sun) || defined (ultrix) || defined (hpux)
1653 f1 = fmod (f1, f2); 1653 f1 = fmod (f1, f2);
1654 #else 1654 #else
1655 f1 = drem (f1, f2); 1655 f1 = drem (f1, f2);
1656 #endif 1656 #endif
1657 if (f1 < 0) 1657 if (f1 < 0)