From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 10 Mar 2006 12:09:39 +0000 (+0000)
Subject: Tweak change 27457 - make PL_lasttoke MAD only, but teach makedef.pl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f8565a6682ea6c56c471a8b67893fb36b404e18f;p=p5sagit%2Fp5-mst-13.2.git

Tweak change 27457 - make PL_lasttoke MAD only, but teach makedef.pl
about MADness (and unMADness - maybe there is a special word for that)

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

diff --git a/intrpvar.h b/intrpvar.h
index 7f947a3..6cdf894 100644
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -300,8 +300,8 @@ PERLVAR(Ilex_casestack,	char *)		/* what kind of case mods in effect */
 /* What we know when we're in LEX_KNOWNEXT state. */
 #ifdef PERL_MAD
 PERLVARA(Inexttoke,5,	NEXTTOKE)	/* value of next token, if any */
-#else
 PERLVAR(Ilasttoke,	I32)
+#else
 PERLVARA(Inextval,5,	YYSTYPE)	/* value of next token, if any */
 PERLVARA(Inexttype,5,	I32)		/* type of next token */
 PERLVAR(Inexttoke,	I32)
diff --git a/makedef.pl b/makedef.pl
index ab3b2c4..5b4f930 100644
--- a/makedef.pl
+++ b/makedef.pl
@@ -837,10 +837,16 @@ unless ($define{'PERL_TRACK_MEMPOOL'}) {
                     )];
 }
 
-unless ($define{'PERL_MAD'}) {
+if ($define{'PERL_MAD'}) {
+    skip_symbols [qw(
+		     PL_nextval
+		     PL_nexttype
+		     )];
+} else {
     skip_symbols [qw(
 		    PL_madskills
 		    PL_xmlfp
+		    PL_lasttoke
 		    Perl_pad_peg
 		    Perl_xmldump_indent
 		    Perl_xmldump_vindent