diff options
author | griffin <briang42@easystreet.net> | 2023-05-25 04:38:32 (GMT) |
---|---|---|
committer | griffin <briang42@easystreet.net> | 2023-05-25 04:38:32 (GMT) |
commit | 09bc3f703368aba6ab9349cb6df1f217b49d6241 (patch) | |
tree | 737025e6968640dc94cfa4eaf539279b0ccec6e3 /generic/tclArithSeries.c | |
parent | ba261e8e87cd9fb904172ca5a43fadb8f163666a (diff) | |
download | tcl-09bc3f703368aba6ab9349cb6df1f217b49d6241.zip tcl-09bc3f703368aba6ab9349cb6df1f217b49d6241.tar.gz tcl-09bc3f703368aba6ab9349cb6df1f217b49d6241.tar.bz2 |
Remove old cruft.
Diffstat (limited to 'generic/tclArithSeries.c')
-rwxr-xr-x | generic/tclArithSeries.c | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/generic/tclArithSeries.c b/generic/tclArithSeries.c index 3f980c4..c4c65a3 100755 --- a/generic/tclArithSeries.c +++ b/generic/tclArithSeries.c @@ -288,17 +288,18 @@ DupArithSeriesInternalRep( static void FreeArithSeriesInternalRep(Tcl_Obj *arithSeriesObjPtr) /* Free any allocated memory */ { - ArithSeries *arithSeriesObj = (ArithSeries*)Tcl_ObjGetConcreteRep(arithSeriesObjPtr); - if (arithSeriesObj) { - if (arithSeriesObj->elements) { - Tcl_WideInt i, len = arithSeriesObj->len; + ArithSeries *arithSeriesRepPtr = (ArithSeries*)arithSeriesObjPtr->internalRep.twoPtrValue.ptr1; + + if (arithSeriesRepPtr) { + if (arithSeriesRepPtr->elements) { + Tcl_WideInt i, len = arithSeriesRepPtr->len; for (i=0; i<len; i++) { - Tcl_DecrRefCount(arithSeriesObj->elements[i]); + Tcl_DecrRefCount(arithSeriesRepPtr->elements[i]); } - Tcl_Free((char*)arithSeriesObj->elements); - arithSeriesObj->elements = NULL; + Tcl_Free((char*)arithSeriesRepPtr->elements); + arithSeriesRepPtr->elements = NULL; } - Tcl_Free((char*)arithSeriesObj); + Tcl_Free((char*)arithSeriesRepPtr); } } @@ -1044,7 +1045,7 @@ TclArithSeriesObjReverse( static void UpdateStringOfArithSeries(Tcl_Obj *arithSeriesObjPtr) { - ArithSeries *arithSeriesRepPtr = (ArithSeries*)Tcl_ObjGetConcreteRep(arithSeriesObjPtr); + ArithSeries *arithSeriesRepPtr = (ArithSeries*)arithSeriesObjPtr->internalRep.twoPtrValue.ptr1; char *p; Tcl_Obj *eleObj; Tcl_Size i, bytlen = 0; |