This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
If gp_flags is unused, why are we even allocating it?
authorNicholas Clark <nick@ccl4.org>
Thu, 30 Jun 2005 09:57:31 +0000 (09:57 +0000)
committerNicholas Clark <nick@ccl4.org>
Thu, 30 Jun 2005 09:57:31 +0000 (09:57 +0000)
p4raw-id: //depot/perl@25019

dump.c
ext/Devel/Peek/t/Peek.t
gv.h
sv.c

diff --git a/dump.c b/dump.c
index e047d34..9448df0 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -1526,7 +1526,6 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
        Perl_dump_indent(aTHX_ level, file, "    HV = 0x%"UVxf"\n", PTR2UV(GvHV(sv)));
        Perl_dump_indent(aTHX_ level, file, "    CV = 0x%"UVxf"\n", PTR2UV(GvCV(sv)));
        Perl_dump_indent(aTHX_ level, file, "    CVGEN = 0x%"UVxf"\n", (UV)GvCVGEN(sv));
-       Perl_dump_indent(aTHX_ level, file, "    GPFLAGS = 0x%"UVxf"\n", (UV)GvGPFLAGS(sv));
        Perl_dump_indent(aTHX_ level, file, "    LINE = %"IVdf"\n", (IV)GvLINE(sv));
        Perl_dump_indent(aTHX_ level, file, "    FILE = \"%s\"\n", GvFILE(sv));
        Perl_dump_indent(aTHX_ level, file, "    FLAGS = 0x%"UVxf"\n", (UV)GvFLAGS(sv));
index d4b9c06..835166a 100644 (file)
@@ -313,7 +313,6 @@ do_test(17,
     HV = 0x0
     CV = 0x0
     CVGEN = 0x0
-    GPFLAGS = 0x0
     LINE = \\d+
     FILE = ".*\\b(?i:peek\\.t)"
     FLAGS = $ADDR
diff --git a/gv.h b/gv.h
index e087c9a..9034e59 100644 (file)
--- a/gv.h
+++ b/gv.h
@@ -18,7 +18,6 @@ struct gp {
     GV *       gp_egv;         /* effective gv, if *glob */
     CV *       gp_cv;          /* subroutine value */
     U32                gp_cvgen;       /* generational validity of cached gv_cv */
-    U32                gp_flags;       /* XXX unused */
     line_t     gp_line;        /* line first declared at (for -w) */
     char *     gp_file;        /* file first declared in (for -w) */
 };
@@ -74,8 +73,6 @@ Return the SV from the GV.
 #define GvCVGEN(gv)    (GvGP(gv)->gp_cvgen)
 #define GvCVu(gv)      (GvGP(gv)->gp_cvgen ? Nullcv : GvGP(gv)->gp_cv)
 
-#define GvGPFLAGS(gv)  (GvGP(gv)->gp_flags)
-
 #define GvLINE(gv)     (GvGP(gv)->gp_line)
 #define GvFILE(gv)     (GvGP(gv)->gp_file)
 #define GvFILEGV(gv)   (gv_fetchfile(GvFILE(gv)))
diff --git a/sv.c b/sv.c
index c217558..2aa2b5a 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -10011,7 +10011,6 @@ Perl_gp_dup(pTHX_ GP *gp, CLONE_PARAMS* param)
     ret->gp_egv        = gv_dup(gp->gp_egv, param);/* GvEGV is not refcounted */
     ret->gp_cv         = cv_dup_inc(gp->gp_cv, param);
     ret->gp_cvgen      = gp->gp_cvgen;
-    ret->gp_flags      = gp->gp_flags;
     ret->gp_line       = gp->gp_line;
     ret->gp_file       = gp->gp_file;          /* points to COP.cop_file */
     return ret;