remove vestiges of PL_last_proto

p4raw-id: //depot/perl@3448

diff --git a/embedvar.h b/embedvar.h
index a8d83f5..e6dad21 100644 (file)
--- a/embedvar.h
+++ b/embedvar.h
@@ -199,7 +199,6 @@
 #define PL_incgv               (PL_curinterp->Iincgv)
 #define PL_initav              (PL_curinterp->Iinitav)
 #define PL_inplace             (PL_curinterp->Iinplace)
-#define PL_last_proto          (PL_curinterp->Ilast_proto)
 #define PL_lastfd              (PL_curinterp->Ilastfd)
 #define PL_lastsize            (PL_curinterp->Ilastsize)
 #define PL_lastspbase          (PL_curinterp->Ilastspbase)
@@ -333,7 +332,6 @@
 #define PL_Iincgv              PL_incgv
 #define PL_Iinitav             PL_initav
 #define PL_Iinplace            PL_inplace
-#define PL_Ilast_proto         PL_last_proto
 #define PL_Ilastfd             PL_lastfd
 #define PL_Ilastsize           PL_lastsize
 #define PL_Ilastspbase         PL_lastspbase

diff --git a/intrpvar.h b/intrpvar.h
index 457ad75..e4f112e 100644 (file)
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -119,7 +119,6 @@ PERLVAR(Ifdpid,             AV *)           /* keep fd-to-pid mappings for my_popen */
 /* internal state */
 PERLVAR(Itainting,     bool)           /* doing taint checks */
 PERLVARI(Iop_mask,     char *, NULL)   /* masked operations for safe evals */
-PERLVAR(Ilast_proto, char *)           /* Prototype of last sub seen. */
 
 /* trace state */
 PERLVAR(Idlevel,       I32)

diff --git a/objXSUB.h b/objXSUB.h
index a74e8ee..c29bc06 100644 (file)
--- a/objXSUB.h
+++ b/objXSUB.h
@@ -266,8 +266,6 @@
 #define PL_last_lop            pPerl->PL_last_lop
 #undef  PL_last_lop_op
 #define PL_last_lop_op         pPerl->PL_last_lop_op
-#undef  PL_last_proto
-#define PL_last_proto          pPerl->PL_last_proto
 #undef  PL_last_swash_hv
 #define PL_last_swash_hv       pPerl->PL_last_swash_hv
 #undef  PL_last_swash_key