diff options
| author | davygrvy <davygrvy@pobox.com> | 2003-09-28 10:29:52 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@pobox.com> | 2003-09-28 10:29:52 (GMT) |
| commit | b8a0cfd4829cfb7c33064dbc04719a12cd67bc69 (patch) | |
| tree | a44798bffcede0454fec2a6b9185e96cb03c0830 /win | |
| parent | 20105d8fee7ad158025085192b3a3b57340b9135 (diff) | |
| download | tcl-b8a0cfd4829cfb7c33064dbc04719a12cd67bc69.zip tcl-b8a0cfd4829cfb7c33064dbc04719a12cd67bc69.tar.gz tcl-b8a0cfd4829cfb7c33064dbc04719a12cd67bc69.tar.bz2 | |
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 875995e..1fc5fa1 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.33.2.2 2003/07/16 19:34:14 mdejong Exp $ + * RCS: @(#) $Id: tclWinPipe.c,v 1.33.2.3 2003/09/28 10:29:52 davygrvy Exp $ */ #include "tclWinInt.h" @@ -2629,6 +2629,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); |