From 2aa6a10326178f0f3d8bbf2f0847bd6f4e40b81b Mon Sep 17 00:00:00 2001 From: Abe Timmerman Date: Sun, 2 Mar 2003 03:03:16 +0100 Subject: [PATCH] Re: [PATCH embed.fnc] Re: [PATCH] Get MSWin32 back compiling Message-Id: <200303020203.16708.abe@ztreet.demon.nl> p4raw-id: //depot/perl@18795 --- embed.fnc | 2 +- embed.h | 4 ---- makedef.pl | 1 + 3 files changed, 2 insertions(+), 5 deletions(-) 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 )]; } -- 2.7.4