Mercurial > emacs

comparison src/floatfns.c @ 11859:8d57babf4b36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Flogb): frexp needs a pointer to int, not EMACS_INT.
author Karl Heuer <kwzh@gnu.org>
date Sat, 20 May 1995 03:36:53 +0000
parents b2291296ec87
children 476296adb950
comparison
equal deleted inserted replaced
11858:343ec791e9be 11859:8d57babf4b36
682 { 682 {
683 #ifdef HAVE_LOGB 683 #ifdef HAVE_LOGB
684 IN_FLOAT (value = logb (f), "logb", arg); 684 IN_FLOAT (value = logb (f), "logb", arg);
685 #else 685 #else
686 #ifdef HAVE_FREXP 686 #ifdef HAVE_FREXP
687 IN_FLOAT (frexp (f, &value), "logb", arg); 687 int ivalue;
688 value--; 688 IN_FLOAT (frexp (f, &ivalue), "logb", arg);
689 value = ivalue - 1;
689 #else 690 #else
690 int i; 691 int i;
691 double d; 692 double d;
692 if (f < 0.0) 693 if (f < 0.0)
693 f = -f; 694 f = -f;