From 3c77def7446a111969be64daeebf1dec2545bafa Mon Sep 17 00:00:00 2001
From: Richard Kreckel <kreckel@ginac.de>
Date: Tue, 18 Dec 2007 00:00:18 +0000
Subject: [PATCH]         * 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.

---
 ChangeLog                              | 7 +++++++
 src/float/transcendental/cl_F_expx.cc  | 2 +-
 src/float/transcendental/cl_F_lnx.cc   | 2 +-
 src/float/transcendental/cl_F_sinhx.cc | 2 +-
 src/float/transcendental/cl_F_sinx.cc  | 2 +-
 5 files changed, 11 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 03980c3..a0086be 100644
--- 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 ff28ef7..9250fad 100644
--- 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 e8b1c4b..6a64c6c 100644
--- 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 04ba0d2..deaf415 100644
--- 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 102e4c4..e2d3f69 100644
--- 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) ?