diff options
author | Miguel Sofer <miguel.sofer@gmail.com> | 2016-01-31 05:02:42 (GMT) |
---|---|---|
committer | Miguel Sofer <miguel.sofer@gmail.com> | 2016-01-31 05:02:42 (GMT) |
commit | a0d61a5d7c837d306823f80973c25f5e8eb981d3 (patch) | |
tree | 480e50fda1a8a178b45a38f3d8ec8c4c828c8e6a | |
parent | f468c8d414ed86b6cc49e569f0632e020ffe7b61 (diff) | |
download | tcl-a0d61a5d7c837d306823f80973c25f5e8eb981d3.zip tcl-a0d61a5d7c837d306823f80973c25f5e8eb981d3.tar.gz tcl-a0d61a5d7c837d306823f80973c25f5e8eb981d3.tar.bz2 |
plug a leak; more to do
-rw-r--r-- | generic/tclExecute.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 42f4073..32708e9 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -7789,6 +7789,7 @@ FinalizeOONextFilter( contextPtr->index = PTR2INT(extra[0]); contextPtr->skip = PTR2INT(extra[1]); contextPtr->oPtr->flags |= FILTER_HANDLING; + NRE_freeExtra(extra); NRE_NEXT(result); } |