X-Git-Url: https://www.ginac.de/CLN/cln.git//cln.git?a=blobdiff_plain;f=src%2Finteger%2Fconv%2Fcl_I_from_digits.cc;h=9bf2f183963d3caa910a74c378f6f2d376dd41f4;hb=4a477b0cc3dd7fbfb23b25090ff8c8869c8fa21a;hp=1046204a2ab9ede3437e09114b907b2db30f5540;hpb=b86458e11ffdc750ee8e356effd97896f3bc749f;p=cln.git

diff --git a/src/integer/conv/cl_I_from_digits.cc b/src/integer/conv/cl_I_from_digits.cc
index 1046204..9bf2f18 100644
--- a/src/integer/conv/cl_I_from_digits.cc
+++ b/src/integer/conv/cl_I_from_digits.cc
@@ -28,7 +28,11 @@ static const cl_I digits_to_I_base2 (const char * MSBptr, uintC len, uintD base)
 	erg_MSDptr = erg_LSDptr; erg_len = 0;
 	var uintD d = 0;  // resulting digit
 	var int ch_where = 0;  // position of ch inside d
-	while (len > 0) {
+	var uintC min_len = 0;  // first non-zero digit
+	while (min_len < len && *(const uintB *)(MSBptr+min_len) == '0') {
+	    ++min_len;
+	}
+	while (len > min_len) {
 		var uintB ch = *(const uintB *)(MSBptr+len-1); // next character
 		if (ch!='.') { // skip decimal point
 			// Compute value of ch ('0'-'9','A'-'Z','a'-'z'):