diff options
| author | dgp@users.sourceforge.net <dgp> | 2013-07-15 20:16:11 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2013-07-15 20:16:11 (GMT) |
| commit | eb63c0bd3d63e7d556000e4752d4f3d61df92f07 (patch) | |
| tree | 4de2dd1c77a23d0b972d4e40b212d5a830f33aa2 /generic/tclCompile.c | |
| parent | a1c3c7ffeed2676f47e4fdd65083b962cd90cce2 (diff) | |
| download | tcl-eb63c0bd3d63e7d556000e4752d4f3d61df92f07.zip tcl-eb63c0bd3d63e7d556000e4752d4f3d61df92f07.tar.gz tcl-eb63c0bd3d63e7d556000e4752d4f3d61df92f07.tar.bz2 | |
Build CompileBasicNArgCommand on top of TclCompileInvocation.
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 5f4acff..a2c7131 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -1777,8 +1777,8 @@ CompileCmdLiteral( TclEmitPush(cmdLitIdx, envPtr); } -static void -CompileInvocation( +void +TclCompileInvocation( Tcl_Interp *interp, Tcl_Token *tokenPtr, Tcl_Obj *cmdObj, @@ -2095,7 +2095,7 @@ CompileCommandTokens( CompileExpanded(interp, parsePtr->tokenPtr, cmdKnown ? cmdObj : NULL, parsePtr->numWords, envPtr); } else { - CompileInvocation(interp, parsePtr->tokenPtr, + TclCompileInvocation(interp, parsePtr->tokenPtr, cmdKnown ? cmdObj : NULL, parsePtr->numWords, envPtr); } } |