X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.h;h=00ae7a710bc1ce6487a6b4e42ee4acdc6a4cc3b0;hb=f337b084e4f053c4222a0b9a773a9e12c0232e6d;hp=4eef0bf740947595850f1964fbf87c7ec4bc8032;hpb=29489e7c741791873ea464cb7e13d2b5a19577a7;p=p5sagit%2Fp5-mst-13.2.git diff --git a/embed.h b/embed.h index 4eef0bf..00ae7a7 100644 --- a/embed.h +++ b/embed.h @@ -307,7 +307,6 @@ #define gv_autoload4 Perl_gv_autoload4 #define gv_check Perl_gv_check #define gv_efullname Perl_gv_efullname -#define gv_efullname3 Perl_gv_efullname3 #define gv_efullname4 Perl_gv_efullname4 #define gv_fetchfile Perl_gv_fetchfile #define gv_fetchmeth Perl_gv_fetchmeth @@ -316,7 +315,6 @@ #define gv_fetchmethod_autoload Perl_gv_fetchmethod_autoload #define gv_fetchpv Perl_gv_fetchpv #define gv_fullname Perl_gv_fullname -#define gv_fullname3 Perl_gv_fullname3 #define gv_fullname4 Perl_gv_fullname4 #define gv_init Perl_gv_init #define gv_stashpv Perl_gv_stashpv @@ -443,6 +441,8 @@ #ifdef PERL_CORE #define op_clear Perl_op_clear #endif +#define op_refcnt_lock Perl_op_refcnt_lock +#define op_refcnt_unlock Perl_op_refcnt_unlock #ifdef PERL_CORE #define linklist Perl_linklist #endif @@ -761,6 +761,7 @@ #ifdef PERL_CORE #define pad_findmy Perl_pad_findmy #endif +#define find_rundefsvoffset Perl_find_rundefsvoffset #ifdef PERL_CORE #define oopsAV Perl_oopsAV #endif @@ -822,16 +823,10 @@ #ifdef PERL_CORE #define pmtrans Perl_pmtrans #endif -#ifdef PERL_CORE -#define pop_return Perl_pop_return -#endif #define pop_scope Perl_pop_scope #ifdef PERL_CORE #define prepend_elem Perl_prepend_elem #endif -#ifdef PERL_CORE -#define push_return Perl_push_return -#endif #define push_scope Perl_push_scope #ifdef PERL_CORE #define ref Perl_ref @@ -1188,10 +1183,6 @@ #define do_pmop_dump Perl_do_pmop_dump #define do_sv_dump Perl_do_sv_dump #define magic_dump Perl_magic_dump -#if defined(PERL_FLEXIBLE_EXCEPTIONS) -#define default_protect Perl_default_protect -#define vdefault_protect Perl_vdefault_protect -#endif #define reginitcolors Perl_reginitcolors #define sv_2pv_nolen Perl_sv_2pv_nolen #define sv_2pvutf8_nolen Perl_sv_2pvutf8_nolen @@ -1449,20 +1440,6 @@ #ifdef PERL_CORE #define call_list_body S_call_list_body #endif -#if defined(PERL_FLEXIBLE_EXCEPTIONS) -#ifdef PERL_CORE -#define vparse_body S_vparse_body -#endif -#ifdef PERL_CORE -#define vrun_body S_vrun_body -#endif -#ifdef PERL_CORE -#define vcall_body S_vcall_body -#endif -#ifdef PERL_CORE -#define vcall_list_body S_vcall_list_body -#endif -#endif #endif #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE @@ -1492,9 +1469,6 @@ #define next_symbol S_next_symbol #endif #ifdef PERL_CORE -#define doencodes S_doencodes -#endif -#ifdef PERL_CORE #define is_an_int S_is_an_int #endif #ifdef PERL_CORE @@ -1508,11 +1482,6 @@ #ifdef PERL_CORE #define docatch_body S_docatch_body #endif -#if defined(PERL_FLEXIBLE_EXCEPTIONS) -#ifdef PERL_CORE -#define vdocatch_body S_vdocatch_body -#endif -#endif #ifdef PERL_CORE #define dofindlabel S_dofindlabel #endif @@ -2283,6 +2252,12 @@ #ifdef PERL_CORE #define my_swabn Perl_my_swabn #endif +#define gv_fetchpvn_flags Perl_gv_fetchpvn_flags +#define gv_fetchsv Perl_gv_fetchsv +#ifdef PERL_CORE +#define is_gv_magical_sv Perl_is_gv_magical_sv +#endif +#define savesvpv Perl_savesvpv #define ck_anoncode Perl_ck_anoncode #define ck_bitop Perl_ck_bitop #define ck_concat Perl_ck_concat @@ -2936,7 +2911,6 @@ #define gv_autoload4(a,b,c,d) Perl_gv_autoload4(aTHX_ a,b,c,d) #define gv_check(a) Perl_gv_check(aTHX_ a) #define gv_efullname(a,b) Perl_gv_efullname(aTHX_ a,b) -#define gv_efullname3(a,b,c) Perl_gv_efullname3(aTHX_ a,b,c) #define gv_efullname4(a,b,c,d) Perl_gv_efullname4(aTHX_ a,b,c,d) #define gv_fetchfile(a) Perl_gv_fetchfile(aTHX_ a) #define gv_fetchmeth(a,b,c,d) Perl_gv_fetchmeth(aTHX_ a,b,c,d) @@ -2945,7 +2919,6 @@ #define gv_fetchmethod_autoload(a,b,c) Perl_gv_fetchmethod_autoload(aTHX_ a,b,c) #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_fullname3(a,b,c) Perl_gv_fullname3(aTHX_ a,b,c) #define gv_fullname4(a,b,c,d) Perl_gv_fullname4(aTHX_ a,b,c,d) #define gv_init(a,b,c,d,e) Perl_gv_init(aTHX_ a,b,c,d,e) #define gv_stashpv(a,b) Perl_gv_stashpv(aTHX_ a,b) @@ -3072,6 +3045,8 @@ #ifdef PERL_CORE #define op_clear(a) Perl_op_clear(aTHX_ a) #endif +#define op_refcnt_lock() Perl_op_refcnt_lock(aTHX) +#define op_refcnt_unlock() Perl_op_refcnt_unlock(aTHX) #ifdef PERL_CORE #define linklist(a) Perl_linklist(aTHX_ a) #endif @@ -3387,6 +3362,7 @@ #ifdef PERL_CORE #define pad_findmy(a) Perl_pad_findmy(aTHX_ a) #endif +#define find_rundefsvoffset() Perl_find_rundefsvoffset(aTHX) #ifdef PERL_CORE #define oopsAV(a) Perl_oopsAV(aTHX_ a) #endif @@ -3449,16 +3425,10 @@ #ifdef PERL_CORE #define pmtrans(a,b,c) Perl_pmtrans(aTHX_ a,b,c) #endif -#ifdef PERL_CORE -#define pop_return() Perl_pop_return(aTHX) -#endif #define pop_scope() Perl_pop_scope(aTHX) #ifdef PERL_CORE #define prepend_elem(a,b,c) Perl_prepend_elem(aTHX_ a,b,c) #endif -#ifdef PERL_CORE -#define push_return(a) Perl_push_return(aTHX_ a) -#endif #define push_scope() Perl_push_scope(aTHX) #ifdef PERL_CORE #define ref(a,b) Perl_ref(aTHX_ a,b) @@ -3810,9 +3780,6 @@ #define do_pmop_dump(a,b,c) Perl_do_pmop_dump(aTHX_ a,b,c) #define do_sv_dump(a,b,c,d,e,f,g) Perl_do_sv_dump(aTHX_ a,b,c,d,e,f,g) #define magic_dump(a) Perl_magic_dump(aTHX_ a) -#if defined(PERL_FLEXIBLE_EXCEPTIONS) -#define vdefault_protect(a,b,c,d) Perl_vdefault_protect(aTHX_ a,b,c,d) -#endif #define reginitcolors() Perl_reginitcolors(aTHX) #define sv_2pv_nolen(a) Perl_sv_2pv_nolen(aTHX_ a) #define sv_2pvutf8_nolen(a) Perl_sv_2pvutf8_nolen(aTHX_ a) @@ -4015,7 +3982,7 @@ #define forbid_setid(a) S_forbid_setid(aTHX_ a) #endif #ifdef PERL_CORE -#define incpush(a,b,c,d) S_incpush(aTHX_ a,b,c,d) +#define incpush(a,b,c,d,e) S_incpush(aTHX_ a,b,c,d,e) #endif #ifdef PERL_CORE #define init_interp() S_init_interp(aTHX) @@ -4070,20 +4037,6 @@ #ifdef PERL_CORE #define call_list_body(a) S_call_list_body(aTHX_ a) #endif -#if defined(PERL_FLEXIBLE_EXCEPTIONS) -#ifdef PERL_CORE -#define vparse_body(a) S_vparse_body(aTHX_ a) -#endif -#ifdef PERL_CORE -#define vrun_body(a) S_vrun_body(aTHX_ a) -#endif -#ifdef PERL_CORE -#define vcall_body(a) S_vcall_body(aTHX_ a) -#endif -#ifdef PERL_CORE -#define vcall_list_body(a) S_vcall_list_body(aTHX_ a) -#endif -#endif #endif #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE @@ -4113,9 +4066,6 @@ #define next_symbol(a) S_next_symbol(aTHX_ a) #endif #ifdef PERL_CORE -#define doencodes(a,b,c) S_doencodes(aTHX_ a,b,c) -#endif -#ifdef PERL_CORE #define is_an_int(a,b) S_is_an_int(aTHX_ a,b) #endif #ifdef PERL_CORE @@ -4129,11 +4079,6 @@ #ifdef PERL_CORE #define docatch_body() S_docatch_body(aTHX) #endif -#if defined(PERL_FLEXIBLE_EXCEPTIONS) -#ifdef PERL_CORE -#define vdocatch_body(a) S_vdocatch_body(aTHX_ a) -#endif -#endif #ifdef PERL_CORE #define dofindlabel(a,b,c,d) S_dofindlabel(aTHX_ a,b,c,d) #endif @@ -4610,7 +4555,7 @@ #endif # if defined(DEBUGGING) #ifdef PERL_CORE -#define tokereport(a,b,c) S_tokereport(aTHX_ a,b,c) +#define tokereport(a,b) S_tokereport(aTHX_ a,b) #endif # endif #ifdef PERL_CORE @@ -4758,7 +4703,7 @@ #endif #if defined(DEBUGGING) #ifdef PERL_CORE -#define get_debug_opts(a) Perl_get_debug_opts(aTHX_ a) +#define get_debug_opts(a,b) Perl_get_debug_opts(aTHX_ a,b) #endif #endif #define save_set_svflags(a,b,c) Perl_save_set_svflags(aTHX_ a,b,c) @@ -4903,6 +4848,12 @@ #ifdef PERL_CORE #define my_swabn Perl_my_swabn #endif +#define gv_fetchpvn_flags(a,b,c,d) Perl_gv_fetchpvn_flags(aTHX_ a,b,c,d) +#define gv_fetchsv(a,b,c) Perl_gv_fetchsv(aTHX_ a,b,c) +#ifdef PERL_CORE +#define is_gv_magical_sv(a,b) Perl_is_gv_magical_sv(aTHX_ a,b) +#endif +#define savesvpv(a) Perl_savesvpv(aTHX_ a) #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)