summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-07-16 15:59:00 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-07-16 15:59:00 (GMT)
commit7fd0e62dc493b5523e14818c9d424b1c5ef91d3e (patch)
treecffc2707431e5c09a54997f8c00a43065ca699d5 /generic
parent54c72fdcab114a768b54bd1dfd06912b79dc0da0 (diff)
downloadtcl-7fd0e62dc493b5523e14818c9d424b1c5ef91d3e.zip
tcl-7fd0e62dc493b5523e14818c9d424b1c5ef91d3e.tar.gz
tcl-7fd0e62dc493b5523e14818c9d424b1c5ef91d3e.tar.bz2
[6a2d339e50] Plug memleak in INST_STR_REPLACE instruction.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclExecute.c2
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);
}