diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-02-15 12:02:48 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-02-15 12:02:48 (GMT) |
| commit | ef8842098dc6103ef6fc6fc7deb1b7e5395e85a2 (patch) | |
| tree | 9e92fe62aa3daa6cfefd6a65813ad18546ab28aa /generic/tclBasic.c | |
| parent | 3aa1601f2afddd655694ff5cd8541c0572736c3c (diff) | |
| download | tcl-ef8842098dc6103ef6fc6fc7deb1b7e5395e85a2.zip tcl-ef8842098dc6103ef6fc6fc7deb1b7e5395e85a2.tar.gz tcl-ef8842098dc6103ef6fc6fc7deb1b7e5395e85a2.tar.bz2 | |
* generic/tclCompCmds.c (TclCompileLrangeCmd): Add compiler for
[lrange] with constant indices so we can take advantage of existing
TCL_LIST_RANGE_IMM opcode.
(TclCompileLindexCmd): Improve coverage of constant-index-style
compliation using technique developed for [lrange] above.
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 0365966..d67153c 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -230,7 +230,7 @@ static const CmdInfo builtInCmds[] = { {"linsert", Tcl_LinsertObjCmd, NULL, NULL, 1}, {"list", Tcl_ListObjCmd, TclCompileListCmd, NULL, 1}, {"llength", Tcl_LlengthObjCmd, TclCompileLlengthCmd, NULL, 1}, - {"lrange", Tcl_LrangeObjCmd, NULL, NULL, 1}, + {"lrange", Tcl_LrangeObjCmd, TclCompileLrangeCmd, NULL, 1}, {"lrepeat", Tcl_LrepeatObjCmd, NULL, NULL, 1}, {"lreplace", Tcl_LreplaceObjCmd, NULL, NULL, 1}, {"lreverse", Tcl_LreverseObjCmd, NULL, NULL, 1}, |