[no subject]

[Patrice Dumas]

branch: master
commit bb302ac1f40904eea7f76d1026f42153fd58026e
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Tue Mar 12 16:30:00 2024 +0100

    * tp/Texinfo/XS/convert/call_html_perl_function.c
    (call_file_id_setting_*): check if special_unit->hv exist after
    getting the function to call such that the Perl data may be rebuilt at
    that time.
---
 ChangeLog                                       |  7 +++++
 tp/Texinfo/XS/convert/call_html_perl_function.c | 34 ++++++++++++++++---------
 2 files changed, 29 insertions(+), 12 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 87888261a0..73a5915f27 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2024-03-12  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/Texinfo/XS/convert/call_html_perl_function.c
+       (call_file_id_setting_*): check if special_unit->hv exist after
+       getting the function to call such that the Perl data may be rebuilt at
+       that time.
+
 2024-03-11  Patrice Dumas  <pertusus@free.fr>
 
        Count Perl functions used
diff --git a/tp/Texinfo/XS/convert/call_html_perl_function.c 
b/tp/Texinfo/XS/convert/call_html_perl_function.c
index 02e95e8d99..7347ab2102 100644
--- a/tp/Texinfo/XS/convert/call_html_perl_function.c
+++ b/tp/Texinfo/XS/convert/call_html_perl_function.c
@@ -59,9 +59,6 @@ call_file_id_setting_special_unit_target_file_name (CONVERTER 
*self,
 
   dTHX;
 
-  if (!special_unit->hv)
-    return 0;
-
   if (!self->hv)
     return 0;
 
@@ -85,6 +82,12 @@ call_file_id_setting_special_unit_target_file_name 
(CONVERTER *self,
           STRLEN len;
           TARGET_FILENAME *result = new_target_filename ();
 
+          if (!special_unit->hv)
+            {
+              /* TODO rebuild output units */
+              return 0;
+            }
+
           dSP;
 
           ENTER;
@@ -217,9 +220,6 @@ call_file_id_setting_node_file_name (CONVERTER *self,
 
   *called = 0;
 
-  if (!target_element->hv)
-    return 0;
-
   if (!self->hv)
     return 0;
 
@@ -240,6 +240,12 @@ call_file_id_setting_node_file_name (CONVERTER *self,
           SV *node_filename_ret_sv;
           *called = 1;
 
+          if (!target_element->hv)
+            {
+              /* TODO rebuild */
+              return 0;
+            }
+
           dSP;
 
           ENTER;
@@ -293,9 +299,6 @@ call_file_id_setting_sectioning_command_target_name 
(CONVERTER *self,
 
   dTHX;
 
-  if (!command->hv)
-    return 0;
-
   if (!self->hv)
     return 0;
 
@@ -323,6 +326,11 @@ call_file_id_setting_sectioning_command_target_name 
(CONVERTER *self,
           char *filename_ret;
           TARGET_CONTENTS_FILENAME *result = new_target_contents_filename ();
 
+          if (!command->hv)
+            {/* TODO rebuild */
+              return 0;
+            }
+
           dSP;
 
           ENTER;
@@ -381,9 +389,6 @@ call_file_id_setting_unit_file_name (CONVERTER *self,
 
   dTHX;
 
-  if (!output_unit->hv)
-    return 0;
-
   if (!self->hv)
     return 0;
 
@@ -404,6 +409,11 @@ call_file_id_setting_unit_file_name (CONVERTER *self,
           SV *filename_ret_sv;
           FILE_NAME_PATH *result = new_file_name_path ();
 
+          if (!output_unit->hv)
+            { /* TODO rebuild */
+              return 0;
+            }
+
           dSP;
 
           ENTER;