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:
@@ -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();
|
||||
|
||||
|
@@ -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;
|
||||
|
@@ -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);
|
||||
|
@@ -753,6 +753,8 @@ static char *(features[]) =
|
||||
|
||||
static int included_patches[] =
|
||||
{ /* Add new patch number below this line */
|
||||
/**/
|
||||
3740,
|
||||
/**/
|
||||
3739,
|
||||
/**/
|
||||
|
Reference in New Issue
Block a user