diff options
| author | stanton <stanton> | 1999-03-11 00:19:23 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-03-11 00:19:23 (GMT) |
| commit | 959ef2397770f8b6b7319b28c4cee7ef60ba6ac4 (patch) | |
| tree | 5395cacc9a5253542d062dfcb57426a2721a541b /generic/tclAsync.c | |
| parent | 17d56fd5b956aa638c25faaac51a8856ee8f51d7 (diff) | |
| download | tcl-959ef2397770f8b6b7319b28c4cee7ef60ba6ac4.zip tcl-959ef2397770f8b6b7319b28c4cee7ef60ba6ac4.tar.gz tcl-959ef2397770f8b6b7319b28c4cee7ef60ba6ac4.tar.bz2 | |
* win/tclWinPipe.c:
* generic/tclInt.decls: Added TclWinAddProcess to make it possible
for expect to use Tcl_WaitForPid(). This patch is from Gordon
Chaffee.
* mac/tclMacPort.h:
* win/tclWinInit.c:
* unix/tclUnixPort.h:
* generic/tclAsync.c: Added TclpAsyncMark to fix bug in async
handling on Windows where async events don't wake up the event
loop. This patch comes from Gordon Chaffee.
* generic/tcl.decls: Fixed declarations of reserved slots.
Diffstat (limited to 'generic/tclAsync.c')
| -rw-r--r-- | generic/tclAsync.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclAsync.c b/generic/tclAsync.c index 67ccdbc..18af186 100644 --- a/generic/tclAsync.c +++ b/generic/tclAsync.c @@ -12,10 +12,11 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclAsync.c,v 1.2 1998/09/14 18:39:57 stanton Exp $ + * RCS: @(#) $Id: tclAsync.c,v 1.3 1999/03/11 00:19:23 stanton Exp $ */ #include "tclInt.h" +#include "tclPort.h" /* * One of the following structures exists for each asynchronous @@ -125,6 +126,7 @@ Tcl_AsyncMark(async) { ((AsyncHandler *) async)->ready = 1; if (!asyncActive) { + TclpAsyncMark(async); asyncReady = 1; } } |