diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-24 08:18:17 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-24 08:18:17 (GMT) |
commit | 53ba10085a9de8ab30a7372eba6bfc937ff07dc5 (patch) | |
tree | 4b2a17af7218bb8a0fcee4b7011c33d675b102f1 /generic/tclCompCmds.c | |
parent | 7864030700db5ec4c260fd7cb4ab602d8730cea2 (diff) | |
download | tcl-53ba10085a9de8ab30a7372eba6bfc937ff07dc5.zip tcl-53ba10085a9de8ab30a7372eba6bfc937ff07dc5.tar.gz tcl-53ba10085a9de8ab30a7372eba6bfc937ff07dc5.tar.bz2 |
TIP #616: Tcl lists > 2^31 elements. WIP
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 5f161af..15f7ec7 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); /* @@ -893,7 +893,7 @@ TclCompileConcatCmd( int len; size_t slen; - Tcl_ListObjGetElements(NULL, listObj, &len, &objs); + TclListObjGetElements_(NULL, listObj, &len, &objs); objPtr = Tcl_ConcatObj(len, objs); Tcl_DecrRefCount(listObj); bytes = Tcl_GetStringFromObj(objPtr, &slen); @@ -2753,7 +2753,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; |