From e18615b1888dbd8278403746478b974e5fcc1d2d Mon Sep 17 00:00:00 2001 From: davygrvy Date: Tue, 14 Oct 2003 22:41:42 +0000 Subject: Punt gracefully if exitToken was already destroyed. --- win/tclAppInit.c | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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 -- cgit v0.12