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

[cln.git] / src / float / sfloat / elem / cl_SF_from_I.cc

diff --git a/src/float/sfloat/elem/cl_SF_from_I.cc b/src/float/sfloat/elem/cl_SF_from_I.cc
index 1ba7b772c387583dfefdf375937329cd2cabdc22..e3f0029e1e618ff6f2fc8b72ac0ae9822671b350 100644 (file)
--- a/src/float/sfloat/elem/cl_SF_from_I.cc
+++ b/src/float/sfloat/elem/cl_SF_from_I.cc
@@ -33,7 +33,7 @@ const cl_SF cl_I_to_SF (const cl_I& x)
       if (eq(x,0)) { return SF_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;