diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-07-15 20:16:11 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-07-15 20:16:11 (GMT) |
| commit | 59d8c6ba4b9cc7f77258e0cdae09b6d786f19fc4 (patch) | |
| tree | 4de2dd1c77a23d0b972d4e40b212d5a830f33aa2 /generic/tclCompile.c | |
| parent | cb0803df0cdcda3e486b73757f4522b467d90a83 (diff) | |
| download | tcl-59d8c6ba4b9cc7f77258e0cdae09b6d786f19fc4.zip tcl-59d8c6ba4b9cc7f77258e0cdae09b6d786f19fc4.tar.gz tcl-59d8c6ba4b9cc7f77258e0cdae09b6d786f19fc4.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); } } |