diff options
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; } |