* */*: Convert encoding from ISO 8859-1 to UTF-8.

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

diff --git a/src/float/lfloat/misc/cl_LF_idecode.cc b/src/float/lfloat/misc/cl_LF_idecode.cc
index 06c8d0948241e5ad0dec62857882f4be2bcd0738..8d547d345e50fa4ed4301621620ff033605dd42e 100644 (file)
--- a/src/float/lfloat/misc/cl_LF_idecode.cc
+++ b/src/float/lfloat/misc/cl_LF_idecode.cc
@@ -19,13 +19,13 @@ MAYBE_INLINE
 const cl_idecoded_float integer_decode_float (const cl_LF& x)
 {
        // x entpacken:
-       var uintL uexp = TheLfloat(x)->expo;
+       var uintE uexp = TheLfloat(x)->expo;
        if (uexp == 0)
                { return cl_idecoded_float(0, 0, 1); }
        var cl_signean sign = TheLfloat(x)->sign;
        var uintC len = TheLfloat(x)->len;
        // intDsize*len >= 53 >= 33 >= cl_value_len, also len >= bn_minlength.
-       // Baue Integer für die Mantisse.
+       // Baue Integer für die Mantisse.
        // Vorne 1 Nulldigit, damit es eine NDS wird.
        var Bignum mant = allocate_bignum(1+len);
        mspref(arrayMSDptr(TheBignum(mant)->data,1+len),0) = 0;
@@ -34,7 +34,7 @@ const cl_idecoded_float integer_decode_float (const cl_LF& x)
                // Mantisse
                mant,
                // e-intDsize*n = uexp-LF_exp_mid-intDsize*n als Integer
-               minus(uexp, LF_exp_mid + intDsize*(uintL)len),
+               minus(uexp, LF_exp_mid + intDsize*len),
                (sign>=0 ? cl_I(1) : cl_I(-1)) // (-1)^s erzeugen
               );
 }