diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-06-02 18:22:06 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-06-02 18:22:06 +0000 |
| commit | f4dd75d9918abbf789a5eca453b89168cad18ff0 (patch) | |
| tree | c0348eda98b997c301b76ab702c0c93d888d87f5 /vms | |
| parent | 4ebbc97598d793d933009eab4334e3bc88b8de4e (diff) | |
| download | perl-f4dd75d9918abbf789a5eca453b89168cad18ff0.tar.gz | |
fix small eval"" memory leaks under USE_ITHREADS
p4raw-id: //depot/perl@6194
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/perly_c.vms | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/vms/perly_c.vms b/vms/perly_c.vms index b17faeade1..0676ebd249 100644 --- a/vms/perly_c.vms +++ b/vms/perly_c.vms @@ -1387,6 +1387,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; @@ -2479,6 +2482,9 @@ yyoverflow: yyabort: retval = 1; yyaccept: +#ifdef USE_ITHREADS + LEAVE; /* force yydestruct() before we return */ +#endif return retval; } |