X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.h;h=42ca535100b7d7fe71feadac505e35a0554f073c;hb=494f3023e6cb99f0f26ded70a0869fe24d04973e;hp=fe0b6b319824b0bfd952af9bef7a7921a39e664c;hpb=f9a6324217cffea75ff769ddd313748c0613a128;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/embed.h b/embed.h
index fe0b6b3..42ca535 100644
--- a/embed.h
+++ b/embed.h
@@ -698,6 +698,7 @@
 #define sv_setuv		Perl_sv_setuv
 #define sv_setnv		Perl_sv_setnv
 #define sv_setref_iv		Perl_sv_setref_iv
+#define sv_setref_uv		Perl_sv_setref_uv
 #define sv_setref_nv		Perl_sv_setref_nv
 #define sv_setref_pv		Perl_sv_setref_pv
 #define sv_setref_pvn		Perl_sv_setref_pvn
@@ -853,6 +854,8 @@
 #define ptr_table_fetch		Perl_ptr_table_fetch
 #define ptr_table_store		Perl_ptr_table_store
 #define ptr_table_split		Perl_ptr_table_split
+#define ptr_table_clear		Perl_ptr_table_clear
+#define ptr_table_free		Perl_ptr_table_free
 #endif
 #if defined(HAVE_INTERP_INTERN)
 #define sys_intern_clear	Perl_sys_intern_clear
@@ -910,7 +913,9 @@
 #define simplify_sort		S_simplify_sort
 #define is_handle_constructor	S_is_handle_constructor
 #define gv_ename		S_gv_ename
+#  if defined(DEBUG_CLOSURES)
 #define cv_dump			S_cv_dump
+#  endif
 #define cv_clone2		S_cv_clone2
 #define scalar_mod_type		S_scalar_mod_type
 #define my_kid			S_my_kid
@@ -1098,6 +1103,9 @@
 #define sv_2iuv_non_preserve	S_sv_2iuv_non_preserve
 #  endif
 #define expect_number		S_expect_number
+#  if defined(USE_ITHREADS)
+#define gv_share		S_gv_share
+#  endif
 #endif
 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
 #define check_uni		S_check_uni
@@ -2176,6 +2184,7 @@
 #define sv_setuv(a,b)		Perl_sv_setuv(aTHX_ a,b)
 #define sv_setnv(a,b)		Perl_sv_setnv(aTHX_ a,b)
 #define sv_setref_iv(a,b,c)	Perl_sv_setref_iv(aTHX_ a,b,c)
+#define sv_setref_uv(a,b,c)	Perl_sv_setref_uv(aTHX_ a,b,c)
 #define sv_setref_nv(a,b,c)	Perl_sv_setref_nv(aTHX_ a,b,c)
 #define sv_setref_pv(a,b,c)	Perl_sv_setref_pv(aTHX_ a,b,c)
 #define sv_setref_pvn(a,b,c,d)	Perl_sv_setref_pvn(aTHX_ a,b,c,d)
@@ -2325,6 +2334,8 @@
 #define ptr_table_fetch(a,b)	Perl_ptr_table_fetch(aTHX_ a,b)
 #define ptr_table_store(a,b,c)	Perl_ptr_table_store(aTHX_ a,b,c)
 #define ptr_table_split(a)	Perl_ptr_table_split(aTHX_ a)
+#define ptr_table_clear(a)	Perl_ptr_table_clear(aTHX_ a)
+#define ptr_table_free(a)	Perl_ptr_table_free(aTHX_ a)
 #endif
 #if defined(HAVE_INTERP_INTERN)
 #define sys_intern_clear()	Perl_sys_intern_clear(aTHX)
@@ -2382,7 +2393,9 @@
 #define simplify_sort(a)	S_simplify_sort(aTHX_ a)
 #define is_handle_constructor(a,b)	S_is_handle_constructor(aTHX_ a,b)
 #define gv_ename(a)		S_gv_ename(aTHX_ a)
+#  if defined(DEBUG_CLOSURES)
 #define cv_dump(a)		S_cv_dump(aTHX_ a)
+#  endif
 #define cv_clone2(a,b)		S_cv_clone2(aTHX_ a,b)
 #define scalar_mod_type(a,b)	S_scalar_mod_type(aTHX_ a,b)
 #define my_kid(a,b)		S_my_kid(aTHX_ a,b)
@@ -2569,6 +2582,9 @@
 #define sv_2iuv_non_preserve(a,b)	S_sv_2iuv_non_preserve(aTHX_ a,b)
 #  endif
 #define expect_number(a)	S_expect_number(aTHX_ a)
+#  if defined(USE_ITHREADS)
+#define gv_share(a)		S_gv_share(aTHX_ a)
+#  endif
 #endif
 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
 #define check_uni()		S_check_uni(aTHX)
@@ -4270,6 +4286,8 @@
 #define sv_setnv		Perl_sv_setnv
 #define Perl_sv_setref_iv	CPerlObj::Perl_sv_setref_iv
 #define sv_setref_iv		Perl_sv_setref_iv
+#define Perl_sv_setref_uv	CPerlObj::Perl_sv_setref_uv
+#define sv_setref_uv		Perl_sv_setref_uv
 #define Perl_sv_setref_nv	CPerlObj::Perl_sv_setref_nv
 #define sv_setref_nv		Perl_sv_setref_nv
 #define Perl_sv_setref_pv	CPerlObj::Perl_sv_setref_pv
@@ -4561,6 +4579,10 @@
 #define ptr_table_store		Perl_ptr_table_store
 #define Perl_ptr_table_split	CPerlObj::Perl_ptr_table_split
 #define ptr_table_split		Perl_ptr_table_split
+#define Perl_ptr_table_clear	CPerlObj::Perl_ptr_table_clear
+#define ptr_table_clear		Perl_ptr_table_clear
+#define Perl_ptr_table_free	CPerlObj::Perl_ptr_table_free
+#define ptr_table_free		Perl_ptr_table_free
 #endif
 #if defined(HAVE_INTERP_INTERN)
 #define Perl_sys_intern_clear	CPerlObj::Perl_sys_intern_clear
@@ -4658,8 +4680,10 @@
 #define is_handle_constructor	S_is_handle_constructor
 #define S_gv_ename		CPerlObj::S_gv_ename
 #define gv_ename		S_gv_ename
+#  if defined(DEBUG_CLOSURES)
 #define S_cv_dump		CPerlObj::S_cv_dump
 #define cv_dump			S_cv_dump
+#  endif
 #define S_cv_clone2		CPerlObj::S_cv_clone2
 #define cv_clone2		S_cv_clone2
 #define S_scalar_mod_type	CPerlObj::S_scalar_mod_type
@@ -4998,6 +5022,10 @@
 #  endif
 #define S_expect_number		CPerlObj::S_expect_number
 #define expect_number		S_expect_number
+#  if defined(USE_ITHREADS)
+#define S_gv_share		CPerlObj::S_gv_share
+#define gv_share		S_gv_share
+#  endif
 #endif
 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
 #define S_check_uni		CPerlObj::S_check_uni