From c706f4b04e208e98248fefc520d284aceaa39494 Mon Sep 17 00:00:00 2001 From: Richard Kreckel Date: Mon, 7 Apr 2008 21:30:53 +0000 Subject: [PATCH] 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 | 8 ++++++++ TODO | 3 ++- src/float/input/cl_F_readparsed.cc | 8 ++++++++ src/integer/input/cl_I_readparsed.cc | 8 ++++++++ src/rational/input/cl_RA_readparsed.cc | 8 ++++++++ 5 files changed, 34 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 0d4e9b7..25d45a4 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,11 @@ +2008-04-07 Alexei Sheplyakov + + 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 * Version 1.2.2 released. diff --git a/TODO b/TODO index 7a4d982..3dc8212 100644 --- 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 ebb471d..3fbf63e 100644 --- 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 66609b9..26c9daa 100644 --- 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 bdf80f0..6eb9b95 100644 --- 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