From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 14 Apr 2006 14:45:04 +0000 (+0000)
Subject: Mark new_warnings_bitfield as XE, and add it to __DATA__ in makedef.pl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1242dfaee525d4d0ab20ac8ae62b3f0de03fa88e;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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
--- 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