commit 92959fa46d305ded1da433ad6d9a8d38db240c74
author Bram Moolenaar <Bram@vim.org> Wed Jul 04 22:12:25 2018 +0200
committer Bram Moolenaar <Bram@vim.org> Wed Jul 04 22:12:25 2018 +0200
tree 884d690995fd94f8860fe8ab522902859625a48a
parent 3b48b11c07b85520f4ca3566e92c3f6486509b72

patch 8.1.0148: memory leak when using :tcl expr command

Problem:    Memory leak when using :tcl expr command.
Solution:   Free the result of expression evaluation. (Dominique Pelle,
            closes #3150)

src/if_tcl.c

diff --git a/src/if_tcl.c b/src/if_tcl.c
index 690c639..9ecabf8 100644
--- a/src/if_tcl.c
+++ b/src/if_tcl.c
@@ -1385,7 +1385,10 @@
     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);