X-Git-Url: https://ginac.de/CLN/cln.git//cln.git?a=blobdiff_plain;f=src%2Ffloat%2Ftranscendental%2Fcl_LF_eulerconst.cc;h=c5965af901a6986e670cb1e7d8347c7cf5f254ed;hb=8169a19b38c42588b39b21dae5bdb964e2f6b8c6;hp=0cc8bbfc00670ece9e8058c723751bf7ae00499a;hpb=76ff0ad8c10d6f5c0f56287523cad2173d17c075;p=cln.git

diff --git a/src/float/transcendental/cl_LF_eulerconst.cc b/src/float/transcendental/cl_LF_eulerconst.cc
index 0cc8bbf..c5965af 100644
--- a/src/float/transcendental/cl_LF_eulerconst.cc
+++ b/src/float/transcendental/cl_LF_eulerconst.cc
@@ -1,20 +1,20 @@
 // eulerconst().
 
 // 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_tran.h"
-#include "cl_LF.h"
+#include "float/transcendental/cl_LF_tran.h"
+#include "float/lfloat/cl_LF.h"
 #include "cln/integer.h"
 #include "cln/real.h"
-#include "cl_alloca.h"
+#include "base/cl_alloca.h"
 
 namespace cln {
 
@@ -507,13 +507,13 @@ const cl_LF compute_eulerconst (uintC len)
 
 const cl_LF eulerconst (uintC len)
 {
-	var uintC oldlen = TheLfloat(cl_LF_eulerconst)->len; // vorhandene Länge
+	var uintC oldlen = TheLfloat(cl_LF_eulerconst())->len; // vorhandene Länge
 	if (len < oldlen)
-		return shorten(cl_LF_eulerconst,len);
+		return shorten(cl_LF_eulerconst(),len);
 	if (len == oldlen)
-		return cl_LF_eulerconst;
+		return cl_LF_eulerconst();
 
-	// TheLfloat(cl_LF_eulerconst)->len um mindestens einen konstanten Faktor
+	// TheLfloat(cl_LF_eulerconst())->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
@@ -521,8 +521,8 @@ const cl_LF eulerconst (uintC len)
 		newlen = oldlen;
 
 	// gewünschte > vorhandene Länge -> muß nachberechnen:
-	cl_LF_eulerconst = compute_eulerconst(newlen);
-	return (len < newlen ? shorten(cl_LF_eulerconst,len) : cl_LF_eulerconst);
+	cl_LF_eulerconst() = compute_eulerconst(newlen);
+	return (len < newlen ? shorten(cl_LF_eulerconst(),len) : cl_LF_eulerconst());
 }
 
 }  // namespace cln