X-Git-Url: https://ginac.de/CLN/cln.git//cln.git?a=blobdiff_plain;f=src%2Ffloat%2Ftranscendental%2Fcl_LF_ln10.cc;h=97bb09cec2e239bca471a55539a5f82b2d2e01df;hb=3af2cde18b3aabed4c808b0113daa81c2263b0bd;hp=8f05a8a1efc8f907e89a3488cebe1523ce494093;hpb=dd9e0f894eec7e2a8cf85078330ddc0a6639090b;p=cln.git diff --git a/src/float/transcendental/cl_LF_ln10.cc b/src/float/transcendental/cl_LF_ln10.cc index 8f05a8a..97bb09c 100644 --- a/src/float/transcendental/cl_LF_ln10.cc +++ b/src/float/transcendental/cl_LF_ln10.cc @@ -1,16 +1,18 @@ // 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 "cl_lfloat.h" -#include "cl_LF.h" +#include "cln/lfloat.h" +#include "float/lfloat/cl_LF.h" + +namespace cln { static inline const cl_LF compute_ln10_old (uintC len) { @@ -46,20 +48,22 @@ 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 - // > 1 wachsen lassen, damit es nicht zu häufig nachberechnet wird: + // 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 if (newlen < oldlen) 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); + // gewünschte > vorhandene Länge -> muß nachberechnen: + cl_LF_ln10() = compute_ln10(newlen); + return (len < newlen ? shorten(cl_LF_ln10(),len) : cl_LF_ln10()); } + +} // namespace cln