This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
_byte-dump_string() callable from regcomp, regexec
authorKarl Williamson <khw@cpan.org>
Fri, 16 Jun 2017 20:56:04 +0000 (14:56 -0600)
committerKarl Williamson <khw@cpan.org>
Sun, 2 Jul 2017 15:56:10 +0000 (09:56 -0600)
This changes the function so it's visible from re_comp, re_exec

embed.fnc
embed.h

index ecc7866..1e661e4 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1715,7 +1715,7 @@ EXMp      |void   |_invlist_dump  |NN PerlIO *file|I32 level   \
 #endif
 Ap     |void   |taint_env
 Ap     |void   |taint_proper   |NULLOK const char* f|NN const char *const s
-pM     |char * |_byte_dump_string                                      \
+EpM    |char * |_byte_dump_string                                      \
                                |NN const U8 * s                        \
                                |const STRLEN len                       \
                                |const bool format
diff --git a/embed.h b/embed.h
index 6490e6d..a74458d 100644 (file)
--- a/embed.h
+++ b/embed.h
 #define do_spawn_nowait(a)     Perl_do_spawn_nowait(aTHX_ a)
 #endif
 #if defined(PERL_CORE) || defined(PERL_EXT)
+#define _byte_dump_string(a,b,c)       Perl__byte_dump_string(aTHX_ a,b,c)
 #define _warn_problematic_locale       Perl__warn_problematic_locale
 #define append_utf8_from_native_byte   S_append_utf8_from_native_byte
 #define av_reify(a)            Perl_av_reify(aTHX_ a)
 #ifdef PERL_CORE
 #define Slab_Alloc(a)          Perl_Slab_Alloc(aTHX_ a)
 #define Slab_Free(a)           Perl_Slab_Free(aTHX_ a)
-#define _byte_dump_string(a,b,c)       Perl__byte_dump_string(aTHX_ a,b,c)
 #define abort_execution(a,b)   Perl_abort_execution(aTHX_ a,b)
 #define alloc_LOGOP(a,b,c)     Perl_alloc_LOGOP(aTHX_ a,b,c)
 #define allocmy(a,b,c)         Perl_allocmy(aTHX_ a,b,c)