Mercurial > emacs

diff src/floatfns.c @ 4501:9352d7d021c2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* config.h.in (HAVE_LOGB, HAVE_FREXP): Add #undefs for the configuration script to edit. * floatfns.c (Flogb): Use HAVE_LOGB and HAVE_FREXP, instead of assuming that all USG systems have FREXP.
author Jim Blandy <jimb@redhat.com>
date Mon, 09 Aug 1993 06:04:14 +0000
parents 8ab0a7453577
children 6131dad14f6f
line wrap: on
line diff
--- a/src/floatfns.c	Mon Aug 09 05:56:29 1993 +0000
+++ b/src/floatfns.c	Mon Aug 09 06:04:14 1993 +0000
@@ -635,7 +635,11 @@
   int value;
   double f = extract_float (arg);
 
-#ifdef USG
+#ifdef HAVE_LOGB
+  IN_FLOAT (value = logb (f), "logb", arg);
+  XSET (val, Lisp_Int, value);
+#else
+#ifdef HAVE_FREXP
   {
     int exp;  
 
@@ -643,8 +647,8 @@
     XSET (val, Lisp_Int, exp-1);
   }
 #else
-  IN_FLOAT (value = logb (f), "logb", arg);
-  XSET (val, Lisp_Int, value);
+  Well, what *do* you have?
+#endif
 #endif
 
   return val;