Mercurial > hg > xemacs-beta

diff src/floatfns.c @ 288:e11d67e05968 r21-0b42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b42
author cvs
date Mon, 13 Aug 2007 10:35:54 +0200
parents 558f606b08ae
children 8626e4521993
line wrap: on
line diff
--- a/src/floatfns.c	Mon Aug 13 10:35:07 2007 +0200
+++ b/src/floatfns.c	Mon Aug 13 10:35:54 2007 +0200
@@ -694,7 +694,7 @@
   double f = extract_float (arg);
 
   if (f == 0.0)
-    return (make_int (- (((EMACS_UINT) 1) << (VALBITS - 1)))); /* most-negative-fixnum */
+    return make_int (- (int)((((EMACS_UINT) 1) << (VALBITS - 1)))); /* most-negative-fixnum */
 #ifdef HAVE_LOGB
   {
     Lisp_Object val;