branch master updated: * tp/Texinfo/XS/main/build_perl_info.c (fill_output_units_descriptor_av): inline fill_output_units in fill_output_units_descriptor_av.

[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 9ff4f61408 * tp/Texinfo/XS/main/build_perl_info.c 
(fill_output_units_descriptor_av): inline fill_output_units in 
fill_output_units_descriptor_av.
9ff4f61408 is described below

commit 9ff4f61408f9376763696d485d3e20a6516a1b9e
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Tue Feb 20 13:21:02 2024 +0100

    * tp/Texinfo/XS/main/build_perl_info.c
    (fill_output_units_descriptor_av): inline fill_output_units in
    fill_output_units_descriptor_av.
---
 ChangeLog                            |  6 ++++++
 tp/Texinfo/XS/main/build_perl_info.c | 31 +++++++++++--------------------
 2 files changed, 17 insertions(+), 20 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 78f75c56e1..98f1792792 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2024-02-20  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/Texinfo/XS/main/build_perl_info.c
+       (fill_output_units_descriptor_av): inline fill_output_units in
+       fill_output_units_descriptor_av.
+
 2024-02-20  Patrice Dumas  <pertusus@free.fr>
 
        * tp/Texinfo/XS/main/build_perl_info.c
diff --git a/tp/Texinfo/XS/main/build_perl_info.c 
b/tp/Texinfo/XS/main/build_perl_info.c
index 60b5ed7406..7b3aa3da35 100644
--- a/tp/Texinfo/XS/main/build_perl_info.c
+++ b/tp/Texinfo/XS/main/build_perl_info.c
@@ -1481,16 +1481,23 @@ output_unit_to_perl_hash (OUTPUT_UNIT *output_unit)
 #undef STORE
 }
 
-static void
-fill_output_units (AV *av_output_units, OUTPUT_UNIT_LIST *output_units)
+static int
+fill_output_units_descriptor_av (AV *av_output_units,
+                                 size_t output_units_descriptor)
 {
-  SV *sv;
-  int i;
+  OUTPUT_UNIT_LIST *output_units;
+  size_t i;
 
   dTHX;
 
+  output_units = retrieve_output_units (output_units_descriptor);
+
+  if (!output_units || !output_units->number)
+    return 0;
+
   for (i = 0; i < output_units->number; i++)
     {
+      SV *sv;
       OUTPUT_UNIT *output_unit = output_units->list[i];
       output_unit_to_perl_hash (output_unit);
       /* we do not transfer the hv ref to the perl av because we consider
@@ -1499,22 +1506,6 @@ fill_output_units (AV *av_output_units, OUTPUT_UNIT_LIST 
*output_units)
       sv = newRV_inc ((SV *) output_unit->hv);
       av_push (av_output_units, sv);
     }
-}
-
-static int
-fill_output_units_descriptor_av (AV *av_output_units,
-                                 size_t output_units_descriptor)
-{
-  OUTPUT_UNIT_LIST *output_units;
-
-  dTHX;
-
-  output_units = retrieve_output_units (output_units_descriptor);
-
-  if (!output_units || !output_units->number)
-    return 0;
-
-  fill_output_units (av_output_units, output_units);
 
   /* store in the first perl output unit of the list */
   hv_store (output_units->list[0]->hv, "output_units_descriptor",