From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 24 May 1999 01:51:24 +0000 (+0000)
Subject: remove vestiges of PL_last_proto
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e969301f394bfa96c6a3ba97bf97c3fb48a9b711;p=p5sagit%2Fp5-mst-13.2.git

remove vestiges of PL_last_proto

p4raw-id: //depot/perl@3448
---

diff --git a/embedvar.h b/embedvar.h
index a8d83f5..e6dad21 100644
--- 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
--- 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
--- 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