diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-07-24 16:56:59 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-07-24 16:56:59 (GMT) |
| commit | fd1c7c2fb32af791a4a1025e23abcf20d384435f (patch) | |
| tree | a603d8e7dde86e04737b1a2353218ef36188adf4 /generic/tclParse.c | |
| parent | f2bea640bbf79037a46201c95c581f6f8ac5e5ee (diff) | |
| parent | 8f2d19b95103df07e718125efcd772ff582c2be1 (diff) | |
| download | tcl-fd1c7c2fb32af791a4a1025e23abcf20d384435f.zip tcl-fd1c7c2fb32af791a4a1025e23abcf20d384435f.tar.gz tcl-fd1c7c2fb32af791a4a1025e23abcf20d384435f.tar.bz2 | |
Demonstrate and fix memory leak in Tcl_ParseVar().
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; |