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 | 920dfb2f564e7ade8433ac04bc9e2b0262a2e3eb (patch) | |
| tree | c34d02b9502064ec6d98fb29b4d98af53cc8de49 | |
| parent | 0aeb86cee1b2667070a8ba2c75fa894cd2595ca0 (diff) | |
| download | tcl-920dfb2f564e7ade8433ac04bc9e2b0262a2e3eb.zip tcl-920dfb2f564e7ade8433ac04bc9e2b0262a2e3eb.tar.gz tcl-920dfb2f564e7ade8433ac04bc9e2b0262a2e3eb.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) { |