diff options
| author | Stefan Monnier | 2003-11-05 16:45:11 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2003-11-05 16:45:11 +0000 |
| commit | b916d6722a2265cb82b5af2ff8f040cd2561db38 (patch) | |
| tree | 07c98bfa6119c4c6209ea39dcf8d85b0cb7bd2af | |
| parent | 52fb182157b5f88a9cde8e399f359558cdaf4883 (diff) | |
| download | emacs-b916d6722a2265cb82b5af2ff8f040cd2561db38.tar.gz emacs-b916d6722a2265cb82b5af2ff8f040cd2561db38.zip | |
(Flogb): Don't use VALMASK.
| -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 @@ | |||
| 1 | /* Primitive operations on floating point for GNU Emacs Lisp interpreter. | 1 | /* Primitive operations on floating point for GNU Emacs Lisp interpreter. |
| 2 | Copyright (C) 1988, 1993, 1994, 1999 Free Software Foundation, Inc. | 2 | Copyright (C) 1988, 1993, 1994, 1999, 2003 Free Software Foundation, Inc. |
| 3 | 3 | ||
| 4 | This file is part of GNU Emacs. | 4 | This file is part of GNU Emacs. |
| 5 | 5 | ||
| @@ -692,7 +692,7 @@ This is the same as the exponent of a float. */) | |||
| 692 | double f = extract_float (arg); | 692 | double f = extract_float (arg); |
| 693 | 693 | ||
| 694 | if (f == 0.0) | 694 | if (f == 0.0) |
| 695 | value = -(VALMASK >> 1); | 695 | value = MOST_NEGATIVE_FIXNUM; |
| 696 | else | 696 | else |
| 697 | { | 697 | { |
| 698 | #ifdef HAVE_LOGB | 698 | #ifdef HAVE_LOGB |