]> www.ginac.de Git - cln.git/blobdiff - src/float/transcendental/cl_LF_ln10.cc
Replace unused macro with cl_unused.
[cln.git] / src / float / transcendental / cl_LF_ln10.cc
index ae57e3321189bb61c5f3008c77bb70b6378bc88f..97bb09cec2e239bca471a55539a5f82b2d2e01df 100644 (file)
@@ -1,16 +1,16 @@
 // cl_ln10().
 
 // General includes.
-#include "cl_sysdep.h"
+#include "base/cl_sysdep.h"
 
 // Specification.
-#include "cl_F_tran.h"
+#include "float/transcendental/cl_F_tran.h"
 
 
 // Implementation.
 
 #include "cln/lfloat.h"
-#include "cl_LF.h"
+#include "float/lfloat/cl_LF.h"
 
 namespace cln {
 
@@ -48,13 +48,13 @@ static inline const cl_LF compute_ln10_p2357 (uintC len)
 
 const cl_LF cl_ln10 (uintC len)
 {
-       var uintC oldlen = TheLfloat(cl_LF_ln10)->len; // vorhandene Länge
+       var uintC oldlen = TheLfloat(cl_LF_ln10())->len; // vorhandene Länge
        if (len < oldlen)
-               return shorten(cl_LF_ln10,len);
+               return shorten(cl_LF_ln10(),len);
        if (len == oldlen)
-               return cl_LF_ln10;
+               return cl_LF_ln10();
 
-       // TheLfloat(cl_LF_ln10)->len um mindestens einen konstanten Faktor
+       // TheLfloat(cl_LF_ln10())->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
@@ -62,8 +62,8 @@ const cl_LF cl_ln10 (uintC len)
                newlen = oldlen;
 
        // gewünschte > vorhandene Länge -> muß nachberechnen:
-       cl_LF_ln10 = compute_ln10(newlen);
-       return (len < newlen ? shorten(cl_LF_ln10,len) : cl_LF_ln10);
+       cl_LF_ln10() = compute_ln10(newlen);
+       return (len < newlen ? shorten(cl_LF_ln10(),len) : cl_LF_ln10());
 }
 
 }  // namespace cln