diff options
author | dkf <dkf@noemail.net> | 2013-12-28 17:21:39 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2013-12-28 17:21:39 (GMT) |
commit | 2c8cc7505a9acabc03f2b28fa7c90df435188d97 (patch) | |
tree | 660424262f795a1470aa234a0fa49a56fc7a804d /generic/tclCompile.c | |
parent | 8a1bc4389c76bba457ae1e3f696d02622a059e8f (diff) | |
download | tcl-2c8cc7505a9acabc03f2b28fa7c90df435188d97.zip tcl-2c8cc7505a9acabc03f2b28fa7c90df435188d97.tar.gz tcl-2c8cc7505a9acabc03f2b28fa7c90df435188d97.tar.bz2 |
added instruction
FossilOrigin-Name: 4baf63487aefdd932f3af539fa3fd809f3fd1187
Diffstat (limited to 'generic/tclCompile.c')
-rw-r--r-- | generic/tclCompile.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index db97c45..5474535 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -606,6 +606,10 @@ InstructionDesc const tclInstructionTable[] = { /* [string totitle] core: converts whole string to upper case using * the default (extended "C" locale) rules. * Stack: ... string => ... newString */ + {"strReplace", 1, -3, 0, {OPERAND_NONE}}, + /* [string replace] core: replaces a non-empty range of one string + * with the contents of another. + * Stack: ... string fromIdx toIdx replacement => ... newString */ {NULL, 0, 0, 0, {OPERAND_NONE}} }; |