X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.h;h=5edf4bad0899473f14ad257870b92ad16301e710;hb=a86fbd4f9d493275993c0370a0246611dbcffc30;hp=430b4973ded8d37a5ffedf23f227f76ad0c83651;hpb=cbf82dd00c19573e7e274a1d8dda9656bc6e259a;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/embed.h b/embed.h
index 430b497..5edf4ba 100644
--- a/embed.h
+++ b/embed.h
@@ -542,6 +542,7 @@
 #define newSLICEOP		Perl_newSLICEOP
 #define newSTATEOP		Perl_newSTATEOP
 #define newSUB			Perl_newSUB
+#define newXS_flags		Perl_newXS_flags
 #define newXS			Perl_newXS
 #define newAV			Perl_newAV
 #define newAVREF		Perl_newAVREF
@@ -793,7 +794,8 @@
 #define sv_2io			Perl_sv_2io
 #ifdef PERL_IN_SV_C
 #ifdef PERL_CORE
-#define glob_2inpuv		S_glob_2inpuv
+#define glob_2number		S_glob_2number
+#define glob_2pv		S_glob_2pv
 #endif
 #endif
 #define sv_2iv_flags		Perl_sv_2iv_flags
@@ -901,7 +903,7 @@
 #define unpack_str		Perl_unpack_str
 #define unpackstring		Perl_unpackstring
 #define unsharepvn		Perl_unsharepvn
-#ifdef PERL_CORE
+#if defined(PERL_CORE) || defined(PERL_EXT)
 #define unshare_hek		Perl_unshare_hek
 #endif
 #ifdef PERL_MAD
@@ -1203,8 +1205,6 @@
 #ifdef PERL_CORE
 #define parse_body		S_parse_body
 #define run_body		S_run_body
-#define call_body		S_call_body
-#define call_list_body		S_call_list_body
 #define incpush_if_exists	S_incpush_if_exists
 #endif
 #endif
@@ -1354,6 +1354,7 @@
 #define deb_curcv		S_deb_curcv
 #define debprof			S_debprof
 #define sequence		S_sequence
+#define sequence_tail		S_sequence_tail
 #define sequence_num		S_sequence_num
 #define pm_description		S_pm_description
 #endif
@@ -2431,6 +2432,8 @@
 #define gv_fetchpv(a,b,c)	Perl_gv_fetchpv(aTHX_ a,b,c)
 #define gv_fullname(a,b)	Perl_gv_fullname(aTHX_ a,b)
 #define gv_fullname4(a,b,c,d)	Perl_gv_fullname4(aTHX_ a,b,c,d)
+#ifdef PERL_CORE
+#endif
 #define gv_init(a,b,c,d,e)	Perl_gv_init(aTHX_ a,b,c,d,e)
 #define gv_name_set(a,b,c,d)	Perl_gv_name_set(aTHX_ a,b,c,d)
 #define gv_stashpv(a,b)		Perl_gv_stashpv(aTHX_ a,b)
@@ -2708,6 +2711,7 @@
 #define newSLICEOP(a,b,c)	Perl_newSLICEOP(aTHX_ a,b,c)
 #define newSTATEOP(a,b,c)	Perl_newSTATEOP(aTHX_ a,b,c)
 #define newSUB(a,b,c,d)		Perl_newSUB(aTHX_ a,b,c,d)
+#define newXS_flags(a,b,c,d,e)	Perl_newXS_flags(aTHX_ a,b,c,d,e)
 #define newXS(a,b,c)		Perl_newXS(aTHX_ a,b,c)
 #define newAV()			Perl_newAV(aTHX)
 #define newAVREF(a)		Perl_newAVREF(aTHX_ a)
@@ -2955,7 +2959,8 @@
 #define sv_2io(a)		Perl_sv_2io(aTHX_ a)
 #ifdef PERL_IN_SV_C
 #ifdef PERL_CORE
-#define glob_2inpuv(a,b,c)	S_glob_2inpuv(aTHX_ a,b,c)
+#define glob_2number(a)		S_glob_2number(aTHX_ a)
+#define glob_2pv(a,b)		S_glob_2pv(aTHX_ a,b)
 #endif
 #endif
 #define sv_2iv_flags(a,b)	Perl_sv_2iv_flags(aTHX_ a,b)
@@ -3061,7 +3066,7 @@
 #define unpack_str(a,b,c,d,e,f,g,h)	Perl_unpack_str(aTHX_ a,b,c,d,e,f,g,h)
 #define unpackstring(a,b,c,d,e)	Perl_unpackstring(aTHX_ a,b,c,d,e)
 #define unsharepvn(a,b,c)	Perl_unsharepvn(aTHX_ a,b,c)
-#ifdef PERL_CORE
+#if defined(PERL_CORE) || defined(PERL_EXT)
 #define unshare_hek(a)		Perl_unshare_hek(aTHX_ a)
 #endif
 #ifdef PERL_MAD
@@ -3360,8 +3365,6 @@
 #ifdef PERL_CORE
 #define parse_body(a,b)		S_parse_body(aTHX_ a,b)
 #define run_body(a)		S_run_body(aTHX_ a)
-#define call_body(a,b)		S_call_body(aTHX_ a,b)
-#define call_list_body(a)	S_call_list_body(aTHX_ a)
 #define incpush_if_exists(a)	S_incpush_if_exists(aTHX_ a)
 #endif
 #endif
@@ -3510,6 +3513,7 @@
 #define deb_curcv(a)		S_deb_curcv(aTHX_ a)
 #define debprof(a)		S_debprof(aTHX_ a)
 #define sequence(a)		S_sequence(aTHX_ a)
+#define sequence_tail(a)	S_sequence_tail(aTHX_ a)
 #define sequence_num(a)		S_sequence_num(aTHX_ a)
 #define pm_description(a)	S_pm_description(aTHX_ a)
 #endif
@@ -3550,8 +3554,8 @@
 #define expect_number(a)	S_expect_number(aTHX_ a)
 #endif
 #ifdef PERL_CORE
-#define sv_pos_u2b_forwards(a,b,c)	S_sv_pos_u2b_forwards(aTHX_ a,b,c)
-#define sv_pos_u2b_midway(a,b,c,d)	S_sv_pos_u2b_midway(aTHX_ a,b,c,d)
+#define sv_pos_u2b_forwards	S_sv_pos_u2b_forwards
+#define sv_pos_u2b_midway	S_sv_pos_u2b_midway
 #define sv_pos_u2b_cached(a,b,c,d,e,f,g)	S_sv_pos_u2b_cached(aTHX_ a,b,c,d,e,f,g)
 #define utf8_mg_pos_cache_update(a,b,c,d,e)	S_utf8_mg_pos_cache_update(aTHX_ a,b,c,d,e)
 #define sv_pos_b2u_forwards(a,b)	S_sv_pos_b2u_forwards(aTHX_ a,b)
@@ -3715,7 +3719,7 @@
 #ifdef PERL_CORE
 #define pad_new(a)		Perl_pad_new(aTHX_ a)
 #define pad_undef(a)		Perl_pad_undef(aTHX_ a)
-#define pad_add_name(a,b,c,d)	Perl_pad_add_name(aTHX_ a,b,c,d)
+#define pad_add_name(a,b,c,d,e)	Perl_pad_add_name(aTHX_ a,b,c,d,e)
 #define pad_add_anon(a,b)	Perl_pad_add_anon(aTHX_ a,b)
 #define pad_check_dup(a,b,c)	Perl_pad_check_dup(aTHX_ a,b,c)
 #endif