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 | f9e25fe5e7e67249f73b8f5926b3b5549c0e212e (patch) | |
| tree | 3a7505e85eb513379ab7660d22d3740262d999eb /generic/tclCompCmdsGR.c | |
| parent | 8f13e41a87de841f8b7552e04e74caeaca8b4b5b (diff) | |
| download | tcl-f9e25fe5e7e67249f73b8f5926b3b5549c0e212e.zip tcl-f9e25fe5e7e67249f73b8f5926b3b5549c0e212e.tar.gz tcl-f9e25fe5e7e67249f73b8f5926b3b5549c0e212e.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. |