X-Git-Url: https://ginac.de/CLN/cln.git//cln.git?a=blobdiff_plain;f=src%2Ffloat%2Ftranscendental%2Fcl_LF_ln2.cc;h=99dd8a0318aa3a0f5cb434e1a5023b28f57d4785;hb=5ec5ca2758860e7249676e21153ae176fe4b01be;hp=a07c0e1969f7882af30f37e959fee52cd88d48a4;hpb=665c18cd376d8d8c5a8eafb30681a3f9f46d4a99;p=cln.git

diff --git a/src/float/transcendental/cl_LF_ln2.cc b/src/float/transcendental/cl_LF_ln2.cc
index a07c0e1..99dd8a0 100644
--- a/src/float/transcendental/cl_LF_ln2.cc
+++ b/src/float/transcendental/cl_LF_ln2.cc
@@ -76,13 +76,13 @@ static inline const cl_LF compute_ln2_p2357 (uintC len)
 
 const cl_LF cl_ln2 (uintC len)
 {
-	var uintC oldlen = TheLfloat(cl_LF_ln2)->len; // vorhandene Länge
+	var uintC oldlen = TheLfloat(cl_LF_ln2())->len; // vorhandene Länge
 	if (len < oldlen)
-		return shorten(cl_LF_ln2,len);
+		return shorten(cl_LF_ln2(),len);
 	if (len == oldlen)
-		return cl_LF_ln2;
+		return cl_LF_ln2();
 
-	// TheLfloat(cl_LF_ln2)->len um mindestens einen konstanten Faktor
+	// TheLfloat(cl_LF_ln2())->len um mindestens einen konstanten Faktor
 	// > 1 wachsen lassen, damit es nicht zu häufig nachberechnet wird:
 	var uintC newlen = len;
 	oldlen += floor(oldlen,2); // oldlen * 3/2
@@ -90,8 +90,8 @@ const cl_LF cl_ln2 (uintC len)
 		newlen = oldlen;
 
 	// gewünschte > vorhandene Länge -> muß nachberechnen:
-	cl_LF_ln2 = compute_ln2(newlen);
-	return (len < newlen ? shorten(cl_LF_ln2,len) : cl_LF_ln2);
+	cl_LF_ln2() = compute_ln2(newlen);
+	return (len < newlen ? shorten(cl_LF_ln2(),len) : cl_LF_ln2());
 }
 
 }  // namespace cln