Mercurial > hg > xemacs-beta

diff src/number-gmp.c @ 2956:ee35a8fdcfcd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-09-27 05:29:41 by ben] fix compilation warnings text.c, event-Xt.c, lisp.h, number-gmp.c, number-gmp.h: Fix compilation warnings. A couple of changes of new -> new_, 'foo -> `foo'.
author ben
date Tue, 27 Sep 2005 05:29:45 +0000
parents ecf1ebac70d8
children 313c2cc696b9
line wrap: on
line diff
--- a/src/number-gmp.c	Mon Sep 26 22:19:05 2005 +0000
+++ b/src/number-gmp.c	Tue Sep 27 05:29:45 2005 +0000
@@ -66,8 +66,8 @@
       /* Computerized scientific notation */
       /* We need room for a radix point, format identifier, and exponent */
       const int space = (expt < 0)
-        ? (int)(log (-expt) / log (base)) + 3
-        : (int)(log (expt) / log (base)) + 2;
+        ? (int)(log ((double) (-expt)) / log ((double) base)) + 3
+        : (int)(log ((double) expt) / log ((double) base)) + 2;
       XREALLOC_ARRAY (str, CIbyte, len + space);
       memmove (&str[neg + 2], &str[neg + 1], len - neg);
       str[len + 1] = 'l';