summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordavygrvy <davygrvy@pobox.com>2003-09-28 10:29:52 (GMT)
committerdavygrvy <davygrvy@pobox.com>2003-09-28 10:29:52 (GMT)
commitb8a0cfd4829cfb7c33064dbc04719a12cd67bc69 (patch)
treea44798bffcede0454fec2a6b9185e96cb03c0830
parent20105d8fee7ad158025085192b3a3b57340b9135 (diff)
downloadtcl-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.
-rw-r--r--win/tclWinPipe.c5
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);