diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-24 11:53:34 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-24 11:53:34 (GMT) |
| commit | 8997eb06b951e71416f99c512ebed977f8cb61fb (patch) | |
| tree | 2a8a720fea27602a18b4dc6201fa9bceb50e345d /generic/tclExecute.c | |
| parent | 53ba10085a9de8ab30a7372eba6bfc937ff07dc5 (diff) | |
| download | tcl-8997eb06b951e71416f99c512ebed977f8cb61fb.zip tcl-8997eb06b951e71416f99c512ebed977f8cb61fb.tar.gz tcl-8997eb06b951e71416f99c512ebed977f8cb61fb.tar.bz2 | |
Tcl Dicts > 2^31 elements too
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 422e0ff..3691b28 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -6492,7 +6492,7 @@ TEBCresume( case INST_DICT_VERIFY: dictPtr = OBJ_AT_TOS; TRACE(("\"%.30s\" => ", O2S(dictPtr))); - if (Tcl_DictObjSize(interp, dictPtr, &done) != TCL_OK) { + if (TclDictObjSize_(interp, dictPtr, &done) != TCL_OK) { TRACE_APPEND(("ERROR verifying dictionary nature of \"%.30s\": %s\n", O2S(dictPtr), O2S(Tcl_GetObjResult(interp)))); goto gotError; @@ -6996,7 +6996,7 @@ TEBCresume( TRACE_APPEND(("storage was unset\n")); NEXT_INST_F(9, 1, 0); } - if (Tcl_DictObjSize(interp, dictPtr, &length) != TCL_OK + if (TclDictObjSize_(interp, dictPtr, &length) != TCL_OK || TclListObjGetElements_(interp, OBJ_AT_TOS, &length, &keyPtrPtr) != TCL_OK) { TRACE_ERROR(interp); |