Merge pull request #3 from JuliaString/fix32

Fix issue on 32-bit systems

.travis.yml

@@ -5,7 +5,7 @@ os:
   - osx
 julia:
   - 1.0
-  - 1.1
+  - 1.3
   - nightly
 notifications:
   email: false

Project.toml

@@ -4,7 +4,7 @@ keywords = ["Strings", "Hashing"]
 license = "MIT"
 name = "MurmurHash3"
 uuid = "b10b62ed-fbae-5ea5-b934-abaf0477b71d"
-version = "1.0.1"
+version = "1.0.2"
 
 [deps]
 

appveyor.yml

@@ -1,7 +1,7 @@
 environment:
   matrix:
   - julia_version: 1.0
-  - julia_version: 1
+  - julia_version: 1.3
   - julia_version: latest
 
 platform:

src/MurmurHash3.jl

@@ -257,7 +257,7 @@ const d2 = 0x1b873593
 
 @inline fmix(h::UInt32) = xor16(xor13(xor16(h) * 0x85ebca6b) * 0xc2b2ae35)
 
-@inline mhblock(h1, k1) = rotl13(xor(h1, rotl15(k1 * d1) * d2))*5 + 0xe6546b64
+@inline mhblock(h1, k1) = u32(rotl13(xor(h1, rotl15(k1 * d1) * d2))*0x00005) + 0xe6546b64
 
 @inline function mhbody(nblocks, pnt, h1)
     for i = 1:nblocks
@@ -269,7 +269,11 @@ end
 
 function mmhash32(len, pnt, seed::UInt32)
     pnt, h1 = mhbody(len >>> 2, reinterpret(Ptr{UInt32}, pnt), seed)
-    (len & 3) == 0 || (h1 = xor(h1, rotl15(unsafe_load(pnt)) * d1) * d2)
+    res = len & 3
+    if res != 0
+        v = unsafe_load(pnt) & ifelse(res==1, 0x000ff, ifelse(res==2, 0x0ffff, 0xffffff))
+        h1 = xor(h1, rotl15(v) * d1) * d2
+    end
     fmix(xor(h1, u32(len)))
 end
 
@@ -319,6 +323,12 @@ end
     pnt, h1, h2, h3, h4
 end
 
+# degenerate case, hash for 0 length strings, based entirely on seed
+function mmhash128_4(seed::UInt32)
+    h = fmix(5*seed)*5
+    up32(h) | fmix(4*seed)*4, up32(h) | h
+end
+
 function mmhash128_4(len, pnt, seed::UInt32)
     pnt, h1, h2, h3, h4 = mhbody(len >>> 4, pnt, seed, seed, seed, seed)
     if (left = len & 15) != 0
@@ -334,8 +344,17 @@ function mmhash128_4(len, pnt, seed::UInt32)
     mhfin(len, h1, h2, h3, h4)
 end
 
+import Base.GC: @preserve
+
+# AbstractString MurmurHash3, converts to UTF-8 on the fly (not optimized yet!)
+function mmhash128_4(s::AbstractString, seed::UInt32)
+    str = string(s)
+    @preserve str mmhash128_4(sizeof(str), pointer(str), seed)
+end
+
 @inline shift_n_32(v, n) = u32(v) << (((n & 7)%UInt)<<3)
 
+
 @inline function get_utf8(cnt, ch)
     if ch <= 0x7f
         cnt + 1, u32(ch)

test/runtests.jl

@@ -3,25 +3,29 @@
 
 using MurmurHash3
 
-@static VERSION < v"0.7.0-DEV" ? (using Base.Test) : (using Test)
-
-_memhash(siz, ptr, seed) =
-    ccall(Base.memhash, UInt, (Ptr{UInt8}, Csize_t, UInt32), ptr, siz, seed % UInt32)
+using Test
 
 p1 = SubString("--hello--",3,7)
 p2 = "hello"
 
+_memhash(siz, ptr) = ccall(Base.memhash, UInt, (Ptr{UInt8}, Csize_t, UInt32), ptr, siz, 0%UInt32)
+mh(str::String) = _memhash(sizeof(str), pointer(str))
+mh(str::AbstractString) = mh(string(str))
+
 mmhash(str::String) = mmhash128_a(sizeof(str), pointer(str), 0%UInt32)
-@static if sizeof(Int) == 8
-    mmhashc(str::AbstractString) = mmhash128_c(str, 0%UInt32)
-else
-    mmhashc(str::AbstractString) = (s = string(str); mmhash128_c(sizeof(s), pointer(s), 0%UInt32))
-end
-memhash(str) = _memhash(sizeof(str), pointer(str), 0%UInt32)
+mmhashc(str::AbstractString) = mmhash128_c(str, 0%UInt32)
+
+mh32(str) = mmhash32(sizeof(str), pointer(str), 0%UInt32)
 
 @testset "MurmurHash3" begin
     @test mmhashc(p1) == mmhash(p2)
-    @test last(mmhashc(p1)) == memhash(p1)
-    @test last(mmhashc(p2)) == memhash(p2)
-    @test last(mmhash(p2))  == memhash(p1)
+    @static if sizeof(Int) == 8
+        @test last(mmhashc(p1)) == mh(p1)
+        @test last(mmhashc(p2)) == mh(p2)
+        @test last(mmhash(p2))  == mh(p1)
+    else
+        @test mh32(p2) == mh(p2)
+    end
 end
+
+