From e3abe207f764929a97eafa503a3780d5b7636ed2 Mon Sep 17 00:00:00 2001 From: Dave Mitchell Date: Sun, 1 Apr 2007 01:27:57 +0000 Subject: Make parser_free() be called slightly later, i.e. at the point where lexer vars are being restored in a LEAVE, rather than at the end of yyparse() p4raw-id: //depot/perl@30822 --- perly.c | 20 +++----------------- 1 file changed, 3 insertions(+), 17 deletions(-) (limited to 'perly.c') diff --git a/perly.c b/perly.c index c8ee62ffc6..95779a014d 100644 --- a/perly.c +++ b/perly.c @@ -306,20 +306,6 @@ S_clear_yystack(pTHX_ const yy_parser *parser) } } -/* delete a parser object */ - -#ifndef PERL_IN_MADLY_C -void -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 /*----------. | yyparse. | @@ -362,8 +348,8 @@ Perl_yyparse (pTHX) parser = PL_parser; ps = parser->ps; - ENTER; /* force parser free before we return */ - SAVEPARSER(parser); + ENTER; /* force parser stack cleanup before we return */ + SAVEDESTRUCTOR_X(S_clear_yystack, parser); /*------------------------------------------------------------. | yynewstate -- Push a new state, which is found in yystate. | @@ -691,7 +677,7 @@ Perl_yyparse (pTHX) goto yyreturn; yyreturn: - LEAVE; /* force parser free before we return */ + LEAVE; /* force parser stack cleanup before we return */ return yyresult; } -- cgit v1.2.1