This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH embed.fnc] Re: [PATCH] Get MSWin32 back compiling
authorAbe Timmerman <abe@ztreet.demon.nl>
Sun, 2 Mar 2003 02:03:16 +0000 (03:03 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 2 Mar 2003 07:27:44 +0000 (07:27 +0000)
Message-Id: <200303020203.16708.abe@ztreet.demon.nl>

p4raw-id: //depot/perl@18795

embed.fnc
embed.h
makedef.pl

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
 #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
 #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)
index 848e8d9..ef84c18 100644 (file)
@@ -563,6 +563,7 @@ else {
 unless ($define{'PERL_COPY_ON_WRITE'}) {
     skip_symbols [qw(
                    Perl_sv_setsv_cow
+                   Perl_sv_release_IVX
                  )];
 }