This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
remove vestiges of PL_last_proto
authorGurusamy Sarathy <gsar@cpan.org>
Mon, 24 May 1999 01:51:24 +0000 (01:51 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Mon, 24 May 1999 01:51:24 +0000 (01:51 +0000)
p4raw-id: //depot/perl@3448

embedvar.h
intrpvar.h
objXSUB.h

index a8d83f5..e6dad21 100644 (file)
 #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)
 #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
index 457ad75..e4f112e 100644 (file)
@@ -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)
index a74e8ee..c29bc06 100644 (file)
--- a/objXSUB.h
+++ b/objXSUB.h
 #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