From: Richard Kreckel <kreckel@ginac.de>
Date: Tue, 5 Oct 2004 21:33:47 +0000 (+0000)
Subject: * src/integer/conv/cl_I_to_digits.cc (I_to_digits): Fix bug in base 32.
X-Git-Tag: cln_1-1-9~15
X-Git-Url: https://www.ginac.de/CLN/cln.git//cln.git?p=cln.git;a=commitdiff_plain;h=8548d5d0a53094d6eccc236f965bd3b184b11a8b

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

diff --git a/ChangeLog b/ChangeLog
index 7cd89ef..5b26f18 100644
--- 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 7250823..043832b 100644
--- 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