summaryrefslogtreecommitdiff
path: root/src/floatfns.c
diff options
context:
space:
mode:
authorJim Blandy <jimb@redhat.com>1993-08-09 06:04:14 +0000
committerJim Blandy <jimb@redhat.com>1993-08-09 06:04:14 +0000
commit9623a49403a121fe1cd393e481662983c9a9b74e (patch)
treed226f1f4308763109af5bcf77476dcf9a4c275a8 /src/floatfns.c
parentbf41069c6dffa2ac930c2cce11a6092aef10bf50 (diff)
downloademacs-9623a49403a121fe1cd393e481662983c9a9b74e.tar.gz
* 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.
Diffstat (limited to 'src/floatfns.c')
-rw-r--r--src/floatfns.c10
1 files changed, 7 insertions, 3 deletions
diff --git a/src/floatfns.c b/src/floatfns.c
index 90a2186d3f6..8f0515a84b5 100644
--- a/src/floatfns.c
+++ b/src/floatfns.c
@@ -635,7 +635,11 @@ This is the same as the exponent of a float.")
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 @@ This is the same as the exponent of a float.")
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;