Tcl Source Code

Check-in [c9835f5515]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:merge trunk
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-6-2-rc
Files: files | file ages | folders
SHA1: c9835f5515c91fbb68c2ade2000787c8eebefda4
User & Date: dgp 2014-07-31 20:00:40
Context
2014-08-01
17:18
merge trunk check-in: 4f6076a7d9 user: dgp tags: core-8-6-2-rc
2014-07-31
20:00
merge trunk check-in: c9835f5515 user: dgp tags: core-8-6-2-rc
19:58
[a84a720966] Protect against double free in TclOO classChainCache teardown. check-in: 61e0390b0a user: dgp tags: trunk
15:49
merge trunk check-in: 9f9f03353d user: dgp tags: core-8-6-2-rc
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclOOCall.c.

146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
 * ----------------------------------------------------------------------
 */

void
TclOODeleteChain(
    CallChain *callPtr)
{
    if (--callPtr->refCount >= 1) {
	return;
    }
    if (callPtr->chain != callPtr->staticChain) {
	ckfree(callPtr->chain);
    }
    ckfree(callPtr);
}







|







146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
 * ----------------------------------------------------------------------
 */

void
TclOODeleteChain(
    CallChain *callPtr)
{
    if (callPtr == NULL || --callPtr->refCount >= 1) {
	return;
    }
    if (callPtr->chain != callPtr->staticChain) {
	ckfree(callPtr->chain);
    }
    ckfree(callPtr);
}