/* 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.
double f = extract_float (arg);
if (f == 0.0)
- value = -(VALMASK >> 1);
+ value = MOST_NEGATIVE_FIXNUM;
else
{
#ifdef HAVE_LOGB
defsubr (&Sround);
defsubr (&Struncate);
}
+
+/* arch-tag: be05bf9d-049e-4e31-91b9-e6153d483ae7
+ (do not change this comment) */