diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-10-14 19:54:55 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-10-14 19:54:55 (GMT) |
| commit | 4cb3305614eb9c198178b7fe27771e0175af95f5 (patch) | |
| tree | ce1f4366fd2cd5708f4ad5966b4f16860e4904eb | |
| parent | 029c8634fd69bd84287460912280396ccbfd39a1 (diff) | |
| parent | ae54e070a1abfeb5344f99623b55fc7515a56de8 (diff) | |
| download | tcl-4cb3305614eb9c198178b7fe27771e0175af95f5.zip tcl-4cb3305614eb9c198178b7fe27771e0175af95f5.tar.gz tcl-4cb3305614eb9c198178b7fe27771e0175af95f5.tar.bz2 | |
merge trunk
| -rw-r--r-- | generic/tclExecute.c | 11 | ||||
| -rw-r--r-- | tests/stringComp.test | 3 |
2 files changed, 3 insertions, 11 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index f1d72fc..593a4cf 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -5719,17 +5719,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. diff --git a/tests/stringComp.test b/tests/stringComp.test index 140a270..2aeb08e 100644 --- a/tests/stringComp.test +++ b/tests/stringComp.test @@ -738,6 +738,9 @@ test stringComp-14.4 {Bug 1af8de570511} { string replace $val[unset val] 1 1 $y }} 4 x } 0x00 +test stringComp-14.5 {} { + string length [string replace [string repeat a\u00fe 2] 3 end {}] +} 3 ## string tolower ## not yet bc |