Change 27800 by [EMAIL PROTECTED] on 2006/04/14 14:45:04

        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.

Affected files ...

... //depot/perl/embed.fnc#354 edit
... //depot/perl/embed.h#584 edit
... //depot/perl/global.sym#297 edit
... //depot/perl/makedef.pl#199 edit

Differences ...

==== //depot/perl/embed.fnc#354 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#353~27794~   2006-04-13 11:31:54.000000000 -0700
+++ perl/embed.fnc      2006-04-14 07:45:04.000000000 -0700
@@ -1666,7 +1666,7 @@
 #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

==== //depot/perl/embed.h#584 (text+w) ====
Index: perl/embed.h
--- perl/embed.h#583~27783~     2006-04-12 19:20:33.000000000 -0700
+++ perl/embed.h        2006-04-14 07:45:04.000000000 -0700
@@ -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)

==== //depot/perl/global.sym#297 (text+w) ====
Index: perl/global.sym
--- perl/global.sym#296~27422~  2006-03-08 08:29:26.000000000 -0800
+++ perl/global.sym     2006-04-14 07:45:04.000000000 -0700
@@ -706,6 +706,7 @@
 Perl_gv_SVadd
 Perl_ckwarn
 Perl_ckwarn_d
+Perl_new_warnings_bitfield
 Perl_my_sprintf
 Perl_my_cxt_init
 # ex: set ro:

==== //depot/perl/makedef.pl#199 (text) ====
Index: perl/makedef.pl
--- perl/makedef.pl#198~27643~  2006-03-31 05:45:57.000000000 -0800
+++ perl/makedef.pl     2006-04-14 07:45:04.000000000 -0700
@@ -747,7 +747,6 @@
                    Perl_sharedsv_thrcnt_inc
                    Perl_sharedsv_unlock
                    Perl_stashpv_hvname_match
-                   Perl_refcounted_he_dup
                    )];
 }
 
@@ -1574,6 +1573,7 @@
 1;
 __DATA__
 # extra globals not included above.
+Perl_new_warnings_bitfield
 Perl_cxinc
 perl_alloc
 perl_alloc_using
End of Patch.

Reply via email to