X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/11bcd5dad4f9d911a9454f9d858c2dd0d14ddf2a..14333449d262b4fad02b614f81937e2c67a05581:/embed.h

diff --git a/embed.h b/embed.h
index 8a0e3d6..b2ea284 100644
--- a/embed.h
+++ b/embed.h
@@ -2465,6 +2465,8 @@
 #endif
 #ifdef PERL_CORE
 #endif
+#if defined(PERL_CORE) || defined(PERL_EXT)
+#endif
 #define hv_store(a,b,c,d,e)	Perl_hv_store(aTHX_ a,b,c,d,e)
 #define hv_store_ent(a,b,c,d)	Perl_hv_store_ent(aTHX_ a,b,c,d)
 #define hv_store_flags(a,b,c,d,e,f)	Perl_hv_store_flags(aTHX_ a,b,c,d,e,f)
@@ -3394,7 +3396,7 @@
 #define need_utf8		S_need_utf8
 #define first_symbol		S_first_symbol
 #define sv_exp_grow(a,b)	S_sv_exp_grow(aTHX_ a,b)
-#define bytes_to_uni(a,b,c)	S_bytes_to_uni(aTHX_ a,b,c)
+#define bytes_to_uni		S_bytes_to_uni
 #endif
 #endif
 #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
@@ -3692,8 +3694,6 @@
 #define sv_setsv_cow(a,b)	Perl_sv_setsv_cow(aTHX_ a,b)
 #endif
 #endif
-#ifdef PERL_CORE
-#endif
 #if defined(USE_PERLIO) && !defined(USE_SFIO)
 #define PerlIO_close(a)		Perl_PerlIO_close(aTHX_ a)
 #define PerlIO_fill(a)		Perl_PerlIO_fill(aTHX_ a)