* bignum.c: Use BDIGIT type for hbase.

akr · akr · commit ce20b98b143b · 2013-05-31T22:32:55.000Z
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@41012 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,7 @@
+Sat Jun  1 07:32:15 2013  Tanaka Akira  <akr@fsij.org>
+
+	* bignum.c: Use BDIGIT type for hbase.
+
 Sat Jun  1 02:37:35 2013  NARUSE, Yui  <naruse@ruby-lang.org>
 
 	* ext/socket/option.c (sockopt_s_byte): constructor of the sockopt
diff --git a/bignum.c b/bignum.c
@@ -1055,7 +1055,7 @@ big2str_find_n1(VALUE x, int base)
 }
 
 static long
-big2str_orig(VALUE x, int base, char* ptr, long len, long hbase, int hbase_numdigits, int trim)
+big2str_orig(VALUE x, int base, char* ptr, long len, BDIGIT hbase, int hbase_numdigits, int trim)
 {
     long i = RBIGNUM_LEN(x), j = len;
     BDIGIT* ds = BDIGITS(x);
@@ -1088,7 +1088,7 @@ big2str_orig(VALUE x, int base, char* ptr, long len, long hbase, int hbase_numdi
 
 static long
 big2str_karatsuba(VALUE x, int base, char* ptr,
-		  long n1, long len, long hbase, int hbase_numdigits, int trim)
+		  long n1, long len, BDIGIT hbase, int hbase_numdigits, int trim)
 {
     long lh, ll, m1;
     VALUE b, q, r;
@@ -1120,9 +1120,9 @@ big2str_karatsuba(VALUE x, int base, char* ptr,
 }
 
 static void
-calc_hbase(int base, long *hbase_p, int *hbase_numdigits_p)
+calc_hbase(int base, BDIGIT *hbase_p, int *hbase_numdigits_p)
 {
-    long hbase;
+    BDIGIT hbase;
     int hbase_numdigits;
 
     hbase = base;
@@ -1141,7 +1141,8 @@ rb_big2str0(VALUE x, int base, int trim)
 {
     int off;
     VALUE ss, xx;
-    long n1, n2, len, hbase;
+    long n1, n2, len;
+    BDIGIT hbase;
     int hbase_numdigits;
     char* ptr;
 

Original file line number	Diff line number	Diff line change
`@@ -1055,7 +1055,7 @@ big2str_find_n1(VALUE x, int base)`
`1055`	`1055`	`}`
`1056`	`1056`
`1057`	`1057`	`static long`
`1058`		`-big2str_orig(VALUE x, int base, char* ptr, long len, long hbase, int hbase_numdigits, int trim)`
	`1058`	`+big2str_orig(VALUE x, int base, char* ptr, long len, BDIGIT hbase, int hbase_numdigits, int trim)`
`1059`	`1059`	`{`
`1060`	`1060`	`long i = RBIGNUM_LEN(x), j = len;`
`1061`	`1061`	`BDIGIT* ds = BDIGITS(x);`
`@@ -1088,7 +1088,7 @@ big2str_orig(VALUE x, int base, char* ptr, long len, long hbase, int hbase_numdi`
`1088`	`1088`
`1089`	`1089`	`static long`
`1090`	`1090`	`big2str_karatsuba(VALUE x, int base, char* ptr,`
`1091`		`- long n1, long len, long hbase, int hbase_numdigits, int trim)`
	`1091`	`+ long n1, long len, BDIGIT hbase, int hbase_numdigits, int trim)`
`1092`	`1092`	`{`
`1093`	`1093`	`long lh, ll, m1;`
`1094`	`1094`	`VALUE b, q, r;`
`@@ -1120,9 +1120,9 @@ big2str_karatsuba(VALUE x, int base, char* ptr,`
`1120`	`1120`	`}`
`1121`	`1121`
`1122`	`1122`	`static void`
`1123`		`-calc_hbase(int base, long hbase_p, int hbase_numdigits_p)`
	`1123`	`+calc_hbase(int base, BDIGIT hbase_p, int hbase_numdigits_p)`
`1124`	`1124`	`{`
`1125`		`- long hbase;`
	`1125`	`+ BDIGIT hbase;`
`1126`	`1126`	`int hbase_numdigits;`
`1127`	`1127`
`1128`	`1128`	`hbase = base;`
`@@ -1141,7 +1141,8 @@ rb_big2str0(VALUE x, int base, int trim)`
`1141`	`1141`	`{`
`1142`	`1142`	`int off;`
`1143`	`1143`	`VALUE ss, xx;`
`1144`		`- long n1, n2, len, hbase;`
	`1144`	`+ long n1, n2, len;`
	`1145`	`+ BDIGIT hbase;`
`1145`	`1146`	`int hbase_numdigits;`
`1146`	`1147`	`char* ptr;`
`1147`	`1148`