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().

diff --git a/src/alloc.c b/src/alloc.c
index 38b452cbe2e3cccc09df6693305f3d2107aca503..84a1124f357a95bdd4eebda73292a289ee932dce 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -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();
 

diff --git a/src/if_tcl.c b/src/if_tcl.c
index f3f4b0798a46db85877017640391230c687925c8..4838e3197691be54e5ebda364883976e9c2f25e0 100644 (file)
--- a/src/if_tcl.c
+++ b/src/if_tcl.c
@@ -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;

diff --git a/src/proto/if_tcl.pro b/src/proto/if_tcl.pro
index b572fb84caf9694d5bd597403f694349fbced1da..11ca7a20ead0a221c325c1c364ebb9816f4be37e 100644 (file)
--- a/src/proto/if_tcl.pro
+++ b/src/proto/if_tcl.pro
@@ -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);

diff --git a/src/version.c b/src/version.c
index 338b8a4ad4046549cba341796d007784a07d85db..6e1e30aa9870f94ff636534d4c2fcdbdbb16dd4d 100644 (file)
--- a/src/version.c
+++ b/src/version.c
@@ -753,6 +753,8 @@ static char *(features[]) =
 
 static int included_patches[] =
 {   /* Add new patch number below this line */
+/**/
+    3740,
 /**/
     3739,
 /**/