diff options
| -rw-r--r-- | intrpvar.h | 2 | ||||
| -rw-r--r-- | makedef.pl | 8 |
2 files changed, 8 insertions, 2 deletions
diff --git a/intrpvar.h b/intrpvar.h index 7f947a34d8..6cdf894df5 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 ab3b2c416d..5b4f930260 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 |