From: Abe Timmerman <abe@ztreet.demon.nl>
Date: Sat, 1 Mar 2003 04:31:19 +0000 (+0100)
Subject: Get MSWin32 back compiling
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0190f6ec86786064d260189cc19ad5f413c4a0a3;p=p5sagit%2Fp5-mst-13.2.git

Get MSWin32 back compiling
Message-Id: <200303010431.20205.abe@ztreet.demon.nl>

p4raw-id: //depot/perl@18792
---

diff --git a/embed.fnc b/embed.fnc
index 90c93d0..4201ece 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -727,7 +727,7 @@ Ap	|void	|sv_dump	|SV* sv
 Apd	|bool	|sv_derived_from|SV* sv|const char* name
 Apd	|I32	|sv_eq		|SV* sv1|SV* sv2
 Apd	|void	|sv_free	|SV* sv
-po	|void	|sv_free2	|SV* sv
+Apo	|void	|sv_free2	|SV* sv
 pd	|void	|sv_free_arenas
 Apd	|char*	|sv_gets	|SV* sv|PerlIO* fp|I32 append
 Apd	|char*	|sv_grow	|SV* sv|STRLEN newlen
diff --git a/embed.h b/embed.h
index b4a4658..b388c9e 100644
--- a/embed.h
+++ b/embed.h
@@ -3464,8 +3464,6 @@
 #define sv_eq(a,b)		Perl_sv_eq(aTHX_ a,b)
 #define sv_free(a)		Perl_sv_free(aTHX_ a)
 #ifdef PERL_CORE
-#endif
-#ifdef PERL_CORE
 #define sv_free_arenas()	Perl_sv_free_arenas(aTHX)
 #endif
 #define sv_gets(a,b,c)		Perl_sv_gets(aTHX_ a,b,c)
diff --git a/global.sym b/global.sym
index ca46f6f..b0b4216 100644
--- a/global.sym
+++ b/global.sym
@@ -450,6 +450,7 @@ Perl_sv_dump
 Perl_sv_derived_from
 Perl_sv_eq
 Perl_sv_free
+Perl_sv_free2
 Perl_sv_gets
 Perl_sv_grow
 Perl_sv_inc
diff --git a/makedef.pl b/makedef.pl
index 3813b9f..848e8d9 100644
--- a/makedef.pl
+++ b/makedef.pl
@@ -560,6 +560,12 @@ else {
 		    )];
 }
 
+unless ($define{'PERL_COPY_ON_WRITE'}) {
+    skip_symbols [qw(
+		    Perl_sv_setsv_cow
+		  )];
+}
+
 unless ($define{'PERL_FLEXIBLE_EXCEPTIONS'}) {
     skip_symbols [qw(
 		    PL_protect