diff options
| author | griffin <briang42@easystreet.net> | 2022-10-02 19:03:35 (GMT) |
|---|---|---|
| committer | griffin <briang42@easystreet.net> | 2022-10-02 19:03:35 (GMT) |
| commit | 55cc9137ebf9ef74783958ef450155827c83fbfa (patch) | |
| tree | 030cc31f60bed04f88574ee45106e0ee6cf0cfff /generic/tclExecute.c | |
| parent | f9753a5e4109e31176bc1da885ff5ec23839662b (diff) | |
| parent | 5d3af5f62717c5ddd028c528ff1f89d481b5e63d (diff) | |
| download | tcl-55cc9137ebf9ef74783958ef450155827c83fbfa.zip tcl-55cc9137ebf9ef74783958ef450155827c83fbfa.tar.gz tcl-55cc9137ebf9ef74783958ef450155827c83fbfa.tar.bz2 | |
Fix Obj leaks in ArithSeries.
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 2590b37..fae2aa6 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -4673,6 +4673,7 @@ TEBCresume( TRACE_ERROR(interp); goto gotError; } + Tcl_IncrRefCount(objResultPtr); // reference held here goto lindexDone; } @@ -4977,7 +4978,11 @@ TEBCresume( */ do { - Tcl_ListObjIndex(NULL, value2Ptr, i, &o); + if (isArithSeries) { + TclArithSeriesObjIndex(value2Ptr, i, &o); + } else { + Tcl_ListObjIndex(NULL, value2Ptr, i, &o); + } if (o != NULL) { s2 = Tcl_GetStringFromObj(o, &s2len); } else { |