diff options
author | knu <knu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-11-01 16:16:31 +0000 |
---|---|---|
committer | knu <knu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-11-01 16:16:31 +0000 |
commit | fe85bcd644d60f7665ed2688b91c28c3def01526 (patch) | |
tree | 29db2cd02a6139cde66ebee2ad7fe75f39a86dae /string.c | |
parent | 92160dc6d0ca0ce81f551c2ec300b570b44b945c (diff) |
* string.c (rb_str_hash): Update the HASH_PERL alternative hash
algorithm in sync with Perl 5.8.
* st.c (strhash): Ditto.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4886 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'string.c')
-rw-r--r-- | string.c | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -744,9 +744,13 @@ rb_str_hash(str) } #elif HASH_PERL while (len--) { - key = key*33 + *p++; + key += *p++; + key += (key << 10); + key ^= (key >> 6); } - key = key + (key>>5); + key += (key << 3); + key ^= (key >> 11); + key += (key << 15); #else while (len--) { key = key*65599 + *p; |