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

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

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