Re-esatblish 1.2.0 ABI, broken 2008-02-22 [Alexei Sheplyakov].

* src/float/input/cl_F_readparsed.cc: Add obsolete signature with index
args uintL.
* src/integer/input/cl_I_readparsed.cc: Likewise.
* src/rational/input/cl_RA_readparsed.cc: Likewise.

ChangeLog

@@ -1,3 +1,11 @@
+2008-04-07  Alexei Sheplyakov  <varg@theor.jinr.ru>
+
+	Re-esatblish 1.2.0 ABI, broken 2008-02-22:
+	* src/float/input/cl_F_readparsed.cc: Add obsolete signature with index
+	args uintL.
+	* src/integer/input/cl_I_readparsed.cc: Likewise.
+	* src/rational/input/cl_RA_readparsed.cc: Likewise.
+
 2008-04-05  Richard B. Kreckel  <kreckel@ginac.de>
 
 	* Version 1.2.2 released.

TODO

@@ -1,6 +1,7 @@
 ABI Issues:
 
-Remove extra signatures in cl_FF_from_float.cc and cl_DF_from_double.cc.
+Remove extra signatures in cl_FF_from_float.cc, cl_DF_from_double.cc,
+cl_F_readparsed.cc, cl_I_readparsed.cc, and cl_RA_readparsed.cc.
 
 
 Algorithms:

src/float/input/cl_F_readparsed.cc

@@ -26,6 +26,14 @@
 
 namespace cln {
 
+#if intCsize > intLsize
+const cl_F read_float (unsigned int base, float_format_t prec, cl_signean sign, const char * string, uintL index1, uintL index4, uintL index2, uintL index3)
+{
+	// XXX: This signature is for binary compatibility with CLN-1.2.0 only.
+	return read_float(base, prec, sign, string, uintC(index1), uintC(index4), uintC(index2), uintC(index3));
+}
+#endif
+
 const cl_F read_float (unsigned int base, float_format_t prec, cl_signean sign, const char * string, uintC index1, uintC index4, uintC index2, uintC index3)
 {
 	var cl_I exponent;

src/integer/input/cl_I_readparsed.cc

@@ -13,6 +13,14 @@
 
 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);

src/rational/input/cl_RA_readparsed.cc

@@ -15,6 +15,14 @@
 
 namespace cln {
 
+#if intCsize > intLsize
+const cl_RA read_rational (unsigned int base, cl_signean sign, const char * string, uintL index1, uintL index3, uintL index2)
+{
+	// XXX: This signature is for binary compatibility with CLN-1.2.0 only.
+	return read_rational(base, sign, string, uintC(index1), uintC(index3), uintC(index2));
+}
+#endif
+
 const cl_RA read_rational (unsigned int base, cl_signean sign, const char * string, uintC index1, uintC index3, uintC index2)
 {
 	var uintC index3_1 = index3+1; // Index der ersten Nennerziffer