* src/float/transcendental/cl_F_lnx.cc: Make actuallen of type uintC.

        * src/float/transcendental/cl_F_expx.cc: Likewise.
        * src/float/transcendental/cl_F_sinhx.cc: Likewise.
        * src/float/transcendental/cl_F_sinx.cc: Likewise.

diff --git a/ChangeLog b/ChangeLog
index 03980c3cc50b81116a4d50458695984fb67537c2..a0086be53277186c763b1f1380bf8aed1e96b332 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2007-12-18  Richard B. Kreckel  <kreckel@ginac.de>
+
+       * src/float/transcendental/cl_F_lnx.cc: Make actuallen of type uintC.
+       * src/float/transcendental/cl_F_expx.cc: Likewise.
+       * src/float/transcendental/cl_F_sinhx.cc: Likewise.
+       * src/float/transcendental/cl_F_sinx.cc: Likewise.
+
 2007-12-17  Richard B. Kreckel  <kreckel@ginac.de>
 
        Silly workaround for silly bug in gmp.h:

diff --git a/src/float/transcendental/cl_F_expx.cc b/src/float/transcendental/cl_F_expx.cc
index ff28ef775cf3eaeaf399899c86c5ab9c701f91d5..9250faddb2bbcc2b8edf6cb7d9256d4e604891dc 100644 (file)
--- a/src/float/transcendental/cl_F_expx.cc
+++ b/src/float/transcendental/cl_F_expx.cc
@@ -46,7 +46,7 @@ const cl_LF expx_naive (const cl_LF& x)
 // wie oben, mit adaptiver Genauigkeit während der Potenzreihen-Summation.
        if (zerop(x))
                return cl_float(1,x);
-       var uintL actuallen = TheLfloat(x)->len;
+       var uintC actuallen = TheLfloat(x)->len;
        var uintC d = float_digits(x);
        var sintE e = float_exponent(x);
        if (e < -(sintC)d) // e < -d ?

diff --git a/src/float/transcendental/cl_F_lnx.cc b/src/float/transcendental/cl_F_lnx.cc
index e8b1c4bcee0dd89d218d1bdc0b7e8388168aaefe..6a64c6ca5e7bd4119c3e85f4ef0e3d0a40f9f17b 100644 (file)
--- a/src/float/transcendental/cl_F_lnx.cc
+++ b/src/float/transcendental/cl_F_lnx.cc
@@ -47,7 +47,7 @@ const cl_LF lnx_naive (const cl_LF& x)
        var cl_LF y = x-cl_float(1,x);
        if (zerop(y)) // y=0.0 -> y als Ergebnis
                return y;
-       var uintL actuallen = TheLfloat(x)->len;
+       var uintC actuallen = TheLfloat(x)->len;
        var uintC d = float_digits(x);
        var sintE e = float_exponent(y);
        if (e <= -(sintC)d) // e <= -d ?

diff --git a/src/float/transcendental/cl_F_sinhx.cc b/src/float/transcendental/cl_F_sinhx.cc
index 04ba0d22b848f7d048249da158424108e6ae4c3d..deaf415c9fb69f56cdaee18237bfe39c58011f91 100644 (file)
--- a/src/float/transcendental/cl_F_sinhx.cc
+++ b/src/float/transcendental/cl_F_sinhx.cc
@@ -114,7 +114,7 @@ const cl_LF sinhx_naive (const cl_LF& x)
 
        if (zerop(x))
                return x;
-       var uintL actuallen = TheLfloat(x)->len;
+       var uintC actuallen = TheLfloat(x)->len;
        var uintC d = float_digits(x);
        var sintE e = float_exponent(x);
        if (e <= (1-(sintC)d)>>1) // e <= (1-d)/2 <==> e <= -ceiling((d-1)/2) ?

diff --git a/src/float/transcendental/cl_F_sinx.cc b/src/float/transcendental/cl_F_sinx.cc
index 102e4c4ae48d1b0e61e06dd75c3f13e6af294b6b..e2d3f693240f4942662a142bb40ead0b3fded5df 100644 (file)
--- a/src/float/transcendental/cl_F_sinx.cc
+++ b/src/float/transcendental/cl_F_sinx.cc
@@ -123,7 +123,7 @@ const cl_LF sinx_naive (const cl_LF& x)
 
        if (zerop(x))
                return x;
-       var uintL actuallen = TheLfloat(x)->len;
+       var uintC actuallen = TheLfloat(x)->len;
        var uintC d = float_digits(x);
        var sintE e = float_exponent(x);
        if (e <= (-(sintC)d)>>1) // e <= (-d)/2 <==> e <= -ceiling(d/2) ?