branch master updated: * tp/texi2any.supp: Add suppression specification for leaks and errors associated to setenv, getenv and translations showing up with t/19def.t.

[Patrice Dumas]

This is an automated email from the git hooks/post-receive script.

pertusus pushed a commit to branch master
in repository texinfo.

The following commit(s) were added to refs/heads/master by this push:
     new d7f3d1090f * tp/texi2any.supp: Add suppression specification for leaks 
and errors associated to setenv, getenv and translations showing up with 
t/19def.t.
d7f3d1090f is described below

commit d7f3d1090fbdb95197f6baf5eb818b298e11792f
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Mon Nov 20 00:01:37 2023 +0100

    * tp/texi2any.supp: Add suppression specification for leaks and errors
    associated to setenv, getenv and translations showing up with t/19def.t.
---
 ChangeLog        |   2 +-
 tp/TODO          |   5 ++
 tp/texi2any.supp | 169 +++++++++++++++++++++++++++++++++++++++++++++++++++----
 3 files changed, 164 insertions(+), 12 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index b375839b11..88bdd400a3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,7 @@
 2023-11-19  Patrice Dumas  <pertusus@free.fr>
 
        * tp/texi2any.supp: Add suppression specification for leaks and errors
-       associated to setenv and translations showing up with t/19def.t.
+       associated to setenv, getenv and translations showing up with t/19def.t.
 
 2023-11-19  Patrice Dumas  <pertusus@free.fr>
 
diff --git a/tp/TODO b/tp/TODO
index c81f49fb71..78c88a8884 100644
--- a/tp/TODO
+++ b/tp/TODO
@@ -720,6 +720,11 @@ In tp/tests/, generate Texinfo file for Texinfo TeX 
coverage
 From doc/
 texi2pdf -I ../tp/tests/layout/ ../tp/tests/formatting_valid.texi
 
+perl 5.38.0
+PERL_BASE=$HOME/localperl
+export PATH="$PERL_BASE/bin${PATH:+:$PATH}"
+export PERL5LIB="$PERL_BASE/lib/perl5"
+
 To generate valgrind .supp rules: --gen-suppressions=all 
--log-file=gen_supp_rules.log
 mkdir -p val_res
 PERL_DESTRUCT_LEVEL=2
diff --git a/tp/texi2any.supp b/tp/texi2any.supp
index a3e91022f5..28512237ef 100644
--- a/tp/texi2any.supp
+++ b/tp/texi2any.supp
@@ -1,9 +1,12 @@
 # valgrind suppression file for texi2any
 
+# The trailing numbers allow to disambiguate entries, but should not
+# necessarily be sorted.
+
 # Leak occurs when switch_to_global_locale is called in main/translations.c.
-# Occurs in Perl 5.36.
+# Occurs in Perl 5.36, fixed in Perl 5.38.
 {
-   Leak/translations/switch_to_global_locale/1
+   fixed-in-perl/Leak/translations/switch_to_global_locale/1
    Memcheck:Leak
    match-leak-kinds: definite
    fun:malloc
@@ -21,9 +24,9 @@
 }
 
 # Leak, most likely call of switch_to_global_locale is called in 
main/translations.c.
-# Occurs in Perl 5.36.
+# Occurs in Perl 5.36, fixed in Perl 5.38.
 {
-   Leak/translations/switch_to_global_locale/
+   fixed-in-perl/Leak/translations/switch_to_global_locale/2
    Memcheck:Leak
    match-leak-kinds: definite
    fun:malloc
@@ -35,9 +38,9 @@
 }
 
 # Leaks in translations setenv
