Add obsolete signatures (only for 64-bit platforms), but don't expose them. --- src/float/input/cl_F_readparsed.cc | 7 +++++++ src/integer/input/cl_I_readparsed.cc | 8 ++++++++ src/rational/input/cl_RA_readparsed.cc | 7 +++++++ 3 files changed, 22 insertions(+), 0 deletions(-) diff --git a/src/float/input/cl_F_readparsed.cc b/src/float/input/cl_F_readparsed.cc index ebb471d..c215680 100644 --- a/src/float/input/cl_F_readparsed.cc +++ b/src/float/input/cl_F_readparsed.cc @@ -94,4 +94,11 @@ const cl_F read_float (unsigned int base, float_format_t prec, cl_signean sign, ); } +#if long_bitsize > int_bitsize +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) +{ + // binary compatibility with CLN 1.2.0 + return read_float(base, prec, sign, string, uintC(index1), uintC(index4), uintC(index2), uintC(index3)); +} +#endif } // namespace cln diff --git a/src/integer/input/cl_I_readparsed.cc b/src/integer/input/cl_I_readparsed.cc index 66609b9..29245d5 100644 --- a/src/integer/input/cl_I_readparsed.cc +++ b/src/integer/input/cl_I_readparsed.cc @@ -22,4 +22,12 @@ const cl_I read_integer (unsigned int base, cl_signean sign, const char * string return -x; // negatives Vorzeichen -> Vorzeichenwechsel } +#if long_bitsize > int_bitsize +const cl_I read_integer(unsigned int base, cl_signean sign, const char* string, uintL index1, uintL index2) +{ + // binary compatibility with CLN 1.2.0 + return read_integer(base, sign, string, uintC(index1), uintC(index2)); +} +#endif + } // namespace cln diff --git a/src/rational/input/cl_RA_readparsed.cc b/src/rational/input/cl_RA_readparsed.cc index bdf80f0..f73e78b 100644 --- a/src/rational/input/cl_RA_readparsed.cc +++ b/src/rational/input/cl_RA_readparsed.cc @@ -29,4 +29,11 @@ const cl_RA read_rational (unsigned int base, cl_signean sign, const char * stri return I_posI_div_RA(num,den); } +#if long_bitsize > int_bitsize +const cl_RA read_rational (unsigned int base, cl_signean sign, const char * string, uintL index1, uintL index3, uintL index2) +{ + // binary compatibility with CLN 1.2.0 + return read_rational(base, sign, string, uintC(index1), uintC(index3), uintC(index2)); +} +#endif } // namespace cln -- 1.5.4.2 Best regards, Alexei -- All science is either physics or stamp collecting.