]> www.ginac.de Git - cln.git/blobdiff - src/float/transcendental/cl_LF_ln2.cc
Get rid of CL_REQUIRE/CL_PROVIDE(cl_F_ln2_var).
[cln.git] / src / float / transcendental / cl_LF_ln2.cc
index cdec528a213c826c5dc34d6f67ee104c57efddf6..99dd8a0318aa3a0f5cb434e1a5023b28f57d4785 100644 (file)
@@ -76,22 +76,22 @@ 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
-       // > 1 wachsen lassen, damit es nicht zu häufig nachberechnet wird:
+       // 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
        if (newlen < oldlen)
                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);
+       // gewünschte > vorhandene Länge -> muß nachberechnen:
+       cl_LF_ln2() = compute_ln2(newlen);
+       return (len < newlen ? shorten(cl_LF_ln2(),len) : cl_LF_ln2());
 }
 
 }  // namespace cln