summaryrefslogtreecommitdiffstats
path: root/generic/tclAsync.c
diff options
context:
space:
mode:
authorvasiljevic <zv@archiware.com>2008-04-27 08:18:12 (GMT)
committervasiljevic <zv@archiware.com>2008-04-27 08:18:12 (GMT)
commit2c434a3c74e8b808e20fc43c4acc5e00cadb2956 (patch)
tree8850af7a395c615ea7716e32a9979dcecdceea38 /generic/tclAsync.c
parent09688bda771697d1e96b4d4643830050b4d28b11 (diff)
downloadtcl-2c434a3c74e8b808e20fc43c4acc5e00cadb2956.zip
tcl-2c434a3c74e8b808e20fc43c4acc5e00cadb2956.tar.gz
tcl-2c434a3c74e8b808e20fc43c4acc5e00cadb2956.tar.bz2
Also, panic early if we find out the wrong thread attempting
to delete the async handler (common trap). As, only the one that created the handler is allowed to delete it.
Diffstat (limited to 'generic/tclAsync.c')
-rw-r--r--generic/tclAsync.c10
1 files changed, 9 insertions, 1 deletions
diff --git a/generic/tclAsync.c b/generic/tclAsync.c
index f036b47..9a78c8f 100644
--- a/generic/tclAsync.c
+++ b/generic/tclAsync.c
@@ -12,7 +12,7 @@
* 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.6.12.2 2008/04/26 11:37:47 vasiljevic Exp $
+ * RCS: @(#) $Id: tclAsync.c,v 1.6.12.3 2008/04/27 08:18:13 vasiljevic Exp $
*/
#include "tclInt.h"
@@ -294,6 +294,14 @@ Tcl_AsyncDelete(async)
AsyncHandler *prevPtr, *thisPtr;
/*
+ * Assure early handling of the constraint
+ */
+
+ if (asyncPtr->originThrdId != Tcl_GetCurrentThread()) {
+ panic("Tcl_AsyncDelete: async handler deleted by the wrong thread");
+ }
+
+ /*
* If we come to this point when TSD's for the current
* thread have already been garbage-collected, we are
* in the _serious_ trouble. OTOH, we tolerate calling