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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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