]> www.ginac.de Git - cln.git/blobdiff - src/float/dfloat/conv/cl_I_to_double.cc
2006-04-25 Bruno Haible <bruno@clisp.org>
[cln.git] / src / float / dfloat / conv / cl_I_to_double.cc
index 6223450250c8409efa94003d7ba32df82936535b..8cb841e3897795149b4b122bdb428cd5900f23b7 100644 (file)
@@ -22,7 +22,7 @@ double double_approx (const cl_I& x)
       if (eq(x,0)) { return 0.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;