branch master updated: * tp/Texinfo/XS/main/build_perl_info.c (rebuild_document): do not clear the existing document HV.

[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 689d1cf1ce * tp/Texinfo/XS/main/build_perl_info.c (rebuild_document): 
do not clear the existing document HV.
689d1cf1ce is described below

commit 689d1cf1cea7dc3162d4bee1a08f10a97dcf2d24
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Thu Mar 7 09:56:54 2024 +0100

    * tp/Texinfo/XS/main/build_perl_info.c (rebuild_document): do not
    clear the existing document HV.
---
 ChangeLog                            |  5 +++++
 tp/Texinfo/XS/main/build_perl_info.c | 13 -------------
 2 files changed, 5 insertions(+), 13 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 4d0457ec8c..c0317b8e8f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2024-03-07  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/Texinfo/XS/main/build_perl_info.c (rebuild_document): do not
+       clear the existing document HV.
+
 2024-03-06  Patrice Dumas  <pertusus@free.fr>
 
        Get errors from XS independently of document build/rebuild
diff --git a/tp/Texinfo/XS/main/build_perl_info.c 
b/tp/Texinfo/XS/main/build_perl_info.c
index 2e270b2998..6dc1899ced 100644
--- a/tp/Texinfo/XS/main/build_perl_info.c
+++ b/tp/Texinfo/XS/main/build_perl_info.c
@@ -1414,8 +1414,6 @@ rebuild_document (SV *document_in, int no_store)
   HV *hv;
   SV **document_descriptor_sv;
   char *descriptor_key = "document_descriptor";
-  char *registrar_key = "registrar";
-
   dTHX;
 
   hv = (HV *)SvRV (document_in);
@@ -1423,21 +1421,10 @@ rebuild_document (SV *document_in, int no_store)
   document_descriptor_sv = hv_fetch (hv, descriptor_key,
                                      strlen (descriptor_key), 0);
 
-  SV **registrar_svp, *registrar_sv = 0;
-  registrar_svp = hv_fetch (hv, registrar_key, strlen (registrar_key), 0);
-  if (registrar_svp)
-    {
-      registrar_sv = *registrar_svp;
-      SvREFCNT_inc(registrar_sv); /* prevent destruction at hv_clear below */
-    }
-
   if (document_descriptor_sv)
     {
       int document_descriptor = SvIV (*document_descriptor_sv);
-      hv_clear (hv);
       fill_document_hv (hv, document_descriptor, no_store);
-      if (registrar_sv)
-        hv_store (hv, registrar_key, strlen (registrar_key), registrar_sv, 0);
     }
   else
     {