Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
2056:ab71063baf27 2057:471242c84954
489 } 489 }
490 490
491 #if defined(HAVE_BIGFLOAT) && defined(bigfloat_pow) 491 #if defined(HAVE_BIGFLOAT) && defined(bigfloat_pow)
492 if (BIGFLOATP (number1) && INTEGERP (number2)) 492 if (BIGFLOATP (number1) && INTEGERP (number2))
493 { 493 {
494 unsigned long exp; 494 unsigned long exponent;
495 495
496 #ifdef HAVE_BIGNUM 496 #ifdef HAVE_BIGNUM
497 if (BIGNUMP (number2)) 497 if (BIGNUMP (number2))
498 exp = bignum_to_ulong (XBIGNUM_DATA (number2)); 498 exponent = bignum_to_ulong (XBIGNUM_DATA (number2));
499 else 499 else
500 #endif 500 #endif
501 exp = XUINT (number2); 501 exponent = XUINT (number2);
502 bigfloat_set_prec (scratch_bigfloat, XBIGFLOAT_GET_PREC (number1)); 502 bigfloat_set_prec (scratch_bigfloat, XBIGFLOAT_GET_PREC (number1));
503 bigfloat_pow (scratch_bigfloat, XBIGFLOAT_DATA (number1), exp); 503 bigfloat_pow (scratch_bigfloat, XBIGFLOAT_DATA (number1), exponent);
504 return make_bigfloat_bf (scratch_bigfloat); 504 return make_bigfloat_bf (scratch_bigfloat);
505 } 505 }
506 #endif 506 #endif
507 507
508 { 508 {