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: |
f1c99ff14c9cc44fd1463497b41edbd5 |
| 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
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);
|