Mercurial > hg > xemacs-beta

diff src/floatfns.c @ 2057:471242c84954

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-05-03 15:19:10 by james] Number-related warning cleanups.
author james
date Mon, 03 May 2004 15:19:14 +0000
parents fd0cbe945410
children f557693c61de
line wrap: on
line diff
--- a/src/floatfns.c	Mon May 03 15:08:51 2004 +0000
+++ b/src/floatfns.c	Mon May 03 15:19:14 2004 +0000
@@ -491,16 +491,16 @@
 #if defined(HAVE_BIGFLOAT) && defined(bigfloat_pow)
   if (BIGFLOATP (number1) && INTEGERP (number2))
     {
-      unsigned long exp;
+      unsigned long exponent;
 
 #ifdef HAVE_BIGNUM
       if (BIGNUMP (number2))
-	exp = bignum_to_ulong (XBIGNUM_DATA (number2));
+	exponent = bignum_to_ulong (XBIGNUM_DATA (number2));
       else
 #endif
-	exp = XUINT (number2);
+	exponent = XUINT (number2);
       bigfloat_set_prec (scratch_bigfloat, XBIGFLOAT_GET_PREC (number1));
-      bigfloat_pow (scratch_bigfloat, XBIGFLOAT_DATA (number1), exp);
+      bigfloat_pow (scratch_bigfloat, XBIGFLOAT_DATA (number1), exponent);
       return make_bigfloat_bf (scratch_bigfloat);
     }
 #endif