diff options
| author | griffin <briang42@easystreet.net> | 2023-06-20 01:47:47 (GMT) |
|---|---|---|
| committer | griffin <briang42@easystreet.net> | 2023-06-20 01:47:47 (GMT) |
| commit | 2e4b97b87fabf8eec9beca9268ffad00cae7a5dd (patch) | |
| tree | e61f103866fbc02bce8d2cb051ca1b9923b8c9c5 /generic/tclNamesp.c | |
| parent | be39d74ee7ad07b23a55da56bcc926a5fcd1e1dc (diff) | |
| parent | ded49faad51acb3519fe7780cc8299ac60840823 (diff) | |
| download | tcl-2e4b97b87fabf8eec9beca9268ffad00cae7a5dd.zip tcl-2e4b97b87fabf8eec9beca9268ffad00cae7a5dd.tar.gz tcl-2e4b97b87fabf8eec9beca9268ffad00cae7a5dd.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclNamesp.c')
| -rw-r--r-- | generic/tclNamesp.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c index 0a4bf58..4d1be5c 100644 --- a/generic/tclNamesp.c +++ b/generic/tclNamesp.c @@ -395,7 +395,7 @@ Tcl_PopCallFrame( Tcl_Free(framePtr->varTablePtr); framePtr->varTablePtr = NULL; } - if (framePtr->numCompiledLocals + 1 > 1) { + if (framePtr->numCompiledLocals > 0) { TclDeleteCompiledLocalVars(iPtr, framePtr); if (framePtr->localCachePtr->refCount-- <= 1) { TclFreeLocalCache(interp, framePtr->localCachePtr); |