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 a4efd9d6f1ed119963d9bd6cfaa189bb57dce44e..d07225b68e789e8a46944577491f4050710644e4 100644 (file)
--- a/src/float/dfloat/elem/cl_DF_from_I.cc
+++ b/src/float/dfloat/elem/cl_DF_from_I.cc
@@ -34,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;