branch master updated: * tp/Texinfo/XS/main/api_to_perl.c (croak_message): Add wrapper for Perl croak. Useful for debugging.

[Gavin D. Smith]

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

gavin pushed a commit to branch master
in repository texinfo.

The following commit(s) were added to refs/heads/master by this push:
     new 3b778eb674 * tp/Texinfo/XS/main/api_to_perl.c (croak_message): Add 
wrapper for Perl croak.  Useful for debugging.
3b778eb674 is described below

commit 3b778eb674912c77405900c67e051350e33cd722
Author: Gavin Smith <gavinsmith0123@gmail.com>
AuthorDate: Fri Nov 17 19:58:31 2023 +0000

    * tp/Texinfo/XS/main/api_to_perl.c (croak_message):
    Add wrapper for Perl croak.  Useful for debugging.
---
 ChangeLog                        | 5 +++++
 tp/Texinfo/XS/main/api_to_perl.c | 6 ++++++
 tp/Texinfo/XS/main/api_to_perl.h | 1 +
 3 files changed, 12 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index c5b69bd193..393ac20bfa 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2023-11-17  Gavin Smith <gavinsmith0123@gmail.com>
+
+       * tp/Texinfo/XS/main/api_to_perl.c (croak_message):
+       Add wrapper for Perl croak.  Useful for debugging.
+
 2023-11-17  Gavin Smith <gavinsmith0123@gmail.com>
 
        * tp/texi2any.supp: Use "..." in suppressions file to allow
diff --git a/tp/Texinfo/XS/main/api_to_perl.c b/tp/Texinfo/XS/main/api_to_perl.c
index 8f8adb3c70..413e29bcb3 100644
--- a/tp/Texinfo/XS/main/api_to_perl.c
+++ b/tp/Texinfo/XS/main/api_to_perl.c
@@ -67,3 +67,9 @@ call_sync_locale ()
   sync_locale ();
 #endif
 }
+
+void
+croak_message (char *message)
+{
+  croak ("%s\n", message);
+}
diff --git a/tp/Texinfo/XS/main/api_to_perl.h b/tp/Texinfo/XS/main/api_to_perl.h
index 64b29f9e18..3bd15e6943 100644
--- a/tp/Texinfo/XS/main/api_to_perl.h
+++ b/tp/Texinfo/XS/main/api_to_perl.h
@@ -8,4 +8,5 @@ void unregister_perl_tree_element (ELEMENT *e);
 
 void call_switch_to_global_locale (void);
 void call_sync_locale (void);
+void croak_message (char *message);
 #endif