-# Occurs in Perl 5.36.
+# Occurs in Perl 5.36, fixed in Perl 5.38.
 {
-   Leak/translations/setenv/1
+   fixed-in-perl/Leak/translations/setenv/1
    Memcheck:Leak
    match-leak-kinds: definite
    fun:malloc
@@ -56,7 +59,7 @@
    fun:S_doeval_compile
 }
 {
-   Leak/translations/setenv/2
+   fixed-in-perl/Leak/translations/setenv/2
    Memcheck:Leak
    match-leak-kinds: definite
    fun:malloc
@@ -67,7 +70,7 @@
    fun:main
 }
 {
-   Leak/translations/setenv/3
+   fixed-in-perl/Leak/translations/setenv/3
    Memcheck:Leak
    match-leak-kinds: definite
    fun:malloc
@@ -83,7 +86,7 @@
    fun:main
 }
 {
-   Leak/translations/setenv/4
+   fixed-in-perl/Leak/translations/setenv/4
    Memcheck:Leak
    match-leak-kinds: definite
    fun:malloc
@@ -130,7 +133,7 @@
    fun:main
 }
 {
-   Error/translations/setenv/3
+   fixed-in-perl/Error/translations/setenv/3
    Memcheck:Addr1
    fun:strcmp
    fun:tfind
@@ -140,12 +143,156 @@
    ...
 }
 {
-   Error/translations/setenv/4
+   fixed-in-perl/Error/translations/setenv/4
+   Memcheck:Addr1
+   fun:strcmp
+   fun:tsearch
+   fun:__add_to_environ
+   fun:setenv
+   fun:switch_messages_locale
+   ...
+}
+{
+   fixed-in-perl/Error/translations/setenv/5
    Memcheck:Addr1
    fun:strcmp
    fun:tsearch
    fun:__add_to_environ
    fun:setenv
+   fun:translate_string
+   ...
+}
+{
+   fixed-in-perl/Error/translations/setenv/6
+   Memcheck:Addr1
+   fun:strncmp
+   fun:__add_to_environ
+   fun:setenv
+   fun:translate_string
+   ...
+}
+{
+   fixed-in-perl/Error/translations/setenv/7
+   Memcheck:Addr1
+   fun:__add_to_environ
+   fun:setenv
+   fun:translate_string
+   ...
+}
+{
+   fixed-in-perl/Error/translations/setenv/8
+   Memcheck:Addr1
+   fun:strncmp
+   fun:__add_to_environ
+   fun:setenv
+   fun:switch_messages_locale
+   ...
+}
+{
+   fixed-in-perl/Error/translations/setenv/9
+   Memcheck:Addr1
+   fun:__add_to_environ
+   fun:setenv
+   fun:switch_messages_locale
+   ...
+}
+
+# Errors output due to use of getenv in XS module.
+# Occurs in Perl 5.36, fixed in Perl 5.38.
+{
+   fixed-in-perl/Error/translations/getenv/1
+   Memcheck:Addr2
+   fun:getenv
+   fun:setlocale
+   fun:translate_string
+   ...
+}
+{
+   fixed-in-perl/Error/translations/getenv/2
+   Memcheck:Addr2
+   fun:getenv
+   fun:newlocale
+   fun:S_emulate_setlocale
+   fun:Perl_sync_locale
+   fun:translate_string
+   ...
+}
+{
+   fixed-in-perl/Error/translations/getenv/3
+   Memcheck:Addr2
+   fun:getenv
+   fun:newlocale
+   fun:S_new_numeric
+   fun:Perl_sync_locale
+   fun:translate_string
+   ...
+}
+{
+   fixed-in-perl/Error/translations/getenv/4
+   Memcheck:Addr2
+   fun:getenv
+   fun:setlocale
    fun:switch_messages_locale
    ...
 }
+# FIXME next are not very specific
+{
+   fixed-in-perl/Error/translations/getenv/5
+   Memcheck:Addr2
+   fun:getenv
+   fun:translate_string
+   ...
+}
+{
+   fixed-in-perl/Error/translations/getenv/6
+   Memcheck:Addr1
+   fun:strncmp
+   fun:getenv
+   fun:translate_string
+   ...
+}
+{
+   fixed-in-perl/Error/translations/getenv/7
+   Memcheck:Addr1
+   fun:getenv
+   fun:translate_string
+   ...
+}
+{
+   fixed-in-perl/Error/translations/getenv/8
+   Memcheck:Addr2
+   fun:getenv
+   fun:translate_string
+   ...
+}
+{
+   fixed-in-perl/Error/translations/getenv/9
+   Memcheck:Addr1
+   fun:strncmp
+   fun:getenv
+   fun:translate_string
+   ...
+}
+{
+   fixed-in-perl/Error/translations/getenv/10
+   Memcheck:Addr1
+   fun:getenv
+   fun:translate_string
+   ...
+}
+# FIXME non specific, not even getenv in the trace
+{
+   fixed-in-perl/Error/translations/getenv?/11
+   Memcheck:Addr1
+   fun:strlen
+   fun:strdup
+   fun:translate_string
+   ...
+}
+{
+   fixed-in-perl/Error/translations/getenv?/12
+   Memcheck:Addr1
+   fun:memmove
+   fun:translate_string
+   ...
+}