Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
287:13a0bd77a29d 288:e11d67e05968
692 (arg)) 692 (arg))
693 { 693 {
694 double f = extract_float (arg); 694 double f = extract_float (arg);
695 695
696 if (f == 0.0) 696 if (f == 0.0)
697 return (make_int (- (((EMACS_UINT) 1) << (VALBITS - 1)))); /* most-negative-fixnum */ 697 return make_int (- (int)((((EMACS_UINT) 1) << (VALBITS - 1)))); /* most-negative-fixnum */
698 #ifdef HAVE_LOGB 698 #ifdef HAVE_LOGB
699 { 699 {
700 Lisp_Object val; 700 Lisp_Object val;
701 IN_FLOAT (val = make_int ((int) logb (f)), "logb", arg); 701 IN_FLOAT (val = make_int ((int) logb (f)), "logb", arg);
702 return (val); 702 return (val);