summaryrefslogtreecommitdiffstats
path: root/win/tclWinInit.c
diff options
context:
space:
mode:
authordavidg <davidg>2000-07-26 01:27:58 (GMT)
committerdavidg <davidg>2000-07-26 01:27:58 (GMT)
commit54614f84cbcd150e2663bd4d30fe843b5e6da767 (patch)
treedf224a87545478306c61d73e40a95f21fe90aabd /win/tclWinInit.c
parenta15fd6c8ed2f01dae4d51a729504f80bf9ccc80a (diff)
downloadtcl-54614f84cbcd150e2663bd4d30fe843b5e6da767.zip
tcl-54614f84cbcd150e2663bd4d30fe843b5e6da767.tar.gz
tcl-54614f84cbcd150e2663bd4d30fe843b5e6da767.tar.bz2
Thread-safe rewrite for the Tcl_Async* commands.
Diffstat (limited to 'win/tclWinInit.c')
-rw-r--r--win/tclWinInit.c46
1 files changed, 1 insertions, 45 deletions
diff --git a/win/tclWinInit.c b/win/tclWinInit.c
index 7576763..1f6d76f 100644
--- a/win/tclWinInit.c
+++ b/win/tclWinInit.c
@@ -7,7 +7,7 @@
* Copyright (c) 1998-1999 by Scriptics Corporation.
* All rights reserved.
*
- * RCS: @(#) $Id: tclWinInit.c,v 1.23 2000/06/13 20:30:23 ericm Exp $
+ * RCS: @(#) $Id: tclWinInit.c,v 1.24 2000/07/26 01:27:58 davidg Exp $
*/
#include "tclWinInt.h"
@@ -73,12 +73,6 @@ static char* processors[NUMPROCESSORS] = {
};
/*
- * Thread id used for asynchronous notification from signal handlers.
- */
-
-static DWORD mainThreadId;
-
-/*
* The Init script (common to Windows and Unix platforms) is
* defined in tkInitScript.h
*/
@@ -128,16 +122,6 @@ TclpInitPlatform()
SetErrorMode(SetErrorMode(0) | SEM_FAILCRITICALERRORS);
- /*
- * Save the id of the first thread to intialize the Tcl library. This
- * thread will be used to handle notifications from async event
- * procedures. This is not strictly correct. A better solution involves
- * using a designated "main" notifier that is kept up to date as threads
- * come and go.
- */
-
- mainThreadId = GetCurrentThreadId();
-
#ifdef STATIC_BUILD
/*
* If we are in a statically linked executable, then we need to
@@ -814,31 +798,3 @@ Tcl_SourceRCFile(interp)
Tcl_DStringFree(&temp);
}
}
-
-/*
- *----------------------------------------------------------------------
- *
- * TclpAsyncMark --
- *
- * Wake up the main thread from a signal handler.
- *
- * Results:
- * None.
- *
- * Side effects:
- * Sends a message to the main thread.
- *
- *----------------------------------------------------------------------
- */
-
-void
-TclpAsyncMark(async)
- Tcl_AsyncHandler async; /* Token for handler. */
-{
- /*
- * Need a way to kick the Windows event loop and tell it to go look at
- * asynchronous events.
- */
-
- PostThreadMessage(mainThreadId, WM_USER, 0, 0);
-}