BRL-CAD/tcl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

More efficient memory handling inside ensembles

Browse Source
This commit is contained in:
dkf
2026-09-07 14:00:05 +00:00
parent 4614eaeb6c
commit 166190ee63
1 changed files with 6 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
generic/tclEnsemble.c
+6 -9
View File
@@ -2150,14 +2150,10 @@ TclResetRewriteEnsemble(
static int
FreeER(
void *data[],
TCL_UNUSED(Tcl_Interp *),
Tcl_Interp *interp,
int result)
{
Tcl_Obj **tmp = (Tcl_Obj **) data[0];
Tcl_Obj **store = (Tcl_Obj **) data[1];
Tcl_Free(store);
Tcl_Free(tmp);
TclStackFree(interp, data[0]);
return result;
}
@@ -2231,10 +2227,11 @@ TclSpellFix(
search = iPtr->ensembleRewrite.sourceObjs;
if (search[0] == NULL) {
store = (Tcl_Obj **) search[2];
} else {
Tcl_Obj **tmp = (Tcl_Obj **) Tcl_Alloc(3 * sizeof(Tcl_Obj *));
} else {
Tcl_Obj **tmp = (Tcl_Obj **)
TclStackAlloc(interp, (3 + size) * sizeof(Tcl_Obj *));
store = (Tcl_Obj **) Tcl_Alloc(size * sizeof(Tcl_Obj *));
store = tmp + 3;
memcpy(store, iPtr->ensembleRewrite.sourceObjs,
size * sizeof(Tcl_Obj *));