This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Get MSWin32 back compiling
authorAbe Timmerman <abe@ztreet.demon.nl>
Sat, 1 Mar 2003 04:31:19 +0000 (05:31 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 1 Mar 2003 08:14:43 +0000 (08:14 +0000)
Message-Id: <200303010431.20205.abe@ztreet.demon.nl>

p4raw-id: //depot/perl@18792

embed.fnc
embed.h
global.sym
makedef.pl

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
 #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)
index ca46f6f..b0b4216 100644 (file)
@@ -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
index 3813b9f..848e8d9 100644 (file)
@@ -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