From f7abe70be985cb9179c2e728a593cb8a5c8e049d Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Wed, 24 Feb 2010 11:47:08 +0000 Subject: Abstract *correct* initialisation of CLONE_PARAMS into Perl_clone_params_new(). As it allocates memory dynamically, add Perl_clone_params_del(). This will allow CLONE_PARAMS to be expand in future in a source and binary compatible fashion. These implementations of Perl_clone_params_new()/Perl_clone_params_del() jump through hoops to remain source and binary compatible, in particular, by not assuming that the structure member is present and correctly initialised. Hence they should be suitable for inclusion into Devel::PPPort. Convert threads.xs to use them, resolving RT #73046. --- embed.h | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'embed.h') diff --git a/embed.h b/embed.h index 02871f2419..819f76a4ea 100644 --- a/embed.h +++ b/embed.h @@ -2043,6 +2043,8 @@ #ifdef PERL_CORE #define boot_core_mro Perl_boot_core_mro #endif +#if defined(USE_ITHREADS) +#endif #define ck_anoncode Perl_ck_anoncode #define ck_bitop Perl_ck_bitop #define ck_chdir Perl_ck_chdir @@ -4478,6 +4480,8 @@ #endif #ifdef PERL_CORE #endif +#if defined(USE_ITHREADS) +#endif #define ck_anoncode(a) Perl_ck_anoncode(aTHX_ a) #define ck_bitop(a) Perl_ck_bitop(aTHX_ a) #define ck_chdir(a) Perl_ck_chdir(aTHX_ a) -- cgit v1.2.1