// 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)
{
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