xgv_stash can be stored as a union with the NV, reducing the size of

PVGVs by another pointer.

p4raw-id: //depot/perl@27326

1 files changed, 4 insertions, 1 deletions

diff --git a/hv.h b/hv.h
index 0fd0e6b6c0..4f4d3aac5f 100644
--- a/hv.h
+++ b/hv.h
@@ -49,7 +49,10 @@ struct xpvhv_aux {
 /* hash structure: */
 /* This structure must match the beginning of struct xpvmg in sv.h. */
 struct xpvhv {
-    NV		xnv_nv;		/* numeric value, if any */
+    union {
+	NV	xnv_nv;		/* numeric value, if any */
+	HV *	xgv_stash;
+    }		xnv_u;
     STRLEN	xhv_fill;	/* how full xhv_array currently is */
     STRLEN	xhv_max;	/* subscript of last element of xhv_array */
     union {