This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
make parser_free actually free the parser!
authorDave Mitchell <davem@fdisolutions.com>
Thu, 4 Jan 2007 01:03:22 +0000 (01:03 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Thu, 4 Jan 2007 01:03:22 +0000 (01:03 +0000)
also remove two SAVEs left over from #29655

p4raw-id: //depot/perl@29680

perly.c
toke.c

diff --git a/perly.c b/perly.c
index 8ce76ab..112930e 100644 (file)
--- a/perly.c
+++ b/perly.c
@@ -302,7 +302,10 @@ Perl_parser_free(pTHX_  const yy_parser *parser)
 {
     S_clear_yystack(aTHX_ parser);
     Safefree(parser->stack);
+    Safefree(parser->lex_brackstack);
+    Safefree(parser->lex_casestack);
     PL_parser = parser->old_parser;
+    Safefree(parser);
 }
 #endif
 
diff --git a/toke.c b/toke.c
index 19b117b..1dd7bcf 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -643,8 +643,6 @@ Perl_lex_start(pTHX_ SV *line)
 
     /* initialise lexer state */
 
-    SAVEI32(PL_lex_brackets);
-    SAVEI32(PL_lex_casemods);
     SAVEI32(PL_lex_state);
 #ifdef PERL_MAD
     if (PL_lex_state == LEX_KNOWNEXT) {