diff options
| author | ferrieux <ferrieux@users.sourceforge.net> | 2011-08-09 17:19:33 (GMT) |
|---|---|---|
| committer | ferrieux <ferrieux@users.sourceforge.net> | 2011-08-09 17:19:33 (GMT) |
| commit | e83ec9b8978e9e4481a549283c64e11f2a1e4a61 (patch) | |
| tree | 82fd16a3ebffc1553c7b6bb3847e036f9fd6cc61 /generic/tclInt.h | |
| parent | 653f52ba6008466571d283d523272ae22c2cf2c4 (diff) | |
| download | tcl-e83ec9b8978e9e4481a549283c64e11f2a1e4a61.zip tcl-e83ec9b8978e9e4481a549283c64e11f2a1e4a61.tar.gz tcl-e83ec9b8978e9e4481a549283c64e11f2a1e4a61.tar.bz2 | |
[Bug 2919042] Restore "valgrindability" of Tcl that was lost by the streamlining of [exit], by conditionally forcing a full Finalize: use -DPURIFY or ::env(TCL_FINALIZE_ON_EXIT)
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 9f00077..d65f712 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -3787,6 +3787,8 @@ MODULE_SCOPE int TclCompareObjKeys(void *keyPtr, Tcl_HashEntry *hPtr); MODULE_SCOPE void TclFreeObjEntry(Tcl_HashEntry *hPtr); MODULE_SCOPE unsigned TclHashObjKey(Tcl_HashTable *tablePtr, void *keyPtr); +MODULE_SCOPE int TclFullFinalizationRequested(void); + /* *---------------------------------------------------------------- * Macros used by the Tcl core to create and release Tcl objects. |