From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 20 May 1995 03:36:53 +0000 (+0000)
Subject: (Flogb): frexp needs a pointer to int, not EMACS_INT.
X-Git-Tag: emacs-19.34~3999
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c8bf6cf336aa03879d3e5e67422579f273637bae;p=emacs.git

(Flogb): frexp needs a pointer to int, not EMACS_INT.
---

diff --git a/src/floatfns.c b/src/floatfns.c
index 2471731c6d8..33186eaf377 100644
--- a/src/floatfns.c
+++ b/src/floatfns.c
@@ -684,8 +684,9 @@ This is the same as the exponent of a float.")
       IN_FLOAT (value = logb (f), "logb", arg);
 #else
 #ifdef HAVE_FREXP
-      IN_FLOAT (frexp (f, &value), "logb", arg);
-      value--;
+      int ivalue;
+      IN_FLOAT (frexp (f, &ivalue), "logb", arg);
+      value = ivalue - 1;
 #else
       int i;
       double d;