summaryrefslogtreecommitdiffstats
path: root/src/if_tcl.c
diff options
context:
space:
mode:
authorBram Moolenaar <Bram@vim.org>2018-07-04 22:12:25 +0200
committerBram Moolenaar <Bram@vim.org>2018-07-04 22:12:25 +0200
commit92959fa46d305ded1da433ad6d9a8d38db240c74 (patch)
tree884d690995fd94f8860fe8ab522902859625a48a /src/if_tcl.c
parent3b48b11c07b85520f4ca3566e92c3f6486509b72 (diff)
patch 8.1.0148: memory leak when using :tcl expr commandv8.1.0148
Problem: Memory leak when using :tcl expr command. Solution: Free the result of expression evaluation. (Dominique Pelle, closes #3150)
Diffstat (limited to 'src/if_tcl.c')
-rw-r--r--src/if_tcl.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/if_tcl.c b/src/if_tcl.c
index 690c6392b1..9ecabf84c5 100644
--- a/src/if_tcl.c
+++ b/src/if_tcl.c
@@ -1385,7 +1385,10 @@ tclvimexpr(
if (str == NULL)
Tcl_SetResult(interp, _("invalid expression"), TCL_STATIC);
else
+ {
Tcl_SetResult(interp, str, TCL_VOLATILE);
+ vim_free(str);
+ }
err = vimerror(interp);
#else
Tcl_SetResult(interp, _("expressions disabled at compile time"), TCL_STATIC);