diff options
author | davygrvy <davygrvy@noemail.net> | 2003-10-14 22:48:05 (GMT) |
---|---|---|
committer | davygrvy <davygrvy@noemail.net> | 2003-10-14 22:48:05 (GMT) |
commit | 0544ca0e0119cb652fbd637e9a9dd6dc927f508c (patch) | |
tree | d49aa78fb6ae1abe1d91dd7afe2d3a6b1ff6fd23 /win | |
parent | 59f97f38bf075708c69ad070e677d5d6e407d97e (diff) | |
download | tcl-0544ca0e0119cb652fbd637e9a9dd6dc927f508c.zip tcl-0544ca0e0119cb652fbd637e9a9dd6dc927f508c.tar.gz tcl-0544ca0e0119cb652fbd637e9a9dd6dc927f508c.tar.bz2 |
Punt gracefully if exitToken was already destroyed.
FossilOrigin-Name: 4d998653237b784fec9152b719cd4fcc862350c2
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 16d488b..fd3a5d1 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.14 2003/10/09 00:29:27 patthoyts Exp $ + * RCS: @(#) $Id: tclAppInit.c,v 1.15 2003/10/14 22:48:06 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 |