Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | [19a8c9399d] Plug mem leak in TIP 459 machinery. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
f1c99ff14c9cc44fd1463497b41edbd5 |
User & Date: | dgp 2017-05-23 16:00:29.821 |
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
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); |
︙ | ︙ |