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 551c00e4fb19365098f1b6c372f2f49c1352e63b..f0ed7446983ddcde96494a4723254f583a70dd8b 100644 (file)
--- a/src/float/lfloat/misc/cl_LF_shortenwith.cc
+++ b/src/float/lfloat/misc/cl_LF_shortenwith.cc
@@ -29,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;