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/tclEvent.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/tclEvent.c')
-rw-r--r-- | generic/tclEvent.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclEvent.c b/generic/tclEvent.c index 183b973..aa69b90 100644 --- a/generic/tclEvent.c +++ b/generic/tclEvent.c @@ -219,7 +219,7 @@ HandleBgErrors( errPtr = assocPtr->firstBgPtr; - Tcl_ListObjGetElements(NULL, copyObj, &prefixObjc, &prefixObjv); + TclListObjGetElements_(NULL, copyObj, &prefixObjc, &prefixObjv); tempObjv = (Tcl_Obj**)Tcl_Alloc((prefixObjc+2) * sizeof(Tcl_Obj *)); memcpy(tempObjv, prefixObjv, prefixObjc*sizeof(Tcl_Obj *)); tempObjv[prefixObjc] = errPtr->errorMsg; |