Provide share_hek_hek, and use it for fast copying of shared string

scalars.

p4raw-id: //depot/perl@24811

1 files changed, 7 insertions, 0 deletions

diff --git a/hv.h b/hv.h
index ac4bdd33c8..6378a02f3b 100644
--- a/hv.h
+++ b/hv.h
@@ -364,6 +364,13 @@ C<SV*>.
 #define Perl_sharepvn(sv, len, hash) HEK_KEY(share_hek(sv, len, hash))
 #define sharepvn(sv, len, hash)	     Perl_sharepvn(sv, len, hash)
 
+#define share_hek_hek(hek)						\
+    (++(((struct shared_he *)(((char *)hek)				\
+			      - STRUCT_OFFSET(struct shared_he,		\
+					      shared_he_hek)))		\
+	->shared_he_he.hent_val),					\
+     hek)
+
 /*
  * Local variables:
  * c-indentation-style: bsd