summaryrefslogtreecommitdiff
path: root/src/if_tcl.c
diff options
context:
space:
mode:
authorBram Moolenaar <Bram@vim.org>2022-06-23 20:46:27 +0100
committerBram Moolenaar <Bram@vim.org>2022-06-23 20:46:27 +0100
commitabd56da30bae4a5c6c20b9363ccae12f7b126026 (patch)
tree91029777d1cc974fb2570fd8835c7725dd31bd39 /src/if_tcl.c
parent1b096b0d4a52cacf5ac782c7fa0d02cf0ef22fc4 (diff)
downloadvim-git-abd56da30bae4a5c6c20b9363ccae12f7b126026.tar.gz
patch 8.2.5154: still mentioning version8, some cosmetic issuesv8.2.5154
Problem: Still mentioning version8, some cosmetic issues. Solution: Prefer mentioning version9, cosmetic improvements.
Diffstat (limited to 'src/if_tcl.c')
-rw-r--r--src/if_tcl.c12
1 files changed, 9 insertions, 3 deletions
diff --git a/src/if_tcl.c b/src/if_tcl.c
index 8a6af8db6..9e018a2e2 100644
--- a/src/if_tcl.c
+++ b/src/if_tcl.c
@@ -221,12 +221,13 @@ tcl_runtime_link_init(char *libname, int verbose)
for (i = 0; tcl_funcname_table[i].ptr; ++i)
{
if (!(*tcl_funcname_table[i].ptr = symbol_from_dll(hTclLib,
- tcl_funcname_table[i].name)))
+ tcl_funcname_table[i].name)))
{
close_dll(hTclLib);
hTclLib = NULL;
if (verbose)
- semsg(_(e_could_not_load_library_function_str), tcl_funcname_table[i].name);
+ semsg(_(e_could_not_load_library_function_str),
+ tcl_funcname_table[i].name);
return FAIL;
}
}
@@ -263,11 +264,13 @@ tcl_enabled(int verbose)
{
Tcl_Interp *interp;
+ // Note: the library will allocate memory to store the executable name,
+ // which will be reported as possibly leaked by valgrind.
dll_Tcl_FindExecutable(find_executable_arg);
if ((interp = dll_Tcl_CreateInterp()) != NULL)
{
- if (Tcl_InitStubs(interp, DYNAMIC_TCL_VER, 0))
+ if (Tcl_InitStubs(interp, DYNAMIC_TCL_VER, 0) != NULL)
{
Tcl_DeleteInterp(interp);
stubs_initialized = TRUE;
@@ -280,6 +283,9 @@ tcl_enabled(int verbose)
#endif
#if defined(EXITFREE) || defined(PROTO)
+/*
+ * Called once when exiting.
+ */
void
vim_tcl_finalize(void)
{