[svn:ponie] r380 - trunk/perl
[email protected] 10 Dec 2005 00:00:20 -0000
| Newsgroups | perl.ponie.changes |
|---|---|
| Message-ID | <[email protected]> |
Author: nicholas
Date: Fri Dec 9 16:00:20 2005
New Revision: 380
Modified:
trunk/perl/sv.c
Log:
Merge in 26315 from blead - A better hash for PTR_TABLE_HASH (?)
Modified: trunk/perl/sv.c
==============================================================================
--- trunk/perl/sv.c (original)
+++ trunk/perl/sv.c Fri Dec 9 16:00:20 2005
@@ -9289,7 +9289,9 @@ Perl_ptr_table_new(pTHX)
return tbl;
}
-#define PTR_TABLE_HASH(ptr) (PTR2UV(ptr) >> 4)
+#define PTR_TABLE_HASH(ptr) \
+ ((PTR2UV(ptr) >> 3) ^ (PTR2UV(ptr) >> (3 + 7)) ^ (PTR2UV(ptr) >> (3 + 17)))
+
STATIC void
S_more_pte(pTHX)