mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-05 03:20:39 -08:00
Code Issues Projects Releases Wiki Activity

* config.h.in (HAVE_LOGB, HAVE_FREXP): Add #undefs for the

Browse source 
configuration script to edit.
* floatfns.c (Flogb): Use HAVE_LOGB and HAVE_FREXP, instead of
assuming that all USG systems have FREXP.
This commit is contained in:
Jim Blandy 1993-08-09 06:04:14 +00:00
parent 3a0ce8496d
commit 6d3c6adbdf
2 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/config.in
View file

@ -117,6 +117,8 @@ and this notice must be preserved on all copies. */
#undef HAVE_RMDIR
#undef HAVE_RANDOM
#undef HAVE_BCOPY
#undef HAVE_LOGB
#undef HAVE_FREXP
#undef HAVE_AIX_SMT_EXP

10
src/floatfns.c
View file

@ -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;