diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-27 15:15:33 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-27 15:15:33 (GMT) |
commit | 1ed443d5c08e7a7cb65c6dabcd959c8b4f3cb51d (patch) | |
tree | b3f7314f8c8d1495d4e2e8901c32536a799cd6ab /generic/tclEvent.c | |
parent | 9afc3ff81d99b4207da8b35d411a83f043b0a4f8 (diff) | |
download | tcl-1ed443d5c08e7a7cb65c6dabcd959c8b4f3cb51d.zip tcl-1ed443d5c08e7a7cb65c6dabcd959c8b4f3cb51d.tar.gz tcl-1ed443d5c08e7a7cb65c6dabcd959c8b4f3cb51d.tar.bz2 |
More progress
Diffstat (limited to 'generic/tclEvent.c')
-rw-r--r-- | generic/tclEvent.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclEvent.c b/generic/tclEvent.c index aa69b90..f3a5b39 100644 --- a/generic/tclEvent.c +++ b/generic/tclEvent.c @@ -207,7 +207,8 @@ HandleBgErrors( Tcl_Preserve(assocPtr); Tcl_Preserve(interp); while (assocPtr->firstBgPtr != NULL) { - int code, prefixObjc; + int code; + size_t prefixObjc; Tcl_Obj **prefixObjv, **tempObjv; /* @@ -219,7 +220,7 @@ HandleBgErrors( errPtr = assocPtr->firstBgPtr; - TclListObjGetElements_(NULL, copyObj, &prefixObjc, &prefixObjv); + Tcl_ListObjGetElements(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; |