From ee956dc206f0a1e3495f116d23b007edb948e192 Mon Sep 17 00:00:00 2001 From: Marcus Holland-Moritz Date: Wed, 17 Dec 2003 14:26:52 +0100 Subject: [PATCH] arguments for perl_clone() From: "Marcus Holland-Moritz" Message-ID: <055701c3c499$11144f90$8cecfe91@R2D2> p4raw-id: //depot/perl@21922 --- embed.fnc | 2 +- embed.h | 16 ++++++++-------- global.sym | 2 +- 3 files changed, 10 insertions(+), 10 deletions(-) diff --git a/embed.fnc b/embed.fnc index 903a5e5..0064e8b 100644 --- a/embed.fnc +++ b/embed.fnc @@ -47,7 +47,7 @@ Anod |int |perl_parse |PerlInterpreter* interp|XSINIT_t xsinit \ |int argc|char** argv|char** env Anp |bool |doing_taint |int argc|char** argv|char** env #if defined(USE_ITHREADS) -Anod |PerlInterpreter*|perl_clone|PerlInterpreter* interp, UV flags +Anod |PerlInterpreter*|perl_clone|PerlInterpreter* interp|UV flags # if defined(PERL_IMPLICIT_SYS) Ano |PerlInterpreter*|perl_clone_using|PerlInterpreter *interp|UV flags \ |struct IPerlMem* m|struct IPerlMem* ms \ diff --git a/embed.h b/embed.h index 2d195b6..6386676 100644 --- a/embed.h +++ b/embed.h @@ -340,7 +340,6 @@ #define hv_iterval Perl_hv_iterval #define hv_ksplit Perl_hv_ksplit #define hv_magic Perl_hv_magic -#define hv_scalar Perl_hv_scalar #define hv_store Perl_hv_store #define hv_store_ent Perl_hv_store_ent #define hv_store_flags Perl_hv_store_flags @@ -537,9 +536,6 @@ #define magic_regdatum_set Perl_magic_regdatum_set #endif #ifdef PERL_CORE -#define magic_scalarpack Perl_magic_scalarpack -#endif -#ifdef PERL_CORE #define magic_set Perl_magic_set #endif #ifdef PERL_CORE @@ -2156,6 +2152,10 @@ #endif #endif #define hv_clear_placeholders Perl_hv_clear_placeholders +#define hv_scalar Perl_hv_scalar +#ifdef PERL_CORE +#define magic_scalarpack Perl_magic_scalarpack +#endif #define ck_anoncode Perl_ck_anoncode #define ck_bitop Perl_ck_bitop #define ck_concat Perl_ck_concat @@ -2841,7 +2841,6 @@ #define hv_iterval(a,b) Perl_hv_iterval(aTHX_ a,b) #define hv_ksplit(a,b) Perl_hv_ksplit(aTHX_ a,b) #define hv_magic(a,b,c) Perl_hv_magic(aTHX_ a,b,c) -#define hv_scalar(a) Perl_hv_scalar(aTHX_ a) #define hv_store(a,b,c,d,e) Perl_hv_store(aTHX_ a,b,c,d,e) #define hv_store_ent(a,b,c,d) Perl_hv_store_ent(aTHX_ a,b,c,d) #define hv_store_flags(a,b,c,d,e,f) Perl_hv_store_flags(aTHX_ a,b,c,d,e,f) @@ -3037,9 +3036,6 @@ #define magic_regdatum_set(a,b) Perl_magic_regdatum_set(aTHX_ a,b) #endif #ifdef PERL_CORE -#define magic_scalarpack(a,b) Perl_magic_scalarpack(aTHX_ a,b) -#endif -#ifdef PERL_CORE #define magic_set(a,b) Perl_magic_set(aTHX_ a,b) #endif #ifdef PERL_CORE @@ -4648,6 +4644,10 @@ #endif #endif #define hv_clear_placeholders(a) Perl_hv_clear_placeholders(aTHX_ a) +#define hv_scalar(a) Perl_hv_scalar(aTHX_ a) +#ifdef PERL_CORE +#define magic_scalarpack(a,b) Perl_magic_scalarpack(aTHX_ a,b) +#endif #define ck_anoncode(a) Perl_ck_anoncode(aTHX_ a) #define ck_bitop(a) Perl_ck_bitop(aTHX_ a) #define ck_concat(a) Perl_ck_concat(aTHX_ a) diff --git a/global.sym b/global.sym index b79b946..b9a65d2 100644 --- a/global.sym +++ b/global.sym @@ -156,7 +156,6 @@ Perl_hv_iternext_flags Perl_hv_iterval Perl_hv_ksplit Perl_hv_magic -Perl_hv_scalar Perl_hv_store Perl_hv_store_ent Perl_hv_store_flags @@ -667,3 +666,4 @@ Perl_PerlIO_stderr Perl_save_set_svflags Perl_hv_assert Perl_hv_clear_placeholders +Perl_hv_scalar -- 2.7.4