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

[cln.git] / src / float / ffloat / conv / cl_RA_to_float.cc

diff --git a/src/float/ffloat/conv/cl_RA_to_float.cc b/src/float/ffloat/conv/cl_RA_to_float.cc
index d9a2ea87166f78edd692f77fc59d362f5eb8deed..74a146d0cb26f34b5463d7d6ae73797197766df2 100644 (file)
--- a/src/float/ffloat/conv/cl_RA_to_float.cc
+++ b/src/float/ffloat/conv/cl_RA_to_float.cc
@@ -31,8 +31,8 @@ float float_approx (const cl_RA& x)
       var const cl_I& b = denominator(x); // b
       var cl_signean sign = -(cl_signean)minusp(a); // Vorzeichen
       if (!(sign==0)) { a = -a; } // Betrag nehmen, liefert a
-      var sintL lendiff = (sintL)integer_length(a) // (integer-length a)
-                          - (sintL)integer_length(b); // (integer-length b)
+      var sintC lendiff = (sintC)integer_length(a) // (integer-length a)
+                          - (sintC)integer_length(b); // (integer-length b)
       if (lendiff > FF_exp_high-FF_exp_mid) // Exponent >= n-m > Obergrenze ?
         { u.eksplicit = make_FF_word(sign,bit(FF_exp_len)-1,0); // Infinity
           return u.machine_float;