diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-10 09:37:55 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-10 09:37:55 (GMT) |
| commit | 110e6cae5e332cfbbbf35253b9dea01162a96975 (patch) | |
| tree | b11847254dc047db3c1489685280c2a8c7503f27 /generic/tclCompCmds.c | |
| parent | 805db9224eba7e498db28cff6b1b9eaecdef33ab (diff) | |
| parent | 8f805cf711937914ecd371343acfe9a4b8f27238 (diff) | |
| download | tcl-110e6cae5e332cfbbbf35253b9dea01162a96975.zip tcl-110e6cae5e332cfbbbf35253b9dea01162a96975.tar.gz tcl-110e6cae5e332cfbbbf35253b9dea01162a96975.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index a2e11c0..a45c059 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -301,7 +301,7 @@ TclCompileArraySetCmd( TclNewObj(literalObj); isDataLiteral = TclWordKnownAtCompileTime(dataTokenPtr, literalObj); isDataValid = (isDataLiteral - && Tcl_ListObjLength(NULL, literalObj, &len) == TCL_OK); + && TclListObjLength(NULL, literalObj, &len) == TCL_OK); isDataEven = (isDataValid && (len & 1) == 0); /* @@ -892,7 +892,7 @@ TclCompileConcatCmd( const char *bytes; int len; - Tcl_ListObjGetElements(NULL, listObj, &len, &objs); + TclListObjGetElements(NULL, listObj, &len, &objs); objPtr = Tcl_ConcatObj(len, objs); Tcl_DecrRefCount(listObj); bytes = TclGetStringFromObj(objPtr, &len); @@ -2750,7 +2750,7 @@ CompileEachloopCmd( */ if (!TclWordKnownAtCompileTime(tokenPtr, varListObj) || - TCL_OK != Tcl_ListObjLength(NULL, varListObj, &numVars) || + TCL_OK != TclListObjLength(NULL, varListObj, &numVars) || numVars == 0) { code = TCL_ERROR; goto done; |