Change 27460 by [EMAIL PROTECTED] on 2006/03/10 12:09:39
Tweak change 27457 - make PL_lasttoke MAD only, but teach makedef.pl
about MADness (and unMADness - maybe there is a special word for that)
Affected files ...
... //depot/perl/intrpvar.h#181 edit
... //depot/perl/makedef.pl#195 edit
Differences ...
==== //depot/perl/intrpvar.h#181 (text) ====
Index: perl/intrpvar.h
--- perl/intrpvar.h#180~27457~ 2006-03-09 18:17:43.000000000 -0800
+++ perl/intrpvar.h 2006-03-10 04:09:39.000000000 -0800
@@ -300,8 +300,8 @@
/* 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)
==== //depot/perl/makedef.pl#195 (text) ====
Index: perl/makedef.pl
--- perl/makedef.pl#194~27422~ 2006-03-08 08:29:26.000000000 -0800
+++ perl/makedef.pl 2006-03-10 04:09:39.000000000 -0800
@@ -837,10 +837,16 @@
)];
}
-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
End of Patch.
