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

diff --git a/ChangeLog b/ChangeLog
index 7cd89ef69b2e37f3c1fece104b6d83c5415ffbce..5b26f1879b72a9472851b00a411e06661cefabaf 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -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

diff --git a/src/integer/conv/cl_I_to_digits.cc b/src/integer/conv/cl_I_to_digits.cc
index 72508232fc5e23f9751245dea51bfc36c542a672..043832bc4d2933712a5b21599a27b70860772a0d 100644 (file)
--- 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