diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-01 13:36:46 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-01 13:36:46 (GMT) |
| commit | bbfcd52f865c1fe426d2a3b54b3d79ed39606af1 (patch) | |
| tree | cfc02cf61fc3528110aeb751f04ef536ebcdc4e6 /generic/tclProcess.c | |
| parent | d0fec7532c33f0b3da8057e2e0fda10524f22905 (diff) | |
| parent | 6dc1f8021ed597b13289a02c41c2e9660525a81a (diff) | |
| download | tcl-bbfcd52f865c1fe426d2a3b54b3d79ed39606af1.zip tcl-bbfcd52f865c1fe426d2a3b54b3d79ed39606af1.tar.gz tcl-bbfcd52f865c1fe426d2a3b54b3d79ed39606af1.tar.bz2 | |
Rebase to Tcl 9.0
Diffstat (limited to 'generic/tclProcess.c')
| -rw-r--r-- | generic/tclProcess.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclProcess.c b/generic/tclProcess.c index c7139aa..a76ede5 100644 --- a/generic/tclProcess.c +++ b/generic/tclProcess.c @@ -459,7 +459,7 @@ ProcessStatusObjCmd( Tcl_Obj *const objv[]) /* Argument objects. */ { Tcl_Obj *dict; - int index, options = WNOHANG; + int options = WNOHANG; Tcl_HashEntry *entry; Tcl_HashSearch search; ProcessInfo *info; @@ -474,7 +474,7 @@ ProcessStatusObjCmd( }; enum switchesEnum { STATUS_WAIT, STATUS_LAST - }; + } index; while (objc > 1) { if (TclGetString(objv[1])[0] != '-') { @@ -485,7 +485,7 @@ ProcessStatusObjCmd( return TCL_ERROR; } ++objv; --objc; - if (STATUS_WAIT == (enum switchesEnum) index) { + if (STATUS_WAIT == index) { options = 0; } else { break; |