[svn:ponie] r380 - trunk/perl

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)

• [svn:ponie] r380 - trunk/perl by nicholas