Integrate:

[ 26315]
A better hash for PTR_TABLE_HASH (?)
p4raw-link: @26315 on //depot/perl: 7119fd33ffc5ef947b59b6096cf5249ee05d4397

p4raw-id: //depot/maint-5.8/perl@26860
p4raw-integrated: from //depot/perl@26315 'merge in' sv.c (@26313..)

1 files changed, 2 insertions, 5 deletions

diff --git a/sv.c b/sv.c
index 57f35a1a60..281634d000 100644
--- a/sv.c
+++ b/sv.c
@@ -9812,11 +9812,8 @@ Perl_ptr_table_new(pTHX)
     return tbl;
 }
 
-#if (PTRSIZE == 8)
-#  define PTR_TABLE_HASH(ptr) (PTR2UV(ptr) >> 3)
-#else
-#  define PTR_TABLE_HASH(ptr) (PTR2UV(ptr) >> 2)
-#endif
+#define PTR_TABLE_HASH(ptr) \
+  ((PTR2UV(ptr) >> 3) ^ (PTR2UV(ptr) >> (3 + 7)) ^ (PTR2UV(ptr) >> (3 + 17)))