summaryrefslogtreecommitdiffstats
path: root/win
diff options
context:
space:
mode:
authordavygrvy <davygrvy@pobox.com>2003-09-28 10:36:00 (GMT)
committerdavygrvy <davygrvy@pobox.com>2003-09-28 10:36:00 (GMT)
commit13922b39ca6112dbfb903160f939f759005b6dc4 (patch)
tree6c2029909d5f24ddb1ef49305644091225f38013 /win
parent8a7dc74a3e81f44db57654d66af446537fb907e8 (diff)
downloadtcl-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.c5
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);