diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-10-29 21:35:49 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-10-29 21:35:49 (GMT) |
| commit | 2b2fbb042125fc15bc6a507585c6d971887ebdbe (patch) | |
| tree | 2f37ec079458d2dd670f4ac91e414deec83d160b /generic/tclCompile.c | |
| parent | 598ca907fafae5ae4feb34eb2aa90a7388c73a78 (diff) | |
| download | tcl-2b2fbb042125fc15bc6a507585c6d971887ebdbe.zip tcl-2b2fbb042125fc15bc6a507585c6d971887ebdbe.tar.gz tcl-2b2fbb042125fc15bc6a507585c6d971887ebdbe.tar.bz2 | |
Added compilation of simplest practical case of [string map].
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 1924334..8b98746 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -435,6 +435,11 @@ InstructionDesc const tclInstructionTable[] = { * indicated by the LVT index. Part of [dict with]. * Stack: ... path keyList => ... */ + {"strmap", 1, -2, 0, {OPERAND_NONE}}, + /* Simplified version of [string map] that only applies one change + * string, and only case-sensitively. + * Stack: ... from to string => changedString */ + {"yield", 1, 0, 0, {OPERAND_NONE}}, /* Makes the current coroutine yield the value at the top of the * stack, and places the response back on top of the stack when it |