bug#58596: 29.0.50; [PATCH] Fix memory leak when loading Tree-sitter language definitions

[Yuan Fu <casouri@gmail.com>]

Daniel Martín <mardani29@yahoo.es> writes:

> I'm instrumenting the Tree-sitter branch to make sure there's no glaring
> memory issues like leaks or undefined behavior.  I've found that the
> function treesit_load_language leaks a few bytes each time a language is
> loaded.
>
> To fix the bug, I've simplified a bit the logic that loads the dynamic
> library, to avoid the string duplication that was leaking, and removed a
> loop that I think it's not really necessary (that'll save us a few CPU
> cycles).
>
> Please check that I've not made any crucial mistake, and feel free to
> merge it if you think it's a good patch.
>
> Thanks.
>

Sorry! I just see this.  I believe I fixed the memory leak in trunk.
The purpose for treesit_symbol_to_c_name is to transform not dashes in
tree-sitter, but dashes in languages names, eg, c-sharp.  So we do need
that.  Thank you so much on working on this though!

If you don’t mind, please have a look at the revised code and see if it
fixes the memory leak.

Yuan

>>From fbe2b320e4e41cd8a522bb4b56c47e6509d26d08 Mon Sep 17 00:00:00 2001
> From: =?UTF-8?q?Daniel=20Mart=C3=ADn?= <mardani29@yahoo.es>
> Date: Tue, 18 Oct 2022 00:41:15 +0200
> Subject: [PATCH] Fix memory leak when loading Tree-sitter language definitions
>
> * src/treesit.c (treesit_load_language): Simplify and avoid strdup
> call.
> (treesit_symbol_to_c_name): Remove now unused function.
> ---
>  src/treesit.c | 21 +++------------------
>  1 file changed, 3 insertions(+), 18 deletions(-)
>
> diff --git a/src/treesit.c b/src/treesit.c
> index 8417b3bb1c..1e0694f84b 100644
> --- a/src/treesit.c
> +++ b/src/treesit.c
> @@ -429,18 +429,6 @@ treesit_initialize (void)
>  \f
>  /*** Loading language library */
>  
> -/* Translates a symbol treesit-<lang> to a C name
> -   treesit_<lang>.  */
> -static void
> -treesit_symbol_to_c_name (char *symbol_name)
> -{
> -  for (int idx = 0; idx < strlen (symbol_name); idx++)
> -    {
> -      if (symbol_name[idx] == '-')
> -	symbol_name[idx] = '_';
> -    }
> -}
> -
>  static bool
>  treesit_find_override_name (Lisp_Object language_symbol, Lisp_Object *name,
>  			    Lisp_Object *c_symbol)
> @@ -496,10 +484,7 @@ treesit_load_language (Lisp_Object language_symbol,
>    Lisp_Object lib_base_name =
>      concat2 (build_pure_c_string ("libtree-sitter-"), symbol_name);
>    Lisp_Object base_name =
> -    concat2 (build_pure_c_string ("tree-sitter-"), symbol_name);
> -  /* FIXME: The result of strdup leaks memory in some cases.  */
> -  char *c_name = strdup (SSDATA (base_name));
> -  treesit_symbol_to_c_name (c_name);
> +    concat2 (build_pure_c_string ("tree_sitter_"), symbol_name);
>  
>    /* Override the library name and C name, if appropriate.  */
>    Lisp_Object override_name;
> @@ -510,7 +495,7 @@ treesit_load_language (Lisp_Object language_symbol,
>    if (found_override)
>      {
>        lib_base_name = override_name;
> -      c_name = SSDATA (override_c_name);
> +      base_name = override_c_name;
>      }
>  
>    /* Now we generate a list of possible library paths.  */
> @@ -560,7 +545,7 @@ treesit_load_language (Lisp_Object language_symbol,
>    /* Load TSLanguage.  */
>    dynlib_error ();
>    TSLanguage *(*langfn) (void);
> -  langfn = dynlib_sym (handle, c_name);
> +  langfn = dynlib_sym (handle, SSDATA (base_name));
>    error = dynlib_error ();
>    if (error != NULL)
>      {