From d0d26c1379598983d2163deb13ba8ab13b14ba2c Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Thu, 2 Mar 2017 09:21:19 -0800 Subject: Remove XFLOATINT * src/lisp.h (XFLOATINT): Remove this alias for extract_float. All callers changed to use extract_float. * src/frame.h (NUMVAL): Now an inline function, not a macro. --- src/floatfns.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/floatfns.c') diff --git a/src/floatfns.c b/src/floatfns.c index 96711faff62..737fb22091e 100644 --- a/src/floatfns.c +++ b/src/floatfns.c @@ -178,7 +178,7 @@ The function returns the cons cell (SGNFCAND . EXP). If X is zero, both parts (SGNFCAND and EXP) are zero. */) (Lisp_Object x) { - double f = XFLOATINT (x); + double f = extract_float (x); int exponent; double sgnfcand = frexp (f, &exponent); return Fcons (make_float (sgnfcand), make_number (exponent)); @@ -191,7 +191,7 @@ EXPONENT must be an integer. */) { CHECK_NUMBER (exponent); int e = min (max (INT_MIN, XINT (exponent)), INT_MAX); - return make_float (ldexp (XFLOATINT (sgnfcand), e)); + return make_float (ldexp (extract_float (sgnfcand), e)); } DEFUN ("exp", Fexp, Sexp, 1, 1, 0, -- cgit v1.2.3