diff options
author | davygrvy <davygrvy@noemail.net> | 2003-09-28 10:36:00 (GMT) |
---|---|---|
committer | davygrvy <davygrvy@noemail.net> | 2003-09-28 10:36:00 (GMT) |
commit | f7dea12476194d94480a579a47117199abcdf220 (patch) | |
tree | 6c2029909d5f24ddb1ef49305644091225f38013 /win | |
parent | 06a0836a4b47fd5c07264ad5161d3bb2352a1aa6 (diff) | |
download | tcl-f7dea12476194d94480a579a47117199abcdf220.zip tcl-f7dea12476194d94480a579a47117199abcdf220.tar.gz tcl-f7dea12476194d94480a579a47117199abcdf220.tar.bz2 |
* win/tclWinPipe.c: The windows port of expect can call
TclWinAddProcess before any of the other pipe functions.
Added a missing PipeInit() call to make sure the
initialization happens.
FossilOrigin-Name: 1ff27fbb7365954d2c48c41b819744d98d41dde0
Diffstat (limited to 'win')
-rw-r--r-- | win/tclWinPipe.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/win/tclWinPipe.c b/win/tclWinPipe.c index 90f4ae1..1348ea9 100644 --- a/win/tclWinPipe.c +++ b/win/tclWinPipe.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinPipe.c,v 1.36 2003/08/15 01:40:59 chengyemao Exp $ + * RCS: @(#) $Id: tclWinPipe.c,v 1.37 2003/09/28 10:36:00 davygrvy Exp $ */ #include "tclWinInt.h" @@ -2630,6 +2630,9 @@ TclWinAddProcess(hProcess, id) DWORD id; /* Global process identifier */ { ProcInfo *procPtr = (ProcInfo *) ckalloc(sizeof(ProcInfo)); + + PipeInit(); + procPtr->hProcess = hProcess; procPtr->dwProcessId = id; Tcl_MutexLock(&pipeMutex); |