/[emacs]/emacs/src/floatfns.c
ViewVC logotype

Diff of /emacs/src/floatfns.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.80 by miles, Mon Sep 1 15:45:52 2003 UTC revision 1.81 by monnier, Wed Nov 5 16:45:11 2003 UTC
# Line 1  Line 1 
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    
# Line 692  This is the same as the exponent of a fl Line 692  This is the same as the exponent of a fl
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

Legend:
Removed from v.1.80  
changed lines
  Added in v.1.81

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26