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/tclAssembly.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/tclAssembly.c')
-rw-r--r-- | generic/tclAssembly.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c index 8a95acc..8061f92 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -1983,7 +1983,7 @@ CreateMirrorJumpTable( * table. */ int i; - if (Tcl_ListObjGetElements(interp, jumps, &objc, &objv) != TCL_OK) { + if (TclListObjGetElements_(interp, jumps, &objc, &objv) != TCL_OK) { return TCL_ERROR; } if (objc % 2 != 0) { |