diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-11-05 16:45:11 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-11-05 16:45:11 +0000 |
| commit | b916d6722a2265cb82b5af2ff8f040cd2561db38 (patch) | |
| tree | 07c98bfa6119c4c6209ea39dcf8d85b0cb7bd2af /src/floatfns.c | |
| parent | 52fb182157b5f88a9cde8e399f359558cdaf4883 (diff) | |
| download | emacs-b916d6722a2265cb82b5af2ff8f040cd2561db38.tar.gz | |
(Flogb): Don't use VALMASK.
Diffstat (limited to 'src/floatfns.c')
| -rw-r--r-- | src/floatfns.c | 4 |
1 files 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 |