X-Git-Url: https://www.ginac.de/CLN/cln.git//cln.git?p=cln.git;a=blobdiff_plain;f=src%2Finteger%2Finput%2Fcl_I_readparsed.cc;h=26c9daa47aec083beab7b350ba8fd68132000b53;hp=8f6824969482d0395ed01e5157ae4f45d065dac5;hb=c706f4b04e208e98248fefc520d284aceaa39494;hpb=dd9e0f894eec7e2a8cf85078330ddc0a6639090b

diff --git a/src/integer/input/cl_I_readparsed.cc b/src/integer/input/cl_I_readparsed.cc
index 8f68249..26c9daa 100644
--- a/src/integer/input/cl_I_readparsed.cc
+++ b/src/integer/input/cl_I_readparsed.cc
@@ -4,14 +4,24 @@
 #include "cl_sysdep.h"
 
 // Specification.
-#include "cl_integer_io.h"
+#include "cln/integer_io.h"
 
 
 // Implementation.
 
 #include "cl_I.h"
 
-const cl_I read_integer (unsigned int base, cl_signean sign, const char * string, uintL index1, uintL index2)
+namespace cln {
+
+#if intCsize > intLsize
+const cl_I read_integer (unsigned int base, cl_signean sign, const char* string, uintL index1, uintL index2)
+{
+	// XXX: This signature is for binary compatibility with CLN-1.2.0 only.
+	return read_integer(base, sign, string, uintC(index1), uintC(index2));
+}
+#endif
+
+const cl_I read_integer (unsigned int base, cl_signean sign, const char * string, uintC index1, uintC index2)
 {
 	var cl_I x = digits_to_I(&string[index1],index2-index1,(uintD)base);
 	if (sign == 0)
@@ -19,3 +29,5 @@ const cl_I read_integer (unsigned int base, cl_signean sign, const char * string
 	else
 		return -x; // negatives Vorzeichen -> Vorzeichenwechsel
 }
+
+}  // namespace cln