Mercurial > emacs
changeset 4501:9352d7d021c2
* 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 | 56d7c4beae9f |
| children | 747d934e48f0 |
| files | src/config.in src/floatfns.c |
| diffstat | 2 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/config.in Mon Aug 09 05:56:29 1993 +0000 +++ b/src/config.in Mon Aug 09 06:04:14 1993 +0000 @@ -117,6 +117,8 @@ #undef HAVE_RMDIR #undef HAVE_RANDOM #undef HAVE_BCOPY +#undef HAVE_LOGB +#undef HAVE_FREXP #undef HAVE_AIX_SMT_EXP
--- 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;