diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-10-14 19:28:46 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-10-14 19:28:46 (GMT) |
| commit | d3c6e22da28dddf8b1f028900647c9221ffcd64a (patch) | |
| tree | 3374679d2549563dd5c0a512edd8f43abbe90d08 /generic/tclExecute.c | |
| parent | 23b011c32d44c8182e0a04316704b590bd2920dd (diff) | |
| download | tcl-d3c6e22da28dddf8b1f028900647c9221ffcd64a.zip tcl-d3c6e22da28dddf8b1f028900647c9221ffcd64a.tar.gz tcl-d3c6e22da28dddf8b1f028900647c9221ffcd64a.tar.bz2 | |
[eb6b68c1a9] Simple fix for [string replace] error demonstrated by new test.
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index e7ff8dc..2ab0277 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -5724,17 +5724,6 @@ TEBCresume( length3 = Tcl_GetCharLength(value3Ptr); /* - * Remove substring. In-place. - */ - - if (length3 == 0 && !Tcl_IsShared(valuePtr) && toIdx == length) { - TclDecrRefCount(value3Ptr); - Tcl_SetObjLength(valuePtr, fromIdx); - TRACE_APPEND(("\"%.30s\"\n", O2S(valuePtr))); - NEXT_INST_F(1, 0, 0); - } - - /* * See if we can splice in place. This happens when the number of * characters being replaced is the same as the number of characters * in the string to be inserted. |