More int -> size_t

1 files changed, 4 insertions, 4 deletions

diff --git a/generic/tclPipe.c b/generic/tclPipe.c
index f8e02ae..1f5e4f1 100644
--- a/generic/tclPipe.c
+++ b/generic/tclPipe.c
@@ -269,16 +269,16 @@ Tcl_ReapDetachedProcs(void)
 int
 TclCleanupChildren(
     Tcl_Interp *interp,		/* Used for error messages. */
-    int numPids,		/* Number of entries in pidPtr array. */
+    size_t numPids,		/* Number of entries in pidPtr array. */
     Tcl_Pid *pidPtr,		/* Array of process ids of children. */
     Tcl_Channel errorChan)	/* Channel for file containing stderr output
 				 * from pipeline. NULL means there isn't any
 				 * stderr output. */
 {
     int result = TCL_OK;
-    int i, abnormalExit, anyErrorInfo;
+    int code, abnormalExit, anyErrorInfo;
     TclProcessWaitStatus waitStatus;
-    int code;
+    size_t i;
     Tcl_Obj *msg, *error;
 
     abnormalExit = 0;
@@ -1028,7 +1028,7 @@ Tcl_OpenCommandChannel(
 {
     TclFile *inPipePtr, *outPipePtr, *errFilePtr;
     TclFile inPipe, outPipe, errFile;
-    int numPids;
+    size_t numPids;
     Tcl_Pid *pidPtr;
     Tcl_Channel channel;