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/tclCompCmdsGR.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/tclCompCmdsGR.c')
| -rw-r--r-- | generic/tclCompCmdsGR.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c index ecd087e..46d39be 100644 --- a/generic/tclCompCmdsGR.c +++ b/generic/tclCompCmdsGR.c @@ -2529,7 +2529,7 @@ TclCompileReturnCmd( } /* Optimize [return -level 0 $x]. */ - Tcl_DictObjSize(NULL, returnOpts, &size); + TclDictObjSize_(NULL, returnOpts, &size); if (size == 0 && level == 0 && code == TCL_OK) { Tcl_DecrRefCount(returnOpts); return TCL_OK; |