X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.h;h=5b1916a3aadaab5500a6eaf9d8becdf4dfe8cd8a;hb=4f5010f268a8de0d9ea78da367041150ef2777f4;hp=3812e2da3ea35037338ba45eb31ca6da19bdb727;hpb=979f29225180f8c09f4adec52f850ae45694fd81;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/embed.h b/embed.h
index 3812e2d..5b1916a 100644
--- a/embed.h
+++ b/embed.h
@@ -1160,6 +1160,7 @@
 #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
 #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
@@ -1180,6 +1181,7 @@
 #define get_num			S_get_num
 #define need_utf8		S_need_utf8
 #define first_symbol		S_first_symbol
+#define sv_exp_grow		S_sv_exp_grow
 #endif
 #endif
 #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
@@ -1196,8 +1198,10 @@
 #define dopoptosub_at		S_dopoptosub_at
 #define save_lines		S_save_lines
 #define doeval			S_doeval
+#define check_type_and_open	S_check_type_and_open
 #define doopen_pm		S_doopen_pm
 #define path_is_absolute	S_path_is_absolute
+#define run_user_filter		S_run_user_filter
 #endif
 #endif
 #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
@@ -1300,6 +1304,8 @@
 #ifdef PERL_CORE
 #define deb_curcv		S_deb_curcv
 #define debprof			S_debprof
+#define sequence		S_sequence
+#define sequence_num		S_sequence_num
 #endif
 #endif
 #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
@@ -1312,8 +1318,6 @@
 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
 #ifdef PERL_CORE
 #define uiv_2buf		S_uiv_2buf
-#define asIV			S_asIV
-#define asUV			S_asUV
 #define sv_unglob		S_sv_unglob
 #define not_a_number		S_not_a_number
 #define visit			S_visit
@@ -1393,6 +1397,7 @@
 #  if defined(PERL_CR_FILTER)
 #ifdef PERL_CORE
 #define cr_textfilter		S_cr_textfilter
+#define strip_return		S_strip_return
 #endif
 #  endif
 #endif
@@ -1414,6 +1419,7 @@
 #define mess_alloc		S_mess_alloc
 #define vdie_croak_common	S_vdie_croak_common
 #define vdie_common		S_vdie_common
+#define write_no_mem		S_write_no_mem
 #endif
 #endif
 #if defined(PERL_IN_NUMERIC_C) || defined(PERL_DECL_PROT)
@@ -3165,6 +3171,7 @@
 #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
 #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
@@ -3185,6 +3192,7 @@
 #define get_num(a,b)		S_get_num(aTHX_ a,b)
 #define need_utf8		S_need_utf8
 #define first_symbol		S_first_symbol
+#define sv_exp_grow(a,b)	S_sv_exp_grow(aTHX_ a,b)
 #endif
 #endif
 #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
@@ -3201,8 +3209,10 @@
 #define dopoptosub_at(a,b)	S_dopoptosub_at(aTHX_ a,b)
 #define save_lines(a,b)		S_save_lines(aTHX_ a,b)
 #define doeval(a,b,c,d)		S_doeval(aTHX_ a,b,c,d)
+#define check_type_and_open(a,b)	S_check_type_and_open(aTHX_ a,b)
 #define doopen_pm(a,b)		S_doopen_pm(aTHX_ a,b)
 #define path_is_absolute(a)	S_path_is_absolute(aTHX_ a)
+#define run_user_filter(a,b,c)	S_run_user_filter(aTHX_ a,b,c)
 #endif
 #endif
 #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
@@ -3304,6 +3314,8 @@
 #ifdef PERL_CORE
 #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_num(a)		S_sequence_num(aTHX_ a)
 #endif
 #endif
 #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
@@ -3318,8 +3330,6 @@
 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
 #ifdef PERL_CORE
 #define uiv_2buf		S_uiv_2buf
-#define asIV(a)			S_asIV(aTHX_ a)
-#define asUV(a)			S_asUV(aTHX_ a)
 #define sv_unglob(a)		S_sv_unglob(aTHX_ a)
 #define not_a_number(a)		S_not_a_number(aTHX_ a)
 #define visit(a,b,c)		S_visit(aTHX_ a,b,c)
@@ -3399,6 +3409,7 @@
 #  if defined(PERL_CR_FILTER)
 #ifdef PERL_CORE
 #define cr_textfilter(a,b,c)	S_cr_textfilter(aTHX_ a,b,c)
+#define strip_return(a)		S_strip_return(aTHX_ a)
 #endif
 #  endif
 #endif
@@ -3420,6 +3431,7 @@
 #define mess_alloc()		S_mess_alloc(aTHX)
 #define vdie_croak_common(a,b,c,d)	S_vdie_croak_common(aTHX_ a,b,c,d)
 #define vdie_common(a,b,c)	S_vdie_common(aTHX_ a,b,c)
+#define write_no_mem()		S_write_no_mem(aTHX)
 #endif
 #endif
 #if defined(PERL_IN_NUMERIC_C) || defined(PERL_DECL_PROT)