// 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
#undef val
return u.machine_double;
}
+
+} // namespace cln