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

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

diff --git a/src/float/lfloat/misc/cl_LF_lenincx.cc b/src/float/lfloat/misc/cl_LF_lenincx.cc
index 76620d66e5380f4f6ff10c9df14c044b89e81f19..0a670f6c7767d17651ab0e5a8162dc88019bd8d5 100644 (file)
--- a/src/float/lfloat/misc/cl_LF_lenincx.cc
+++ b/src/float/lfloat/misc/cl_LF_lenincx.cc
@@ -20,9 +20,9 @@ uintC cl_LF_len_incsqrtx (uintC n)
 // <==>       intDsize*n < intDsize^2*inc^2 - 66*intDsize*inc + 1089
 // <==>       n <= intDsize*inc^2 - 66*inc + floor(1089/intDsize)
        return
-         #define NMAX(k)  (uintL)((intDsize*(k)-66)*(k)+floor(1089,intDsize))
+         #define NMAX(k)  (uintC)((intDsize*(k)-66)*(k)+floor(1089,intDsize))
          #define FITS(n,k)  ((intDsize*(k) > 33) && ((n) <= NMAX(k)))
-         #define n_max  (uintL)(bitm(intCsize)-1)
+         #define n_max  (uintC)(bitm(intCsize)-1)
          #define TRYINC(inc)  FITS(n_max,inc) || FITS(n,inc) ? RETINC(inc) :
          #define RETINC(inc)  \
            /* at this point we know  n <= NMAX(inc) */                 \