Re: [PATCH embed.fnc] Re: [PATCH] Get MSWin32 back compiling

Message-Id: <200303020203.16708.abe@ztreet.demon.nl>

p4raw-id: //depot/perl@18795

diff --git a/embed.fnc b/embed.fnc
index 4201ece..b62ec99 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -945,7 +945,7 @@ Ap |char * |custom_op_name|OP* op
 Ap |char * |custom_op_desc|OP* op
 
 #if defined(PERL_COPY_ON_WRITE)
-pM     |int    |sv_release_IVX |SV *sv
+ApM    |int    |sv_release_IVX |SV *sv
 #endif
 
 Adp    |void   |sv_nosharing   |SV *

diff --git a/embed.h b/embed.h
index b388c9e..261dcba 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -1230,10 +1230,8 @@
 #define custom_op_name         Perl_custom_op_name
 #define custom_op_desc         Perl_custom_op_desc
 #if defined(PERL_COPY_ON_WRITE)
-#ifdef PERL_CORE
 #define sv_release_IVX         Perl_sv_release_IVX
 #endif
-#endif
 #define sv_nosharing           Perl_sv_nosharing
 #define sv_nolocking           Perl_sv_nolocking
 #define sv_nounlocking         Perl_sv_nounlocking
@@ -3682,10 +3680,8 @@
 #define custom_op_name(a)      Perl_custom_op_name(aTHX_ a)
 #define custom_op_desc(a)      Perl_custom_op_desc(aTHX_ a)
 #if defined(PERL_COPY_ON_WRITE)
-#ifdef PERL_CORE
 #define sv_release_IVX(a)      Perl_sv_release_IVX(aTHX_ a)
 #endif
-#endif
 #define sv_nosharing(a)                Perl_sv_nosharing(aTHX_ a)
 #define sv_nolocking(a)                Perl_sv_nolocking(aTHX_ a)
 #define sv_nounlocking(a)      Perl_sv_nounlocking(aTHX_ a)

diff --git a/makedef.pl b/makedef.pl
index 848e8d9..ef84c18 100644 (file)
--- a/makedef.pl
+++ b/makedef.pl
@@ -563,6 +563,7 @@ else {
 unless ($define{'PERL_COPY_ON_WRITE'}) {
     skip_symbols [qw(
                    Perl_sv_setsv_cow
+                   Perl_sv_release_IVX
                  )];
 }