* src/integer/conv/cl_I_to_digits.cc (I_to_digits): Fix bug in base 32.

21 years ago · 8548d5d0a5
2 changed files with 5 additions and 1 deletions
--- a/4
+++ b/4
@ -1,3 +1,7 @@
+2004-10-05  Richard B. Kreckel  <kreckel@ginac.de>
+
+	* src/integer/conv/cl_I_to_digits.cc (I_to_digits): Fix bug in base 32.
+
 2004-09-27  Richard B. Kreckel  <kreckel@ginac.de>

 	Support for little-endian Mips, second shot
--- a/src/integer/conv/cl_I_to_digits.cc
+++ b/src/integer/conv/cl_I_to_digits.cc
@ -302,7 +302,7 @@ void I_to_digits (const cl_I& X, uintD base, cl_digits* erg)
          var uintC len;
          var const uintD* LSDptr;
          I_to_NDS_nocopy(X, MSDptr=,len=,LSDptr=,cl_false,);
-          var int b = (base==2 ? 1 : base==4 ? 2 : base==8 ? 3 : /*base==16*/ 4);
+          var int b = (base==2 ? 1 : base==4 ? 2 : base==8 ? 3 : base==16 ? 4 : /*base==32*/ 5);
          var uintD carry = 0;
          var int carrybits = 0;
          loop