Change 29680 by [EMAIL PROTECTED] on 2007/01/04 01:03:22
make parser_free actually free the parser!
also remove two SAVEs left over from #29655
Affected files ...
... //depot/perl/perly.c#108 edit
... //depot/perl/toke.c#728 edit
Differences ...
==== //depot/perl/perly.c#108 (text) ====
Index: perl/perly.c
--- perl/perly.c#107~29678~ 2007-01-03 14:17:48.000000000 -0800
+++ perl/perly.c 2007-01-03 17:03:22.000000000 -0800
@@ -302,7 +302,10 @@
{
S_clear_yystack(aTHX_ parser);
Safefree(parser->stack);
+ Safefree(parser->lex_brackstack);
+ Safefree(parser->lex_casestack);
PL_parser = parser->old_parser;
+ Safefree(parser);
}
#endif
==== //depot/perl/toke.c#728 (text) ====
Index: perl/toke.c
--- perl/toke.c#727~29660~ 2007-01-02 06:02:40.000000000 -0800
+++ perl/toke.c 2007-01-03 17:03:22.000000000 -0800
@@ -643,8 +643,6 @@
/* initialise lexer state */
- SAVEI32(PL_lex_brackets);
- SAVEI32(PL_lex_casemods);
SAVEI32(PL_lex_state);
#ifdef PERL_MAD
if (PL_lex_state == LEX_KNOWNEXT) {
End of Patch.
