chiark / gitweb /
Fixes for Cygwin.
[mLib] / unihash-check.pl
index 72c3b9b..f7041f8 100644 (file)
@@ -8,7 +8,7 @@ sub gfmul {
 
   while ($y) {
     if ($y & 1) { $a ^= $x };
-    if ($x & 0x80000000) { $x <<= 1; $x ^= $MOD; }
+    if ($x & 0x80000000) { $x <<= 1; $x &= 0xffffffff; $x ^= $MOD; }
     else { $x <<= 1; }
     $y >>= 1;
   }