diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-17 14:51:36 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-17 14:51:36 (GMT) |
| commit | 4413b6647623799f5d461837b869bf0fb12496be (patch) | |
| tree | 0d6db55af127f18517155aed5b57900cd3e05ed3 /generic/tclPipe.c | |
| parent | 932dcd87c0d852730af5a5ebcabedab58acedc19 (diff) | |
| parent | bf552f0a4d5c314940d025c46551b4e5062c59ac (diff) | |
| download | tcl-4413b6647623799f5d461837b869bf0fb12496be.zip tcl-4413b6647623799f5d461837b869bf0fb12496be.tar.gz tcl-4413b6647623799f5d461837b869bf0fb12496be.tar.bz2 | |
Merge 9.0
Diffstat (limited to 'generic/tclPipe.c')
| -rw-r--r-- | generic/tclPipe.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/generic/tclPipe.c b/generic/tclPipe.c index 3313c7a..aac031b 100644 --- a/generic/tclPipe.c +++ b/generic/tclPipe.c @@ -378,7 +378,7 @@ TclCleanupChildren( * * Results: * The return value is a count of the number of new processes created, or - * -1 if an error occurred while creating the pipeline. *pidArrayPtr is + * TCL_INDEX_NONE if an error occurred while creating the pipeline. *pidArrayPtr is * filled in with the address of a dynamically allocated array giving the * ids of all of the processes. It is up to the caller to free this array * when it isn't needed anymore. If inPipePtr is non-NULL, *inPipePtr is @@ -395,10 +395,10 @@ TclCleanupChildren( *---------------------------------------------------------------------- */ -int +size_t TclCreatePipeline( Tcl_Interp *interp, /* Interpreter to use for error reporting. */ - size_t argc1, /* Number of entries in argv. */ + size_t argc, /* Number of entries in argv. */ const char **argv, /* Array of strings describing commands in * pipeline plus I/O redirection with <, <<, * >, etc. Argv[argc] must be NULL. */ @@ -431,7 +431,7 @@ TclCreatePipeline( { Tcl_Pid *pidPtr = NULL; /* Points to malloc-ed array holding all the * pids of child processes. */ - int numPids; /* Actual number of processes that exist at + size_t numPids; /* Actual number of processes that exist at * *pidPtr right now. */ int cmdCount; /* Count of number of distinct commands found * in argc/argv. */ @@ -460,12 +460,12 @@ TclCreatePipeline( int errorRelease = 0; const char *p; const char *nextArg; - int skip, lastBar, lastArg, i, j, atOK, flags, needCmd, errorToOutput = 0; + int skip, atOK, flags, needCmd, errorToOutput = 0; + size_t i, j, lastArg, lastBar; Tcl_DString execBuffer; TclFile pipeIn; TclFile curInFile, curOutFile, curErrFile; Tcl_Channel channel; - int argc = argc1; if (inPipePtr != NULL) { *inPipePtr = NULL; @@ -497,7 +497,7 @@ TclCreatePipeline( * list. */ - lastBar = -1; + lastBar = TCL_INDEX_NONE; cmdCount = 1; needCmd = 1; for (i = 0; i < argc; i++) { |