commit 79efa2e3b3cdab8c21d95ba4ed9cb573566af531
author Bram Moolenaar <Bram@vim.org> Sat Mar 27 15:40:11 2021 +0100
committer Bram Moolenaar <Bram@vim.org> Sat Mar 27 15:40:11 2021 +0100
tree d89b324257615919ee01cf30698c636b54ed18eb
parent 7007e31bde75b6360a1b54c7572e4f855458f37d

patch 8.2.2663: Vim9: leaking memory when inline function has an error

Problem:    Vim9: leaking memory when inline function has an error.
Solution:   Free the partially allocated function.

src/userfunc.c

diff --git a/src/userfunc.c b/src/userfunc.c
index 5766941..ba7e0c3 100644
--- a/src/userfunc.c
+++ b/src/userfunc.c
@@ -35,6 +35,8 @@
 static char *e_nofunc = N_("E130: Unknown function: %s");
 
 static void funccal_unref(funccall_T *fc, ufunc_T *fp, int force);
+static void func_clear(ufunc_T *fp, int force);
+static int func_free(ufunc_T *fp, int force);
 
     void
 func_init()
@@ -946,7 +948,7 @@
 {
     int		evaluate = evalarg != NULL
 				      && (evalarg->eval_flags & EVAL_EVALUATE);
-    ufunc_T	*ufunc;
+    ufunc_T	*ufunc = NULL;
     exarg_T	eap;
     garray_T	newlines;
     char_u	*cmdline = NULL;
@@ -1000,10 +1002,7 @@
 	goto erret;
     set_ufunc_name(ufunc, name);
     if (hash_add(&func_hashtab, UF2HIKEY(ufunc)) == FAIL)
-    {
-	vim_free(ufunc);
 	goto erret;
-    }
     ufunc->uf_refcount = 1;
     ufunc->uf_args = *newargs;
     newargs->ga_data = NULL;
@@ -1045,6 +1044,7 @@
 
     rettv->vval.v_partial = pt;
     rettv->v_type = VAR_PARTIAL;
+    ufunc = NULL;
     ret = OK;
 
 erret:
@@ -1054,6 +1054,11 @@
     ga_clear_strings(&newlines);
     ga_clear_strings(newargs);
     ga_clear_strings(default_args);
+    if (ufunc != NULL)
+    {
+	func_clear(ufunc, TRUE);
+	func_free(ufunc, TRUE);
+    }
     return ret;
 }