diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2012-02-15 12:02:48 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2012-02-15 12:02:48 (GMT) |
| commit | 0d73e22b1d78d22b3fef4d22eff95ba9d2072378 (patch) | |
| tree | 9e92fe62aa3daa6cfefd6a65813ad18546ab28aa /generic/tclBasic.c | |
| parent | f5e80987720edb33880ddcde6f8c53a43302d45c (diff) | |
| download | tcl-0d73e22b1d78d22b3fef4d22eff95ba9d2072378.zip tcl-0d73e22b1d78d22b3fef4d22eff95ba9d2072378.tar.gz tcl-0d73e22b1d78d22b3fef4d22eff95ba9d2072378.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}, |