1 |
/* Primitive operations on floating point for GNU Emacs Lisp interpreter. |
/* Primitive operations on floating point for GNU Emacs Lisp interpreter. |
2 |
Copyright (C) 1988, 1993, 1994, 1999 Free Software Foundation, Inc. |
Copyright (C) 1988, 1993, 1994, 1999, 2003 Free Software Foundation, Inc. |
3 |
|
|
4 |
This file is part of GNU Emacs. |
This file is part of GNU Emacs. |
5 |
|
|
692 |
double f = extract_float (arg); |
double f = extract_float (arg); |
693 |
|
|
694 |
if (f == 0.0) |
if (f == 0.0) |
695 |
value = -(VALMASK >> 1); |
value = MOST_NEGATIVE_FIXNUM; |
696 |
else |
else |
697 |
{ |
{ |
698 |
#ifdef HAVE_LOGB |
#ifdef HAVE_LOGB |