diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-07-24 16:51:04 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-07-24 16:51:04 (GMT) |
| commit | 8f2d19b95103df07e718125efcd772ff582c2be1 (patch) | |
| tree | 3013ac88f88e9887ce2d74db6f4a50cfae8dde80 /generic | |
| parent | bc28cd1ac82705c2452e11f441e3fd0796c6d692 (diff) | |
| download | tcl-8f2d19b95103df07e718125efcd772ff582c2be1.zip tcl-8f2d19b95103df07e718125efcd772ff582c2be1.tar.gz tcl-8f2d19b95103df07e718125efcd772ff582c2be1.tar.bz2 | |
Demonstrate and fix memory leak in Tcl_ParseVar().
Diffstat (limited to 'generic')
| -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 96c2a10..e475fb8 100644 --- a/generic/tclParse.c +++ b/generic/tclParse.c @@ -1566,6 +1566,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; |