1
0
forked from aniani/vim

patch 8.2.3740: memory left allocated on exit when using Tcl

Problem:    Memory left allocated on exit when using Tcl.
Solution:   Call Tcl_Finalize().
This commit is contained in:
Bram Moolenaar
2021-12-05 11:36:23 +00:00
parent dea4a61637
commit c7269f8627
4 changed files with 14 additions and 0 deletions

View File

@@ -573,6 +573,9 @@ free_all_mem(void)
# endif
# ifdef FEAT_GUI_GTK
gui_mch_free_all();
# endif
# ifdef FEAT_TCL
vim_tcl_finalize();
# endif
clear_hl_tables();

View File

@@ -248,6 +248,14 @@ vim_tcl_init(char *arg)
#endif
}
#if defined(EXITFREE) || defined(PROTO)
void
vim_tcl_finalize(void)
{
Tcl_Finalize();
}
#endif
#if defined(DYNAMIC_TCL) || defined(PROTO)
static int stubs_initialized = FALSE;

View File

@@ -1,5 +1,6 @@
/* if_tcl.c */
void vim_tcl_init(char *arg);
void vim_tcl_finalize(void);
int tcl_enabled(int verbose);
void tcl_end(void);
void ex_tcl(exarg_T *eap);

View File

@@ -753,6 +753,8 @@ static char *(features[]) =
static int included_patches[] =
{ /* Add new patch number below this line */
/**/
3740,
/**/
3739,
/**/