diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-29 07:12:31 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-29 07:12:31 (GMT) |
| commit | c6baba2820a77c8d0a29b6750afa85f8c6170027 (patch) | |
| tree | 26c40d1f2b714499ca2f9090f0032d1bdcc0f015 /generic/tclTest.c | |
| parent | fce92a7c17bf609bb5131a3687fb6d0cc88a766d (diff) | |
| download | tcl-c6baba2820a77c8d0a29b6750afa85f8c6170027.zip tcl-c6baba2820a77c8d0a29b6750afa85f8c6170027.tar.gz tcl-c6baba2820a77c8d0a29b6750afa85f8c6170027.tar.bz2 | |
Missing TCL_NORETURN for Tcl_ExitThread() (and TclpThreadExit()). Backported from 8.7/9.0.
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 1f35fd7..88e5eea 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -819,7 +819,7 @@ TestasyncCmd( if (Tcl_GetInt(interp, argv[2], &id) != TCL_OK) { return TCL_ERROR; } - Tcl_MutexLock(&asyncTestMutex); + Tcl_MutexLock(&asyncTestMutex); for (asyncPtr = firstHandler; asyncPtr != NULL; asyncPtr = asyncPtr->nextPtr) { if (asyncPtr->id == id) { @@ -834,7 +834,7 @@ TestasyncCmd( break; } } - Tcl_MutexUnlock(&asyncTestMutex); + Tcl_MutexUnlock(&asyncTestMutex); } else { Tcl_AppendResult(interp, "bad option \"", argv[1], "\": must be create, delete, int, mark, or marklater", NULL); |