diff options
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 562cca6..5b2f1fe 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -8400,8 +8400,11 @@ TailcallCleanup( Tcl_Interp *interp, int result) { + Interp *iPtr = (Interp *) interp; + Tcl_DecrRefCount((Tcl_Obj *) data[0]); Tcl_DecrRefCount((Tcl_Obj *) data[1]); + iPtr->flags |= ERR_ALREADY_LOGGED; return result; } |