summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2012-11-14 22:05:21 (GMT)
committerdgp <dgp@users.sourceforge.net>2012-11-14 22:05:21 (GMT)
commit4f9ab2e796b124537cd51c652cb039eccfddda34 (patch)
treec34d02b9502064ec6d98fb29b4d98af53cc8de49 /generic
parent7cde555d819ee12a349287737872af0bb89f3902 (diff)
downloadtcl-4f9ab2e796b124537cd51c652cb039eccfddda34.zip
tcl-4f9ab2e796b124537cd51c652cb039eccfddda34.tar.gz
tcl-4f9ab2e796b124537cd51c652cb039eccfddda34.tar.bz2
3587242 Missing Tcl_MutexUnlock() call made [testasync create] block.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclTest.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c
index 998416c..e3fe579 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -811,6 +811,7 @@ TestasyncCmd(dummy, interp, argc, argv)
asyncPtr->nextPtr = firstHandler;
firstHandler = asyncPtr;
TclFormatInt(buf, asyncPtr->id);
+ Tcl_MutexUnlock(&asyncTestMutex);
Tcl_SetResult(interp, buf, TCL_VOLATILE);
} else if (strcmp(argv[1], "delete") == 0) {
if (argc == 2) {