]> www.ginac.de Git - cln.git/blobdiff - src/float/lfloat/misc/cl_LF_leninc.cc
2006-04-25 Bruno Haible <bruno@clisp.org>
[cln.git] / src / float / lfloat / misc / cl_LF_leninc.cc
index b05c87551b39a031c14c85d3d3312333d502394f..4266867c627db83ed076ebd415dac05af86b7a24 100644 (file)
@@ -27,9 +27,9 @@ uintC cl_LF_len_incsqrt (uintC n)
 // <==>       intDsize*n < intDsize^2*inc^2 - 4*intDsize*inc + 4
 // <==>       n <= intDsize*inc^2 - 4*inc
        return
-         #define NMAX(k)  (uintL)((intDsize*(k)-4)*(k))
+         #define NMAX(k)  (uintC)((intDsize*(k)-4)*(k))
          #define FITS(n,k)  ((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) */                 \