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

[cln.git] / src / integer / misc / cl_I_eqhashcode.cc

diff --git a/src/integer/misc/cl_I_eqhashcode.cc b/src/integer/misc/cl_I_eqhashcode.cc
index 5c790d0167bfa1a2ecf06d9b2a1dfaa5d9fc0b5a..572be443a881660143442b78846897cd6788d16b 100644 (file)
--- a/src/integer/misc/cl_I_eqhashcode.cc
+++ b/src/integer/misc/cl_I_eqhashcode.cc
@@ -63,7 +63,7 @@ inline uint32 equal_hashcode (const cl_BN& x)
        } else {
                sign = 0;
        }
-       var sintL exp = (uintL)len * intDsize;
+       var sintC exp = len * intDsize;
        // Nicht alle führenden 65 Bits sind =0.
        if (msd==0) {
                msd = msd2;
@@ -108,7 +108,7 @@ inline uint32 equal_hashcode (const cl_BN& x)
        } else {
                sign = 0;
        }
-       var sintL exp = (uintL)len * intDsize;
+       var sintC exp = len * intDsize;
        // Nicht alle führenden intDsize+1 Bits sind =0.
        // Wegen intDsize<=32: Nicht alle führenden 33 Bits sind =0.
        if (msd==0) {