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

[cln.git] / src / integer / bitwise / cl_I_logbitp.cc

diff --git a/src/integer/bitwise/cl_I_logbitp.cc b/src/integer/bitwise/cl_I_logbitp.cc
index 5eedaa5d073cd15c4c425428caf6b386e4e35cb8..8227b2e773bdd7d45c7ececd0c7c04f895eebf15 100644 (file)
--- a/src/integer/bitwise/cl_I_logbitp.cc
+++ b/src/integer/bitwise/cl_I_logbitp.cc
@@ -14,7 +14,7 @@
 
 namespace cln {
 
-cl_boolean logbitp (uintL x, const cl_I& y)
+cl_boolean logbitp (uintC x, const cl_I& y)
 {
     // Methode:
     // Falls x>=intDsize*Länge(y), teste Vorzeichen von y.
@@ -24,7 +24,7 @@ cl_boolean logbitp (uintL x, const cl_I& y)
        var uintC ylen;
        var const uintD* yLSDptr;
        I_to_NDS_nocopy(y, yMSDptr=,ylen=,yLSDptr=,cl_true, { return cl_false; } ); // DS zu y
-       if (x < intDsize*(uintL)ylen)
+       if (x < intDsize*ylen)
                // x ist >=0, < intDsize*ylen
                { if (lspref(yLSDptr,floor(x,intDsize)) & bit(x%intDsize))
                    return cl_true;