2006-04-25 Bruno Haible <bruno@clisp.org>

[cln.git] / src / float / dfloat / elem / cl_DF_from_I.cc

diff --git a/src/float/dfloat/elem/cl_DF_from_I.cc b/src/float/dfloat/elem/cl_DF_from_I.cc
index a6c39575433cd16f44f1fa528faaf51ed8a7c4c9..d07225b68e789e8a46944577491f4050710644e4 100644 (file)
--- a/src/float/dfloat/elem/cl_DF_from_I.cc
+++ b/src/float/dfloat/elem/cl_DF_from_I.cc
@@ -9,11 +9,13 @@
 
 // Implementation.
 
-#include "cl_integer.h"
+#include "cln/integer.h"
 #include "cl_I.h"
 #include "cl_DS.h"
 #include "cl_F.h"
 
+namespace cln {
+
 const cl_DF cl_I_to_DF (const cl_I& x)
 {
 // Methode:
@@ -32,7 +34,7 @@ const cl_DF cl_I_to_DF (const cl_I& x)
       if (eq(x,0)) { return cl_DF_0; }
       var cl_signean sign = -(cl_signean)minusp(x); // Vorzeichen
       var cl_I abs_x = (sign==0 ? x : -x);
-      var uintL exp = integer_length(abs_x); // (integer-length x)
+      var uintC exp = integer_length(abs_x); // (integer-length x)
       // NDS zu |x|>0 bilden:
       var const uintD* MSDptr;
       var uintC len;
@@ -133,3 +135,5 @@ const cl_DF cl_I_to_DF (const cl_I& x)
       return encode_DF(sign,(sintL)exp,manthi,mantlo);
       #endif
 }
+
+}  // namespace cln