diff options
| author | markm <markm@FreeBSD.org> | 2002-03-16 20:14:30 +0000 |
|---|---|---|
| committer | markm <markm@FreeBSD.org> | 2002-03-16 20:14:30 +0000 |
| commit | b878a8b4fc512ca76116a7012802d385208857c3 (patch) | |
| tree | 40ba760f36cd8e65b8c0a8caeaee00ceb84de622 /contrib/perl5/perly.c | |
| parent | 96faff292d8b1b0bfcebddfb2f70f375ad79fec7 (diff) | |
| parent | 3eac21f49bc763a6c0044b4afbc0c7ece760144f (diff) | |
| download | FreeBSD-src-b878a8b4fc512ca76116a7012802d385208857c3.zip FreeBSD-src-b878a8b4fc512ca76116a7012802d385208857c3.tar.gz | |
This commit was generated by cvs2svn to compensate for changes in r92442,
which included commits to RCS files with non-trunk default branches.
Diffstat (limited to 'contrib/perl5/perly.c')
| -rw-r--r-- | contrib/perl5/perly.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/contrib/perl5/perly.c b/contrib/perl5/perly.c index 36b51c0..2b5108f 100644 --- a/contrib/perl5/perly.c +++ b/contrib/perl5/perly.c @@ -1386,6 +1386,9 @@ yyparse() #endif struct ysv *ysave; +#ifdef USE_ITHREADS + ENTER; /* force yydestruct() before we return */ +#endif New(73, ysave, 1, struct ysv); SAVEDESTRUCTOR_X(yydestruct, ysave); ysave->oldyydebug = yydebug; @@ -1744,7 +1747,7 @@ case 35: break; case 37: #line 269 "perly.y" -{ (void)scan_num("1"); yyval.opval = yylval.opval; } +{ (void)scan_num("1", &yylval); yyval.opval = yylval.opval; } break; case 39: #line 274 "perly.y" @@ -2477,6 +2480,9 @@ yyoverflow: yyabort: retval = 1; yyaccept: +#ifdef USE_ITHREADS + LEAVE; /* force yydestruct() before we return */ +#endif return retval; } |
