@@ -221,12 +221,13 @@ tcl_runtime_link_init(char *libname, int verbose)
221221 for (i = 0 ; tcl_funcname_table [i ].ptr ; ++ i )
222222 {
223223 if (!(* tcl_funcname_table [i ].ptr = symbol_from_dll (hTclLib ,
224- tcl_funcname_table [i ].name )))
224+ tcl_funcname_table [i ].name )))
225225 {
226226 close_dll (hTclLib );
227227 hTclLib = NULL ;
228228 if (verbose )
229- semsg (_ (e_could_not_load_library_function_str ), tcl_funcname_table [i ].name );
229+ semsg (_ (e_could_not_load_library_function_str ),
230+ tcl_funcname_table [i ].name );
230231 return FAIL ;
231232 }
232233 }
@@ -263,11 +264,13 @@ tcl_enabled(int verbose)
263264 {
264265 Tcl_Interp * interp ;
265266
267+ // Note: the library will allocate memory to store the executable name,
268+ // which will be reported as possibly leaked by valgrind.
266269 dll_Tcl_FindExecutable (find_executable_arg );
267270
268271 if ((interp = dll_Tcl_CreateInterp ()) != NULL )
269272 {
270- if (Tcl_InitStubs (interp , DYNAMIC_TCL_VER , 0 ))
273+ if (Tcl_InitStubs (interp , DYNAMIC_TCL_VER , 0 ) != NULL )
271274 {
272275 Tcl_DeleteInterp (interp );
273276 stubs_initialized = TRUE;
@@ -280,6 +283,9 @@ tcl_enabled(int verbose)
280283#endif
281284
282285#if defined(EXITFREE ) || defined(PROTO )
286+ /*
287+ * Called once when exiting.
288+ */
283289 void
284290vim_tcl_finalize (void )
285291{
0 commit comments