From b916d6722a2265cb82b5af2ff8f040cd2561db38 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 5 Nov 2003 16:45:11 +0000 Subject: [PATCH] (Flogb): Don't use VALMASK. --- src/floatfns.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/floatfns.c b/src/floatfns.c index 84a2dac7df6..61879eabe39 100644 --- a/src/floatfns.c +++ b/src/floatfns.c @@ -1,5 +1,5 @@ /* Primitive operations on floating point for GNU Emacs Lisp interpreter. - Copyright (C) 1988, 1993, 1994, 1999 Free Software Foundation, Inc. + Copyright (C) 1988, 1993, 1994, 1999, 2003 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -692,7 +692,7 @@ This is the same as the exponent of a float. */) double f = extract_float (arg); if (f == 0.0) - value = -(VALMASK >> 1); + value = MOST_NEGATIVE_FIXNUM; else { #ifdef HAVE_LOGB -- 2.39.2