diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-07-24 13:58:35 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-07-24 13:58:35 (GMT) |
| commit | f2bea640bbf79037a46201c95c581f6f8ac5e5ee (patch) | |
| tree | 3a7505e85eb513379ab7660d22d3740262d999eb /generic/tclCompCmdsGR.c | |
| parent | d818803502a3520a2aa8c1a7ce11b8733eaafcc1 (diff) | |
| download | tcl-f2bea640bbf79037a46201c95c581f6f8ac5e5ee.zip tcl-f2bea640bbf79037a46201c95c581f6f8ac5e5ee.tar.gz tcl-f2bea640bbf79037a46201c95c581f6f8ac5e5ee.tar.bz2 | |
Mark commands with potential to compile expansion arguments (as [list] does).
Diffstat (limited to 'generic/tclCompCmdsGR.c')
| -rw-r--r-- | generic/tclCompCmdsGR.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c index fc68509..150c378 100644 --- a/generic/tclCompCmdsGR.c +++ b/generic/tclCompCmdsGR.c @@ -60,6 +60,7 @@ TclCompileGlobalCmd( int localIndex, numWords, i; DefineLineInformation; /* TIP #280 */ + /* TODO: Consider support for compiling expanded args. */ numWords = parsePtr->numWords; if (numWords < 2) { return TCL_ERROR; @@ -820,6 +821,7 @@ TclCompileLappendCmd( return TCL_ERROR; } + /* TODO: Consider support for compiling expanded args. */ numWords = parsePtr->numWords; if (numWords == 1) { return TCL_ERROR; @@ -1061,6 +1063,7 @@ TclCompileLindexCmd( * Quit if too few args. */ + /* TODO: Consider support for compiling expanded args. */ if (numWords <= 1) { return TCL_ERROR; } @@ -1583,6 +1586,7 @@ TclCompileLsetCmd( * Check argument count. */ + /* TODO: Consider support for compiling expanded args. */ if (parsePtr->numWords < 3) { /* * Fail at run time, not in compilation. |