diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-07-16 15:59:00 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-07-16 15:59:00 (GMT) |
| commit | 7fd0e62dc493b5523e14818c9d424b1c5ef91d3e (patch) | |
| tree | cffc2707431e5c09a54997f8c00a43065ca699d5 /generic/tclExecute.c | |
| parent | 54c72fdcab114a768b54bd1dfd06912b79dc0da0 (diff) | |
| download | tcl-7fd0e62dc493b5523e14818c9d424b1c5ef91d3e.zip tcl-7fd0e62dc493b5523e14818c9d424b1c5ef91d3e.tar.gz tcl-7fd0e62dc493b5523e14818c9d424b1c5ef91d3e.tar.bz2 | |
[6a2d339e50] Plug memleak in INST_STR_REPLACE instruction.
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 2f9aac3..0d485c2 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -5601,6 +5601,7 @@ TEBCresume( ((int *) objResultPtr->internalRep.otherValuePtr)[1] = 0; } Tcl_InvalidateStringRep(objResultPtr); + TclDecrRefCount(value3Ptr); TRACE_APPEND(("\"%.30s\"\n", O2S(objResultPtr))); NEXT_INST_F(1, 1, 1); } else { @@ -5627,6 +5628,7 @@ TEBCresume( ((int *) objResultPtr->internalRep.otherValuePtr)[1] = 0; } Tcl_InvalidateStringRep(valuePtr); + TclDecrRefCount(value3Ptr); TRACE_APPEND(("\"%.30s\"\n", O2S(valuePtr))); NEXT_INST_F(1, 0, 0); } |