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/tclProcess.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/tclProcess.c')
| -rw-r--r-- | generic/tclProcess.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclProcess.c b/generic/tclProcess.c index 49b4068..31a17fa 100644 --- a/generic/tclProcess.c +++ b/generic/tclProcess.c @@ -533,7 +533,7 @@ ProcessStatusObjCmd( * Only return statuses of provided processes. */ - result = Tcl_ListObjGetElements(interp, objv[1], &numPids, &pidObjs); + result = TclListObjGetElements_(interp, objv[1], &numPids, &pidObjs); if (result != TCL_OK) { return result; } @@ -648,7 +648,7 @@ ProcessPurgeObjCmd( * Purge only provided processes. */ - result = Tcl_ListObjGetElements(interp, objv[1], &numPids, &pidObjs); + result = TclListObjGetElements_(interp, objv[1], &numPids, &pidObjs); if (result != TCL_OK) { return result; } |