diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-01-06 18:07:43 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-01-06 18:07:43 (GMT) |
| commit | edcdd9afe15d3f68c2b185a324dce8ee369b7b07 (patch) | |
| tree | 2fe2d7ea574859cb4c3a83c078373d8b0987c973 /generic/tclBasic.c | |
| parent | f140e958c5a9be145a6a9bf5672d785ba1bad964 (diff) | |
| download | tcl-edcdd9afe15d3f68c2b185a324dce8ee369b7b07.zip tcl-edcdd9afe15d3f68c2b185a324dce8ee369b7b07.tar.gz tcl-edcdd9afe15d3f68c2b185a324dce8ee369b7b07.tar.bz2 | |
Missing bit of interp->result deprecation.
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index ac290b6..b216e05 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -1866,8 +1866,10 @@ DeleteInterpProc( * could have transferred ownership of the result string to Tcl. */ +#ifndef TCL_NO_DEPRECATED Tcl_FreeResult(interp); iPtr->result = NULL; +#endif Tcl_DecrRefCount(iPtr->objResultPtr); iPtr->objResultPtr = NULL; Tcl_DecrRefCount(iPtr->ecVar); |