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: https://code.delx.au/gnu-emacs/commitdiff_plain/c8bf6cf336aa03879d3e5e67422579f273637bae

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

diff --git a/src/floatfns.c b/src/floatfns.c
index 2471731c6d..33186eaf37 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;