diff options
author | dgp <dgp@noemail.net> | 2013-07-24 16:56:59 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2013-07-24 16:56:59 (GMT) |
commit | 541d090d7c529c6e80a2d04b252468ba8c3c2c3c (patch) | |
tree | 51c16432e63e518c10cd6f32029ab5c6d536d22a /generic/tclParse.c | |
parent | 2eb8d5afd364130185143feede13637292b612f9 (diff) | |
parent | e7f42dee0f597d911ee0ca271d56784703edcc1c (diff) | |
download | tcl-541d090d7c529c6e80a2d04b252468ba8c3c2c3c.zip tcl-541d090d7c529c6e80a2d04b252468ba8c3c2c3c.tar.gz tcl-541d090d7c529c6e80a2d04b252468ba8c3c2c3c.tar.bz2 |
Demonstrate and fix memory leak in Tcl_ParseVar().
FossilOrigin-Name: ade314d8cf5fe3105820be104cdc40b40f643160
Diffstat (limited to 'generic/tclParse.c')
-rw-r--r-- | generic/tclParse.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclParse.c b/generic/tclParse.c index 08615a7..6723d39 100644 --- a/generic/tclParse.c +++ b/generic/tclParse.c @@ -1567,6 +1567,7 @@ Tcl_ParseVar( code = TclSubstTokens(interp, parsePtr->tokenPtr, parsePtr->numTokens, NULL, 1, NULL, NULL); + Tcl_FreeParse(parsePtr); TclStackFree(interp, parsePtr); if (code != TCL_OK) { return NULL; |