Tcl Source Code

Check-in [f1c99ff14c]
Login
Bounty program for improvements to Tcl and certain Tcl packages.

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

Overview
Comment:[19a8c9399d] Plug mem leak in TIP 459 machinery.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: f1c99ff14c9cc44fd1463497b41edbd565897695
User & Date: dgp 2017-05-23 16:00:29
Context
2017-05-29
13:14
merge core-8-6-branch check-in: a9965b7335 user: jan.nijtmans tags: trunk
2017-05-27
22:17
Implement proposed 0d decimal radix prefix to compliment 0x,0b,0o. check-in: d492c01a39 user: griffin tags: bsg-0d-radix-prefix
2017-05-23
22:27
merge trunk check-in: 340fa5f4a8 user: mlafon tags: tip-457
16:00
[19a8c9399d] Plug mem leak in TIP 459 machinery. check-in: f1c99ff14c user: dgp tags: trunk
14:48
Update internal tables to Unicode 10.0. Still in Beta, but to be released soon. check-in: 090498e9a8 user: jan.nijtmans tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclPkg.c.

220
221
222
223
224
225
226

227
228
229
230
231
232
233
    entry = Tcl_FirstHashEntry(&pkgFiles->table, &search);
    while (entry) {
	Tcl_Obj *obj = (Tcl_Obj *)Tcl_GetHashValue(entry);
	Tcl_DecrRefCount(obj);
	entry = Tcl_NextHashEntry(&search);
    }
    Tcl_DeleteHashTable(&pkgFiles->table);

    return;
}

void *TclInitPkgFiles(Tcl_Interp *interp)
{
    /* If assocdata "tclPkgFiles" doesn't exist yet, create it */
    PkgFiles *pkgFiles = Tcl_GetAssocData(interp, "tclPkgFiles", NULL);






>







220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
    entry = Tcl_FirstHashEntry(&pkgFiles->table, &search);
    while (entry) {
	Tcl_Obj *obj = (Tcl_Obj *)Tcl_GetHashValue(entry);
	Tcl_DecrRefCount(obj);
	entry = Tcl_NextHashEntry(&search);
    }
    Tcl_DeleteHashTable(&pkgFiles->table);
    ckfree(pkgFiles);
    return;
}

void *TclInitPkgFiles(Tcl_Interp *interp)
{
    /* If assocdata "tclPkgFiles" doesn't exist yet, create it */
    PkgFiles *pkgFiles = Tcl_GetAssocData(interp, "tclPkgFiles", NULL);