Convert xhv_name in struct xpvhv_aux to be a union of HEK* and HEK**

This avoids a lot of casting. Nothing outside the perl core code is accessing
that member directly.

1 files changed, 2 insertions, 2 deletions

diff --git a/dump.c b/dump.c
index f13b9a2826..4bda943bff 100644
--- a/dump.c
+++ b/dump.c
@@ -1862,10 +1862,10 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
 		 level, file, "  NAMECOUNT = %"IVdf"\n",
 		 (IV)HvAUX(sv)->xhv_name_count
 		);
-	    if (HvAUX(sv)->xhv_name && HvENAME_HEK_NN(sv)) {
+	    if (HvAUX(sv)->xhv_name_u.xhvnameu_name && HvENAME_HEK_NN(sv)) {
 		if (HvAUX(sv)->xhv_name_count) {
 		    SV * const names = sv_newmortal();
-		    HEK ** const namep = (HEK **)HvAUX(sv)->xhv_name;
+		    HEK ** const namep = HvAUX(sv)->xhv_name_u.xhvnameu_names;
 		    const I32 count = HvAUX(sv)->xhv_name_count;
 		    /* This line sets hekp to one element before the first
 		       name, so the ++hekp below will put us at the start-