diff options
author | kennykb <kennykb@noemail.net> | 2005-06-22 19:35:10 (GMT) |
---|---|---|
committer | kennykb <kennykb@noemail.net> | 2005-06-22 19:35:10 (GMT) |
commit | 841a642ec9c2ee2292c399fb97dee95282ad343f (patch) | |
tree | ac752dcd448c2800fec0ea4fc60c787b9998a0c5 /win/tclWinPipe.c | |
parent | e3c578233e480276f6bf3d7b75bbe8566744aec3 (diff) | |
download | tcl-841a642ec9c2ee2292c399fb97dee95282ad343f.zip tcl-841a642ec9c2ee2292c399fb97dee95282ad343f.tar.gz tcl-841a642ec9c2ee2292c399fb97dee95282ad343f.tar.bz2 |
bug 1225727
FossilOrigin-Name: ab109e436a7376efb8cf03e6044c9228f5cdbbe3
Diffstat (limited to 'win/tclWinPipe.c')
-rw-r--r-- | win/tclWinPipe.c | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/win/tclWinPipe.c b/win/tclWinPipe.c index 8dfc2ad..de56e33 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.11 2005/06/21 19:07:58 kennykb Exp $ + * RCS: @(#) $Id: tclWinPipe.c,v 1.33.2.12 2005/06/22 19:36:35 kennykb Exp $ */ #include "tclWinInt.h" @@ -201,7 +201,6 @@ static DWORD WINAPI PipeReaderThread(LPVOID arg); static void PipeSetupProc(ClientData clientData, int flags); static void PipeWatchProc(ClientData instanceData, int mask); static DWORD WINAPI PipeWriterThread(LPVOID arg); -static void ProcExitHandler(ClientData clientData); static int TempFileName(WCHAR name[MAX_PATH]); static int WaitForRead(PipeInfo *infoPtr, int blocking); @@ -263,7 +262,6 @@ PipeInit() if (!initialized) { initialized = 1; procList = NULL; - Tcl_CreateExitHandler(ProcExitHandler, NULL); } Tcl_MutexUnlock(&pipeMutex); } @@ -304,7 +302,7 @@ PipeExitHandler( /* *---------------------------------------------------------------------- * - * ProcExitHandler -- + * TclpFinalizePipes -- * * This function is called to cleanup the process list before * Tcl is unloaded. @@ -318,9 +316,8 @@ PipeExitHandler( *---------------------------------------------------------------------- */ -static void -ProcExitHandler( - ClientData clientData) /* Old window proc */ +void +TclpFinalizePipes() { Tcl_MutexLock(&pipeMutex); initialized = 0; |