diff options
| author | davygrvy <davygrvy@pobox.com> | 2003-10-14 22:48:06 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@pobox.com> | 2003-10-14 22:48:06 (GMT) |
| commit | be4aa34b984d61d0af0f5cc5c2fa8e1e47109702 (patch) | |
| tree | d49aa78fb6ae1abe1d91dd7afe2d3a6b1ff6fd23 | |
| parent | fbdf93c7ad4ff51cee956313a0f90ab40eebfbed (diff) | |
| download | tcl-be4aa34b984d61d0af0f5cc5c2fa8e1e47109702.zip tcl-be4aa34b984d61d0af0f5cc5c2fa8e1e47109702.tar.gz tcl-be4aa34b984d61d0af0f5cc5c2fa8e1e47109702.tar.bz2 | |
Punt gracefully if exitToken was already destroyed.
| -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 |