diff options
| author | davygrvy <davygrvy@pobox.com> | 2003-09-28 10:36:00 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@pobox.com> | 2003-09-28 10:36:00 (GMT) |
| commit | 13922b39ca6112dbfb903160f939f759005b6dc4 (patch) | |
| tree | 6c2029909d5f24ddb1ef49305644091225f38013 /win | |
| parent | 8a7dc74a3e81f44db57654d66af446537fb907e8 (diff) | |
| download | tcl-13922b39ca6112dbfb903160f939f759005b6dc4.zip tcl-13922b39ca6112dbfb903160f939f759005b6dc4.tar.gz tcl-13922b39ca6112dbfb903160f939f759005b6dc4.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.
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); |