Finalize CLN 1.3.7 release.

[cln.git] / src / float / conv / cl_FF_to_float.cc

diff --git a/src/float/conv/cl_FF_to_float.cc b/src/float/conv/cl_FF_to_float.cc
index d7204bc4b19426aaaac2075a750705c557f8ab22..a5192fd5901fad8774ea0168e49278695aad5e26 100644 (file)
--- a/src/float/conv/cl_FF_to_float.cc
+++ b/src/float/conv/cl_FF_to_float.cc
@@ -1,22 +1,24 @@
 // cl_FF_to_float().
 
 // General includes.
-#include "cl_sysdep.h"
+#include "base/cl_sysdep.h"
 
 // Specification.
-#include "cl_ffloat.h"
+#include "cln/ffloat.h"
 
 
 // Implementation.
 
-#include "cl_FF.h"
+#include "float/ffloat/cl_FF.h"
 
-float cl_float_approx (const cl_FF& obj)
+namespace cln {
+
+float float_approx (const cl_FF& obj)
 {
        union { ffloat eksplicit; float machine_float; } u;
        #define val u.eksplicit
        val = cl_ffloat_value(obj);
-       // Der Exponent muß um FF_exp_mid-126 erniedrigt werden.
+       // Der Exponent muß um FF_exp_mid-126 erniedrigt werden.
        if (FF_exp_mid>126)
          { var uintL exp = (val >> FF_mant_len) & (bit(FF_exp_len)-1); // e
            if (exp < FF_exp_mid-126+1)
@@ -33,3 +35,5 @@ float cl_float_approx (const cl_FF& obj)
        #undef val
        return u.machine_float;
 }
+
+}  // namespace cln