This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
xcv_start and xcv_xsubany can be merged into a union, as they are never
authorNicholas Clark <nick@ccl4.org>
Mon, 20 Feb 2006 11:54:38 +0000 (11:54 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 20 Feb 2006 11:54:38 +0000 (11:54 +0000)
both needed.

p4raw-id: //depot/perl@27243

cv.h
dump.c
ext/B/B.xs
ext/Devel/Peek/t/Peek.t
sv.h

diff --git a/cv.h b/cv.h
index 7e60be7..d082146 100644 (file)
--- a/cv.h
+++ b/cv.h
@@ -1,7 +1,7 @@
 /*    cv.h
  *
  *    Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1999,
- *    2000, 2001, 2002, 2003, 2004, 2005, by Larry Wall and others
+ *    2000, 2001, 2002, 2003, 2004, 2005, 2006, by Larry Wall and others
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
@@ -23,10 +23,12 @@ struct xpvcv {
     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 */
@@ -55,10 +57,10 @@ Returns the stash of the CV.
 #define Nullcv Null(CV*)
 
 #define CvSTASH(sv)    ((XPVCV*)SvANY(sv))->xcv_stash
-#define CvSTART(sv)    ((XPVCV*)SvANY(sv))->xcv_start
+#define CvSTART(sv)    ((XPVCV*)SvANY(sv))->xcv_start_u.xcv_start
 #define CvROOT(sv)     ((XPVCV*)SvANY(sv))->xcv_root
 #define CvXSUB(sv)     ((XPVCV*)SvANY(sv))->xcv_xsub
-#define CvXSUBANY(sv)  ((XPVCV*)SvANY(sv))->xcv_xsubany
+#define CvXSUBANY(sv)  ((XPVCV*)SvANY(sv))->xcv_start_u.xcv_xsubany
 #define CvGV(sv)       ((XPVCV*)SvANY(sv))->xcv_gv
 #define CvFILE(sv)     ((XPVCV*)SvANY(sv))->xcv_file
 #ifdef USE_ITHREADS
diff --git a/dump.c b/dump.c
index 02b1c22..419a546 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -1486,13 +1486,13 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
        /* FALL THROUGH */
     case SVt_PVFM:
        do_hv_dump(level, file, "  COMP_STASH", CvSTASH(sv));
-       if (CvSTART(sv))
+       if (!CvISXSUB(sv) && CvSTART(sv))
            Perl_dump_indent(aTHX_ level, file, "  START = 0x%"UVxf" ===> %"IVdf"\n", PTR2UV(CvSTART(sv)), (IV)sequence_num(CvSTART(sv)));
        Perl_dump_indent(aTHX_ level, file, "  ROOT = 0x%"UVxf"\n", PTR2UV(CvROOT(sv)));
         if (CvROOT(sv) && dumpops)
            do_op_dump(level+1, file, CvROOT(sv));
        Perl_dump_indent(aTHX_ level, file, "  XSUB = 0x%"UVxf"\n", PTR2UV(CvXSUB(sv)));
-       {
+       if (CvISXSUB(sv)) {
            SV *constant = cv_const_sv((CV *)sv);
 
 
index 86dd9d9..8271d04 100644 (file)
@@ -1636,6 +1636,10 @@ CvSTASH(cv)
 B::OP
 CvSTART(cv)
        B::CV   cv
+    CODE:
+       RETVAL = CvISXSUB(cv) ? NULL : CvSTART(cv);
+    OUTPUT:
+       RETVAL
 
 B::OP
 CvROOT(cv)
@@ -1678,7 +1682,7 @@ CvXSUBANY(cv)
     CODE:
        ST(0) = CvCONST(cv) ?
            make_sv_object(aTHX_ sv_newmortal(),(SV *)CvXSUBANY(cv).any_ptr) :
-           sv_2mortal(newSViv(CvXSUBANY(cv).any_iv));
+           sv_2mortal(newSViv(CvISXSUB(cv) ? CvXSUBANY(cv).any_iv : 0));
 
 MODULE = B    PACKAGE = B::CV
 
index d7b51ee..6984571 100644 (file)
@@ -17,6 +17,7 @@ print "1..23\n";
 our $DEBUG = 0;
 open(SAVERR, ">&STDERR") or die "Can't dup STDERR: $!";
 
+
 sub do_test {
     my $pattern = pop;
     if (open(OUT,">peek$$")) {
@@ -30,6 +31,12 @@ sub do_test {
            $pattern =~ s/\$FLOAT/(?:\\d*\\.\\d+(?:e[-+]\\d+)?|\\d+)/g;
            # handle DEBUG_LEAKING_SCALARS prefix
            $pattern =~ s/^(\s*)(SV =.* at )/(?:$1ALLOCATED at .*?\n)?$1$2/mg;
+
+           $pattern =~ s/^ *\$XSUBANY *\n/
+               ($] < 5.009) ? "    XSUBANY = 0\n" : '';
+           /mge;
+
+
            print $pattern, "\n" if $DEBUG;
            my $dump = <IN>;
            print $dump, "\n"    if $DEBUG;
@@ -51,6 +58,7 @@ our   $b;
 my    $c;
 local $d = 0;
 
+
 do_test( 1,
        $a = "foo",
 'SV = PV\\($ADDR\\) at $ADDR
@@ -213,7 +221,7 @@ do_test(13,
     START = $ADDR ===> \\d+
     ROOT = $ADDR
     XSUB = 0x0
-    XSUBANY = 0
+    $XSUBANY
     GVGV::GV = $ADDR\\t"main" :: "__ANON__[^"]*"
     FILE = ".*\\b(?i:peek\\.t)"
     DEPTH = 0
@@ -240,7 +248,7 @@ do_test(14,
     START = $ADDR ===> \\d+
     ROOT = $ADDR
     XSUB = 0x0
-    XSUBANY = 0
+    $XSUBANY
     GVGV::GV = $ADDR\\t"main" :: "do_test"
     FILE = ".*\\b(?i:peek\\.t)"
     DEPTH = 1
diff --git a/sv.h b/sv.h
index 44803bc..e85fd7a 100644 (file)
--- 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 */