]> www.ginac.de Git - cln.git/blobdiff - src/integer/bitwise/cl_I_logbitp_I.cc
* Cumulative patch including Bruno's work on large fixnums on 64 bit machines.
[cln.git] / src / integer / bitwise / cl_I_logbitp_I.cc
index 7dc76a09da4475795e9af609d34d496e773be8ff..2c40a1d3200f33d9d580346e6b4924e1e9c8ef3d 100644 (file)
@@ -25,7 +25,7 @@ cl_boolean logbitp (const cl_I& x, const cl_I& y)
     //             Sonst x=intDsize*k+i, Teste Bit i vom Worte Nr. k+1 (von oben herab).
       if (!minusp(x)) // x>=0 ?
         { if (fixnump(x))
-            { var uintL x_ = FN_to_L(x);
+            { var uintV x_ = FN_to_V(x);
               var uintC ylen;
               var const uintD* yLSDptr;
               I_to_NDS_nocopy(y, ,ylen=,yLSDptr=,cl_true, { return cl_false; } ); // DS zu y