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.

diff --git a/ChangeLog b/ChangeLog
index 0d4e9b797c569ea5320fb62237df5906a08e4582..25d45a4917a33cfb7947a484a3c96588e2e736e0 100644 (file)
--- a/ChangeLog
+++ b/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.

diff --git a/TODO b/TODO
index 7a4d982b3370c24789a8d2eac00a6a45b4a97535..3dc8212e8d53169150983710445fa0e7d1e72359 100644 (file)
--- a/TODO
+++ b/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:

diff --git a/src/float/input/cl_F_readparsed.cc b/src/float/input/cl_F_readparsed.cc
index ebb471d9c1ef686969a8dfb694a40ebeca00cecb..3fbf63e21fd60fcc3c6b02cd0411b8280c8ce583 100644 (file)
--- a/src/float/input/cl_F_readparsed.cc
+++ b/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;

diff --git a/src/integer/input/cl_I_readparsed.cc b/src/integer/input/cl_I_readparsed.cc
index 66609b9e3b6c3b727f274d9f2f7d2518b1d175bb..26c9daa47aec083beab7b350ba8fd68132000b53 100644 (file)
--- a/src/integer/input/cl_I_readparsed.cc
+++ b/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);

diff --git a/src/rational/input/cl_RA_readparsed.cc b/src/rational/input/cl_RA_readparsed.cc
index bdf80f0186087dcfdb954e6a004e5b789f7f0bd9..6eb9b95f894cebaded362c8646ad7b5eb0fe7cf7 100644 (file)
--- a/src/rational/input/cl_RA_readparsed.cc
+++ b/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