Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Memleak fix from Brad Lanam. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | tip-421 |
| Files: | files | file ages | folders |
| SHA3-256: |
d5fefc5a1d99cd1625fed9bc4e57c650 |
| User & Date: | dgp 2018-04-16 14:15:22 |
Context
|
2018-04-17
| ||
| 03:48 | Test of shimmer segfault. check-in: d7d48d477c user: dgp tags: tip-421 | |
|
2018-04-16
| ||
| 14:15 | Memleak fix from Brad Lanam. check-in: d5fefc5a1d user: dgp tags: tip-421 | |
|
2018-04-11
| ||
| 12:45 | merge 8.7 check-in: 43e01830a9 user: dgp tags: tip-421 | |
Changes
Changes to generic/tclVar.c.
3093
3094
3095
3096
3097
3098
3099
3100
3101
3102
3103
3104
3105
3106
....
3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
3368
3369
3370
|
searchPtr->id = ((ArraySearch *) Tcl_GetHashValue(hPtr))->id + 1;
searchPtr->nextPtr = Tcl_GetHashValue(hPtr);
}
searchPtr->nextEntry = VarHashFirstEntry(varPtr->value.tablePtr,
&searchPtr->search);
Tcl_SetHashValue(hPtr, searchPtr);
searchPtr->name = Tcl_ObjPrintf("s-%d-%s", searchPtr->id, TclGetString(arrayNameObj));
}
int
ArrayObjNext(
Tcl_Interp *interp,
Var *varPtr, /* array */
ArraySearch *searchPtr,
................................................................................
arrayfordone:
/* if the search was terminated by an array change, the
* VAR_SEARCH_ACTIVE flag will no longer be set
*/
if (done != TCL_ERROR) {
ArrayDoneSearch (iPtr, varPtr, searchPtr);
ckfree(searchPtr);
}
TclDecrRefCount(keyVarObj);
TclDecrRefCount(valueVarObj);
TclDecrRefCount(scriptObj);
return result;
|
>
>
|
3093
3094
3095
3096
3097
3098
3099
3100
3101
3102
3103
3104
3105
3106
3107
....
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
3368
3369
3370
3371
3372
|
searchPtr->id = ((ArraySearch *) Tcl_GetHashValue(hPtr))->id + 1;
searchPtr->nextPtr = Tcl_GetHashValue(hPtr);
}
searchPtr->nextEntry = VarHashFirstEntry(varPtr->value.tablePtr,
&searchPtr->search);
Tcl_SetHashValue(hPtr, searchPtr);
searchPtr->name = Tcl_ObjPrintf("s-%d-%s", searchPtr->id, TclGetString(arrayNameObj));
Tcl_IncrRefCount(searchPtr->name);
}
int
ArrayObjNext(
Tcl_Interp *interp,
Var *varPtr, /* array */
ArraySearch *searchPtr,
................................................................................
arrayfordone:
/* if the search was terminated by an array change, the
* VAR_SEARCH_ACTIVE flag will no longer be set
*/
if (done != TCL_ERROR) {
ArrayDoneSearch (iPtr, varPtr, searchPtr);
Tcl_DecrRefCount(searchPtr->name);
ckfree(searchPtr);
}
TclDecrRefCount(keyVarObj);
TclDecrRefCount(valueVarObj);
TclDecrRefCount(scriptObj);
return result;
|