diff options
author | ferrieux <ferrieux@users.sourceforge.net> | 2014-09-02 22:00:03 (GMT) |
---|---|---|
committer | ferrieux <ferrieux@users.sourceforge.net> | 2014-09-02 22:00:03 (GMT) |
commit | a024a5233549ac0d0334b87616ec74a760fe3e82 (patch) | |
tree | 0377e02cab0bb1813d5c4582b90c3e0c6bfd1229 /generic/tclEvent.c | |
parent | 2e4f40528bb5671c3fdb9fb219ad3a971ba0e805 (diff) | |
download | tcl-a024a5233549ac0d0334b87616ec74a760fe3e82.zip tcl-a024a5233549ac0d0334b87616ec74a760fe3e82.tar.gz tcl-a024a5233549ac0d0334b87616ec74a760fe3e82.tar.bz2 |
Refrain from calling TclFinalizeThreadData() in quick-exit case as it is useless (just memory freeing). Superficially fixes [Bug 132fad6f]; that bug is still exerciseable thanks to recent additions to the test suite that exercise full finalization.
Diffstat (limited to 'generic/tclEvent.c')
-rw-r--r-- | generic/tclEvent.c | 24 |
1 files changed, 13 insertions, 11 deletions
diff --git a/generic/tclEvent.c b/generic/tclEvent.c index 941d566..ab219a6 100644 --- a/generic/tclEvent.c +++ b/generic/tclEvent.c @@ -1299,18 +1299,20 @@ Tcl_FinalizeThread(void) TclFinalizeAsync(); TclFinalizeThreadObjects(); } + if (TclFullFinalizationRequested()) { /* useless if we are facing a quick-exit */ - /* - * Blow away all thread local storage blocks. - * - * Note that Tcl API allows creation of threads which do not use any Tcl - * interp or other Tcl subsytems. Those threads might, however, use thread - * local storage, so we must unconditionally finalize it. - * - * Fix [Bug #571002] - */ - - TclFinalizeThreadData(); + /* + * Blow away all thread local storage blocks. + * + * Note that Tcl API allows creation of threads which do not use any Tcl + * interp or other Tcl subsytems. Those threads might, however, use thread + * local storage, so we must unconditionally finalize it. + * + * Fix [Bug #571002] + */ + + TclFinalizeThreadData(); + } } /* |