# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1068050711 0
# Node ID 3e336113348d1b1da39c8b691963b6011dd5f4ec
# Parent  06fd6a34f764056e46b6d0d782f2f5fe11b35c36
(Flogb): Don't use VALMASK.

diff -r 06fd6a34f764 -r 3e336113348d src/floatfns.c
--- a/src/floatfns.c	Wed Nov 05 16:00:38 2003 +0000
+++ b/src/floatfns.c	Wed Nov 05 16:45:11 2003 +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