}
}
}
+
+/*
+ * There are two kinds of function names:
+ * 1. ordinary names, function defined with :function or :def
+ * 2. numbered functions and lambdas
+ * For the first we only count the name stored in func_hashtab as a reference,
+ * using function() does not count as a reference, because the function is
+ * looked up by name.
+ */
+ static int
+func_name_refcount(char_u *name)
+{
+ return isdigit(*name) || *name == '<';
+}
+
/*
* Unreference "fc": decrement the reference count and free it when it
* becomes zero. "fp" is detached from "fc".
if ((fp->uf_flags & FC_DEAD) == 0 || force)
{
+ if (fp->uf_dfunc_idx > 0)
+ unlink_def_function(fp);
VIM_CLEAR(fp->uf_name_exp);
vim_free(fp);
}
func_clear_free(ufunc_T *fp, int force)
{
func_clear(fp, force);
- if (force || fp->uf_dfunc_idx == 0 || (fp->uf_flags & FC_COPY))
+ if (force || fp->uf_dfunc_idx == 0 || func_name_refcount(fp->uf_name)
+ || (fp->uf_flags & FC_COPY))
func_free(fp, force);
else
fp->uf_flags |= FC_DEAD;
return error;
}
-/*
- * There are two kinds of function names:
- * 1. ordinary names, function defined with :function
- * 2. numbered functions and lambdas
- * For the first we only count the name stored in func_hashtab as a reference,
- * using function() does not count as a reference, because the function is
- * looked up by name.
- */
- static int
-func_name_refcount(char_u *name)
-{
- return isdigit(*name) || *name == '<';
-}
-
static funccal_entry_T *funccal_stack = NULL;
/*
// The return type will now be known.
set_function_type(ufunc);
+ // The function reference count will be 1. When the ISN_FUNCREF
+ // instruction is deleted the reference count is decremented and the
+ // function is freed.
return generate_FUNCREF(cctx, ufunc);
}
}
}
+/*
+ * Used when a user function is about to be deleted: remove the pointer to it.
+ * The entry in def_functions is then unused.
+ */
+ void
+unlink_def_function(ufunc_T *ufunc)
+{
+ dfunc_T *dfunc = ((dfunc_T *)def_functions.ga_data) + ufunc->uf_dfunc_idx;
+
+ dfunc->df_ufunc = NULL;
+}
+
#if defined(EXITFREE) || defined(PROTO)
/*
* Free all functions defined with ":def".
{
dfunc_T *dfunc = ((dfunc_T *)def_functions.ga_data)
+ ectx->ec_dfunc_idx;
- int argcount = ufunc_argcount(dfunc->df_ufunc);
- int top = ectx->ec_frame_idx - argcount;
+ int argcount;
+ int top;
int idx;
typval_T *tv;
int closure_in_use = FALSE;
+ if (dfunc->df_ufunc == NULL)
+ // function was freed
+ return OK;
+ argcount = ufunc_argcount(dfunc->df_ufunc);
+ top = ectx->ec_frame_idx - argcount;
+
// Check if any created closure is still in use.
for (idx = 0; idx < dfunc->df_closure_count; ++idx)
{