From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Wed, 17 Dec 2003 13:26:52 +0000 (+0100)
Subject: arguments for perl_clone()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ee956dc206f0a1e3495f116d23b007edb948e192;p=p5sagit%2Fp5-mst-13.2.git

arguments for perl_clone()
From: "Marcus Holland-Moritz" <mhx-perl@gmx.net>
Message-ID: <055701c3c499$11144f90$8cecfe91@R2D2>

p4raw-id: //depot/perl@21922
---

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