Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
2955:4d269e525e21 2956:ee35a8fdcfcd
64 else 64 else
65 { 65 {
66 /* Computerized scientific notation */ 66 /* Computerized scientific notation */
67 /* We need room for a radix point, format identifier, and exponent */ 67 /* We need room for a radix point, format identifier, and exponent */
68 const int space = (expt < 0) 68 const int space = (expt < 0)
69 ? (int)(log (-expt) / log (base)) + 3 69 ? (int)(log ((double) (-expt)) / log ((double) base)) + 3
70 : (int)(log (expt) / log (base)) + 2; 70 : (int)(log ((double) expt) / log ((double) base)) + 2;
71 XREALLOC_ARRAY (str, CIbyte, len + space); 71 XREALLOC_ARRAY (str, CIbyte, len + space);
72 memmove (&str[neg + 2], &str[neg + 1], len - neg); 72 memmove (&str[neg + 2], &str[neg + 1], len - neg);
73 str[len + 1] = 'l'; 73 str[len + 1] = 'l';
74 sprintf (&str[len + 2], "%ld", expt); 74 sprintf (&str[len + 2], "%ld", expt);
75 } 75 }