diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-11-14 22:05:21 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-11-14 22:05:21 (GMT) |
| commit | 4f9ab2e796b124537cd51c652cb039eccfddda34 (patch) | |
| tree | c34d02b9502064ec6d98fb29b4d98af53cc8de49 | |
| parent | 7cde555d819ee12a349287737872af0bb89f3902 (diff) | |
| download | tcl-4f9ab2e796b124537cd51c652cb039eccfddda34.zip tcl-4f9ab2e796b124537cd51c652cb039eccfddda34.tar.gz tcl-4f9ab2e796b124537cd51c652cb039eccfddda34.tar.bz2 | |
3587242 Missing Tcl_MutexUnlock() call made [testasync create] block.
| -rw-r--r-- | generic/tclTest.c | 1 |
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) { |