X-Git-Url: https://ginac.de/CLN/cln.git//cln.git?a=blobdiff_plain;f=src%2Finteger%2Fbitwise%2Fcl_I_logbitp.cc;fp=src%2Finteger%2Fbitwise%2Fcl_I_logbitp.cc;h=8227b2e773bdd7d45c7ececd0c7c04f895eebf15;hb=c84c6db5d56829d69083c819688a973867694a2a;hp=5eedaa5d073cd15c4c425428caf6b386e4e35cb8;hpb=976a13157ca8d274a5bcbdac662cac538091e92c;p=cln.git

diff --git a/src/integer/bitwise/cl_I_logbitp.cc b/src/integer/bitwise/cl_I_logbitp.cc
index 5eedaa5..8227b2e 100644
--- 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;