X-Git-Url: https://ginac.de/CLN/cln.git//cln.git?a=blobdiff_plain;f=src%2Ffloat%2Fconv%2Fcl_DF_to_double.cc;h=c4324cf373971e602fe7fde161030524fd20ccc9;hb=8169a19b38c42588b39b21dae5bdb964e2f6b8c6;hp=98dd214fbafb7dc9d9161be22f60c69f380bdbec;hpb=dd9e0f894eec7e2a8cf85078330ddc0a6639090b;p=cln.git

diff --git a/src/float/conv/cl_DF_to_double.cc b/src/float/conv/cl_DF_to_double.cc
index 98dd214..c4324cf 100644
--- a/src/float/conv/cl_DF_to_double.cc
+++ b/src/float/conv/cl_DF_to_double.cc
@@ -1,22 +1,24 @@
 // cl_DF_to_double().
 
 // General includes.
-#include "cl_sysdep.h"
+#include "base/cl_sysdep.h"
 
 // Specification.
-#include "cl_dfloat.h"
+#include "cln/dfloat.h"
 
 
 // Implementation.
 
-#include "cl_DF.h"
+#include "float/dfloat/cl_DF.h"
 
-double cl_double_approx (const cl_DF& obj)
+namespace cln {
+
+double double_approx (const cl_DF& obj)
 {
 	union { dfloat eksplicit; double machine_double; } u;
 	#define val u.eksplicit
 	val = TheDfloat(obj)->dfloat_value;
-	// Der Exponent muß um DF_exp_mid-1022 erniedrigt werden.
+	// Der Exponent muß um DF_exp_mid-1022 erniedrigt werden.
 	if (DF_exp_mid>1022)
 	  #if (cl_word_size==64)
 	  { var uintL exp = (val >> DF_mant_len) & (bit(DF_exp_len)-1); // e
@@ -51,3 +53,5 @@ double cl_double_approx (const cl_DF& obj)
 	#undef val
 	return u.machine_double;
 }
+
+}  // namespace cln