diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-07-02 20:19:07 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-07-02 20:19:07 (GMT) |
| commit | 46f047fba1c5ac3c1c6f37b3c1c4ab4c6850856e (patch) | |
| tree | 18540e5fdaad70315e4ecaf337669d540d5ed948 /generic/tclEnsemble.c | |
| parent | 13269b1224fa98eb4db94e90345f0b34ecbe097f (diff) | |
| parent | 8e39be1340c8878cb33ac4c219acb88d3521a7a0 (diff) | |
| download | tcl-46f047fba1c5ac3c1c6f37b3c1c4ab4c6850856e.zip tcl-46f047fba1c5ac3c1c6f37b3c1c4ab4c6850856e.tar.gz tcl-46f047fba1c5ac3c1c6f37b3c1c4ab4c6850856e.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclEnsemble.c')
| -rw-r--r-- | generic/tclEnsemble.c | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index 03ee7e8..617a481 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -1674,18 +1674,11 @@ NsEnsembleImplementationCmdNR( */ Tcl_DString buf; /* Message being built */ - Tcl_Obj **elemPtrs; /* Parameter names */ - int len; /* Number of parameters to append */ Tcl_DStringInit(&buf); - if (ensemblePtr->parameterList == NULL) { - len = 0; - } else if (TclListObjGetElements(NULL, ensemblePtr->parameterList, - &len, &elemPtrs) != TCL_OK) { - Tcl_Panic("List of ensemble parameters is not a list"); - } - for (; len>0; len--,elemPtrs++) { - TclDStringAppendObj(&buf, *elemPtrs); + if (ensemblePtr->parameterList) { + Tcl_DStringAppend(&buf, + TclGetString(ensemblePtr->parameterList), -1); TclDStringAppendLiteral(&buf, " "); } TclDStringAppendLiteral(&buf, "subcommand ?arg ...?"); |