embed.fnc: _byte_dump_string is core-only

This commit, made during the freeze, was approved by the pumpking

diff --git a/embed.fnc b/embed.fnc
index 0a63f47..3a68a35 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1709,7 +1709,7 @@ ApdD      |UV     |to_utf8_case   |NN const U8 *p                                 \
                                |NN SV **swashp                                 \
                                |NN const char *normal|                         \
                                NULLOK const char *special
-ApM    |char * |_byte_dump_string                                      \
+pM     |char * |_byte_dump_string                                      \
                                |NN const U8 * s                        \
                                |const STRLEN len                       \
                                |const bool format

diff --git a/embed.h b/embed.h
index 587444f..5352f53 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -27,7 +27,6 @@
 /* Hide global symbols */
 
 #define Gv_AMupdate(a,b)       Perl_Gv_AMupdate(aTHX_ a,b)
-#define _byte_dump_string(a,b,c)       Perl__byte_dump_string(aTHX_ a,b,c)
 #define _force_out_malformed_utf8_message(a,b,c,d)     Perl__force_out_malformed_utf8_message(aTHX_ a,b,c,d)
 #define _is_in_locale_category(a,b)    Perl__is_in_locale_category(aTHX_ a,b)
 #define _is_uni_FOO(a,b)       Perl__is_uni_FOO(aTHX_ a,b)
@@ -1163,6 +1162,7 @@
 #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)