Mercurial > hg > xemacs-beta

diff src/data.c @ 5936:574f0cded429 cygwin

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
try to replace all nnnL or nnnUL constants with EMACS_[U]INT
author Henry Thompson <ht@markup.co.uk>
date Sun, 13 Dec 2015 13:22:58 +0000
parents ffc0c5a66ab1
children
line wrap: on
line diff
--- a/src/data.c	Sat Dec 12 21:49:31 2015 +0000
+++ b/src/data.c	Sun Dec 13 13:22:58 2015 +0000
@@ -1640,7 +1640,7 @@
 #ifdef WITH_NUMBER_TYPES
   REGISTER int i;
   /* Start with a bignum to avoid overflow */
-  Lisp_Object accum = make_bignum (1L), multiplier;
+  Lisp_Object accum = make_bignum (E1), multiplier;
 
   for (i = 0; i < nargs; i++)
     {
@@ -2491,7 +2491,7 @@
 #ifdef HAVE_BIGNUM
   if (BIGNUMP (number))
     {
-      bignum_set_long (scratch_bignum, 1L);
+      bignum_set_long (scratch_bignum, E1);
       bignum_add (scratch_bignum2, XBIGNUM_DATA (number), scratch_bignum);
       return Fcanonicalize_number (make_bignum_bg (scratch_bignum2));
     }
@@ -2499,7 +2499,7 @@
 #ifdef HAVE_RATIO
   if (RATIOP (number))
     {
-      ratio_set_long (scratch_ratio, 1L);
+      ratio_set_long (scratch_ratio, E1);
       ratio_add (scratch_ratio, XRATIO_DATA (number), scratch_ratio);
       /* No need to canonicalize after adding 1 */
       return make_ratio_rt (scratch_ratio);
@@ -2509,7 +2509,7 @@
   if (BIGFLOATP (number))
     {
       bigfloat_set_prec (scratch_bigfloat, XBIGFLOAT_GET_PREC (number));
-      bigfloat_set_long (scratch_bigfloat, 1L);
+      bigfloat_set_long (scratch_bigfloat, E1);
       bigfloat_add (scratch_bigfloat, XBIGFLOAT_DATA (number),
 		    scratch_bigfloat);
       return make_bigfloat_bf (scratch_bigfloat);
@@ -2535,7 +2535,7 @@
 #ifdef HAVE_BIGNUM
   if (BIGNUMP (number))
     {
-      bignum_set_long (scratch_bignum, 1L);
+      bignum_set_long (scratch_bignum, E1);
       bignum_sub (scratch_bignum2, XBIGNUM_DATA (number), scratch_bignum);
       return Fcanonicalize_number (make_bignum_bg (scratch_bignum2));
     }
@@ -2543,7 +2543,7 @@
 #ifdef HAVE_RATIO
   if (RATIOP (number))
     {
-      ratio_set_long (scratch_ratio, 1L);
+      ratio_set_long (scratch_ratio, E1);
       ratio_sub (scratch_ratio, XRATIO_DATA (number), scratch_ratio);
       /* No need to canonicalize after subtracting 1 */
       return make_ratio_rt (scratch_ratio);
@@ -2553,7 +2553,7 @@
   if (BIGFLOATP (number))
     {
       bigfloat_set_prec (scratch_bigfloat, XBIGFLOAT_GET_PREC (number));
-      bigfloat_set_long (scratch_bigfloat, 1L);
+      bigfloat_set_long (scratch_bigfloat, E1);
       bigfloat_sub (scratch_bigfloat, XBIGFLOAT_DATA (number),
 		    scratch_bigfloat);
       return make_bigfloat_bf (scratch_bigfloat);