Mark new_warnings_bitfield as XE, and add it to __DATA__ in makedef.pl

Remove a reference to the deleted function Perl_refcounted_he_dup.

p4raw-id: //depot/perl@27800

diff --git a/embed.fnc b/embed.fnc
index a6e27b4..1d8e5f1 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1666,7 +1666,7 @@ Ap        |GV*    |gv_SVadd       |NN GV* gv
 #endif
 Apo    |bool   |ckwarn         |U32 w
 Apo    |bool   |ckwarn_d       |U32 w
-opMa   |STRLEN *|new_warnings_bitfield|NULLOK STRLEN *buffer \
+XEopMa |STRLEN *|new_warnings_bitfield|NULLOK STRLEN *buffer \
                                |NN const char *const bits|STRLEN size
 
 p      |void   |offer_nice_chunk       |NN void *chunk|U32 chunk_size

diff --git a/embed.h b/embed.h
index d3a7c79..c83467f 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -3906,7 +3906,7 @@
 #ifdef PERL_DONT_CREATE_GVSV
 #define gv_SVadd(a)            Perl_gv_SVadd(aTHX_ a)
 #endif
-#ifdef PERL_CORE
+#if defined(PERL_CORE) || defined(PERL_EXT)
 #endif
 #ifdef PERL_CORE
 #define offer_nice_chunk(a,b)  Perl_offer_nice_chunk(aTHX_ a,b)

diff --git a/global.sym b/global.sym
index 222af6d..e0595f2 100644 (file)
--- a/global.sym
+++ b/global.sym
@@ -706,6 +706,7 @@ Perl_stashpv_hvname_match
 Perl_gv_SVadd
 Perl_ckwarn
 Perl_ckwarn_d
+Perl_new_warnings_bitfield
 Perl_my_sprintf
 Perl_my_cxt_init
 # ex: set ro:

diff --git a/makedef.pl b/makedef.pl
index f203601..032881a 100644 (file)
--- a/makedef.pl
+++ b/makedef.pl
@@ -747,7 +747,6 @@ unless ($define{'USE_ITHREADS'}) {
                    Perl_sharedsv_thrcnt_inc
                    Perl_sharedsv_unlock
                    Perl_stashpv_hvname_match
-                   Perl_refcounted_he_dup
                    )];
 }
 
@@ -1574,6 +1573,7 @@ sub output_symbol {
 1;
 __DATA__
 # extra globals not included above.
+Perl_new_warnings_bitfield
 Perl_cxinc
 perl_alloc
 perl_alloc_using