diff options
| author | davygrvy <davygrvy@pobox.com> | 2003-10-14 22:41:42 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@pobox.com> | 2003-10-14 22:41:42 (GMT) |
| commit | e18615b1888dbd8278403746478b974e5fcc1d2d (patch) | |
| tree | 7e57f76e337a6db751b5c46804ec0283d61e15e8 /win | |
| parent | 0281176be42fbf8cd519c17208041ba5fcf8b193 (diff) | |
| download | tcl-e18615b1888dbd8278403746478b974e5fcc1d2d.zip tcl-e18615b1888dbd8278403746478b974e5fcc1d2d.tar.gz tcl-e18615b1888dbd8278403746478b974e5fcc1d2d.tar.bz2 | |
Punt gracefully if exitToken was already destroyed.
Diffstat (limited to 'win')
| -rw-r--r-- | win/tclAppInit.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/win/tclAppInit.c b/win/tclAppInit.c index bed9ea8..cc2c1de 100644 --- a/win/tclAppInit.c +++ b/win/tclAppInit.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclAppInit.c,v 1.11.2.1 2003/05/10 05:00:11 mistachkin Exp $ + * RCS: @(#) $Id: tclAppInit.c,v 1.11.2.2 2003/10/14 22:41:42 davygrvy Exp $ */ #include "tcl.h" @@ -426,6 +426,12 @@ BOOL __stdcall sigHandler(DWORD fdwCtrlType) { HANDLE hStdIn; + + if (!exitToken) { + /* Async token must have been destroyed, punt gracefully. */ + return FALSE; + } + /* * If Tcl is currently executing some bytecode or in the eventloop, * this will cause Tcl to enter asyncExit at the next command |