diff options
| author | dgp@users.sourceforge.net <dgp> | 2013-07-24 13:58:35 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2013-07-24 13:58:35 (GMT) |
| commit | eed45c46f0841984d0e2ea77568fc1541d165189 (patch) | |
| tree | 3a7505e85eb513379ab7660d22d3740262d999eb /generic/tclCompCmdsGR.c | |
| parent | 0a29fbc6717728616a0cd37e48a5a10534b2cb6a (diff) | |
| download | tcl-eed45c46f0841984d0e2ea77568fc1541d165189.zip tcl-eed45c46f0841984d0e2ea77568fc1541d165189.tar.gz tcl-eed45c46f0841984d0e2ea77568fc1541d165189.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. |