]> www.ginac.de Git - cln.git/blobdiff - src/float/conv/cl_DF_to_double.cc
Use paths relative the `src' directory in the #include directives.
[cln.git] / src / float / conv / cl_DF_to_double.cc
index 98dd214fbafb7dc9d9161be22f60c69f380bdbec..c4324cf373971e602fe7fde161030524fd20ccc9 100644 (file)
@@ -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