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

[cln.git] / src / float / lfloat / misc / cl_LF_shortenwith.cc

diff --git a/src/float/lfloat/misc/cl_LF_shortenwith.cc b/src/float/lfloat/misc/cl_LF_shortenwith.cc
index 9b456f9bed40f7349d8be6a0754070a73c673e46..f0ed7446983ddcde96494a4723254f583a70dd8b 100644 (file)
--- a/src/float/lfloat/misc/cl_LF_shortenwith.cc
+++ b/src/float/lfloat/misc/cl_LF_shortenwith.cc
@@ -9,7 +9,7 @@
 
 // Implementation.
 
-#include "cl_abort.h"
+#include "cln/abort.h"
 
 #undef MAYBE_INLINE2
 #define MAYBE_INLINE2 inline
@@ -18,6 +18,8 @@
 #define MAYBE_INLINE inline
 #include "cl_LF_exponent.cc"
 
+namespace cln {
+
 const cl_LF cl_LF_shortenwith (const cl_LF& x, const cl_LF& y)
 {
        // Methode:
@@ -27,7 +29,7 @@ const cl_LF cl_LF_shortenwith (const cl_LF& x, const cl_LF& y)
        // Falls ex-dx < ey, x von Precision dx auf ex-ey verkürzen.
        var sintL ey = float_exponent(y);
        var sintL ex = float_exponent(x);
-       var uintL dx = float_precision(x);
+       var uintC dx = float_precision(x);
        if (dx==0) // zerop(x) ?
                return x;
        var sintL ulpx = ex - dx;
@@ -47,3 +49,5 @@ const cl_LF cl_LF_shortenwith (const cl_LF& x, const cl_LF& y)
        } else
                return x;
 }
+
+}  // namespace cln