Don't allocate an IV slot where the type doesn't use the IV slot.

p4raw-id: //depot/perl@24557

1 files changed, 19 insertions, 0 deletions

diff --git a/av.h b/av.h
index cc5dd5e055..05e09c5698 100644
--- a/av.h
+++ b/av.h
@@ -26,7 +26,26 @@ struct xpvav {
     HV*		xmg_stash;	/* class package */
 };
 
+#if 0
 typedef struct xpvav xpvav_allocated;
+#else
+typedef struct {
+    SSize_t	xav_fill;       /* Index of last element present */
+    SSize_t	xav_max;        /* max index for which array has space */
+    union {
+	NV	xnvu_nv;
+	struct {
+	    void *xnv_p1;	/* pointer to beginning of C array of SVs */
+	    union {
+		void *xnv_p2;
+		IV xnv_i2;
+	    }	xnv_u2;
+	}	xnv_s;
+    }		xnv_u;
+    MAGIC*	xmg_magic;	/* magic for scalar array */
+    HV*		xmg_stash;	/* class package */
+} xpvav_allocated;
+#endif
 
 /* SV**	xav_alloc; */
 #define xav_alloc xnv_u.xnv_s.xnv_p1