From: Abe Timmerman <abe@ztreet.demon.nl>
Date: Sun, 2 Mar 2003 02:03:16 +0000 (+0100)
Subject: Re: [PATCH embed.fnc] Re: [PATCH] Get MSWin32 back compiling
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2aa6a10326178f0f3d8bbf2f0847bd6f4e40b81b;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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
 		  )];
 }