Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | merge 8.7 |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
d66ef00ecbbb810064e5e0abe7032ff2 |
| User & Date: | sebres 2019-06-24 10:17:20.885 |
Context
|
2019-06-24
| ||
| 10:31 | amend to [f3d49044c4e658a7]: resolve warnings (signed/unsigned comparisons, if compiled with MSVC) check-in: 05976f03c4 user: sebres tags: trunk | |
| 10:17 | merge 8.7 check-in: d66ef00ecb user: sebres tags: trunk | |
| 08:56 | merge 8.6 check-in: 2e6718f988 user: sebres tags: core-8-branch | |
| 07:35 | Merge 8.7. Also eliminate some spacing before line-endings check-in: 519bf88d4c user: jan.nijtmans tags: trunk | |
Changes
Changes to generic/tclEvent.c.
| ︙ | ︙ | |||
931 932 933 934 935 936 937 938 |
* for normal return, 1 for error return. */
{
TCL_NORETURN1 Tcl_ExitProc *currentAppExitPtr;
Tcl_MutexLock(&exitMutex);
currentAppExitPtr = appExitPtr;
Tcl_MutexUnlock(&exitMutex);
| < | | | | > > > | > > | | | 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 |
* for normal return, 1 for error return. */
{
TCL_NORETURN1 Tcl_ExitProc *currentAppExitPtr;
Tcl_MutexLock(&exitMutex);
currentAppExitPtr = appExitPtr;
Tcl_MutexUnlock(&exitMutex);
/*
* Warning: this function SHOULD NOT return, as there is code that depends
* on Tcl_Exit never returning. In fact, we will Tcl_Panic if anyone
* returns, so critical is this dependcy.
*
* If subsystems are not (yet) initialized, proper Tcl-finalization is
* impossible, so fallback to system exit, see bug-[f8a33ce3db5d8cc2].
*/
if (currentAppExitPtr) {
currentAppExitPtr(INT2PTR(status));
} else if (subsystemsInitialized) {
if (TclFullFinalizationRequested()) {
/*
* Thorough finalization for Valgrind et al.
*/
|
| ︙ | ︙ | |||
974 975 976 977 978 979 980 | * Now finalize the calling thread only (others are not safely * reachable). Among other things, this triggers a flush of the * Tcl_Channels that may have data enqueued. */ FinalizeThread(/* quick */ 1); } | > > | | < | 978 979 980 981 982 983 984 985 986 987 988 989 990 991 992 993 994 995 |
* Now finalize the calling thread only (others are not safely
* reachable). Among other things, this triggers a flush of the
* Tcl_Channels that may have data enqueued.
*/
FinalizeThread(/* quick */ 1);
}
}
TclpExit(status);
Tcl_Panic("OS exit failed!");
}
/*
*-------------------------------------------------------------------------
*
* TclInitSubsystems --
*
|
| ︙ | ︙ |