xcv_start and xcv_xsubany can be merged into a union, as they are never

both needed.

p4raw-id: //depot/perl@27243

1 files changed, 4 insertions, 2 deletions

diff --git a/sv.h b/sv.h
index 44803bc6dd..e85fd7ae49 100644
--- a/sv.h
+++ b/sv.h
@@ -430,10 +430,12 @@ struct xpvfm {
     HV*		xmg_stash;	/* class package */
 
     HV *	xcv_stash;
-    OP *	xcv_start;
+    union {
+	OP *	xcv_start;
+	ANY	xcv_xsubany;
+    }		xcv_start_u;
     OP *	xcv_root;
     void      (*xcv_xsub)(pTHX_ CV*);
-    ANY		xcv_xsubany;
     GV *	xcv_gv;
     char *	xcv_file;
     long	xcv_depth;	/* >= 2 indicates recursive call */