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/tclEnsemble.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/tclEnsemble.c')
| -rw-r--r-- | generic/tclEnsemble.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index 680ab45d..9b6ca92 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -3229,6 +3229,15 @@ CompileBasicNArgCommand( * compiled. */ CompileEnv *envPtr) /* Holds resulting instructions. */ { +#if 1 + Tcl_Obj *objPtr = Tcl_NewObj(); + + Tcl_IncrRefCount(objPtr); + Tcl_GetCommandFullName(interp, (Tcl_Command) cmdPtr, objPtr); + TclCompileInvocation(interp, parsePtr->tokenPtr, objPtr, + parsePtr->numWords, envPtr); + Tcl_DecrRefCount(objPtr); +#else Tcl_Token *tokenPtr; Tcl_Obj *objPtr; char *bytes; @@ -3272,6 +3281,7 @@ CompileBasicNArgCommand( } else { TclEmitInstInt4(INST_INVOKE_STK4, i, envPtr); } +#endif return TCL_OK; } |