Mercurial > emacs

diff src/floatfns.c @ 89909:68c22ea6027c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Sync to HEAD
author Kenichi Handa <handa@m17n.org>
date Fri, 16 Apr 2004 12:51:06 +0000
parents 375f2633d815
children eac554634bfa
line wrap: on
line diff
--- a/src/floatfns.c	Thu Apr 15 01:08:34 2004 +0000
+++ b/src/floatfns.c	Fri Apr 16 12:51:06 2004 +0000
@@ -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 @@
   double f = extract_float (arg);
 
   if (f == 0.0)
-    value = -(VALMASK >> 1);
+    value = MOST_NEGATIVE_FIXNUM;
   else
     {
 #ifdef HAVE_LOGB
@@ -1075,3 +1075,6 @@
   defsubr (&Sround);
   defsubr (&Struncate);
 }
+
+/* arch-tag: be05bf9d-049e-4e31-91b9-e6153d483ae7
+   (do not change this comment) */