Fixes for Cygwin.

[mLib] / unihash-check.pl

diff --git a/unihash-check.pl b/unihash-check.pl
index 72c3b9b84da0e97a8a1e7888b7ea5196ca8a6ba1..f7041f8f1e4f4ebbfc151d7f26ec8ef724ce6146 100644 (file)
--- a/unihash-check.pl
+++ b/unihash-check.pl
@@ -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;
   }