X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.h;h=2885e22b7ddfd6643308079b77aa5ebc6550f6c8;hb=5d44bfff2e970064b1e107e564a35a3e07c5a058;hp=7000eb0d126902f776de209ebe7d56925f61c9a1;hpb=128165928a7fa68e9b3adbdf3695141c97adb115;p=p5sagit%2Fp5-mst-13.2.git diff --git a/embed.h b/embed.h index 7000eb0..2885e22 100644 --- a/embed.h +++ b/embed.h @@ -188,6 +188,11 @@ #ifdef PERL_CORE #define do_execfree Perl_do_execfree #endif +#ifdef PERL_IN_DOIO_C +#ifdef PERL_CORE +#define exec_failed S_exec_failed +#endif +#endif #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM) #ifdef PERL_CORE #define do_ipcctl Perl_do_ipcctl @@ -542,6 +547,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 @@ -902,7 +908,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 @@ -1095,6 +1101,7 @@ #define hv_delete_common S_hv_delete_common #define hv_fetch_common S_hv_fetch_common #define clear_placeholders S_clear_placeholders +#define refcounted_he_value S_refcounted_he_value #endif #endif #if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT) @@ -1226,6 +1233,7 @@ #define need_utf8 S_need_utf8 #define first_symbol S_first_symbol #define sv_exp_grow S_sv_exp_grow +#define bytes_to_uni S_bytes_to_uni #endif #endif #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT) @@ -1300,18 +1308,10 @@ #define reg_node S_reg_node #define regpiece S_regpiece #define reginsert S_reginsert -#define regoptail S_regoptail #define regtail S_regtail +#define join_exact S_join_exact #define regwhite S_regwhite #define nextchar S_nextchar -#endif -# ifdef DEBUGGING -#if defined(PERL_CORE) || defined(PERL_EXT) -#define dumpuntil S_dumpuntil -#define put_byte S_put_byte -#endif -# endif -#if defined(PERL_CORE) || defined(PERL_EXT) #define scan_commit S_scan_commit #define cl_anything S_cl_anything #define cl_is_anything S_cl_is_anything @@ -1328,10 +1328,19 @@ #if defined(PERL_CORE) || defined(PERL_EXT) #define regpposixcc S_regpposixcc #define checkposixcc S_checkposixcc +#define make_trie S_make_trie +#define make_trie_failtable S_make_trie_failtable #endif +# ifdef DEBUGGING #if defined(PERL_CORE) || defined(PERL_EXT) -#define make_trie S_make_trie +#define dumpuntil S_dumpuntil +#define put_byte S_put_byte +#define dump_trie S_dump_trie +#define dump_trie_interim_list S_dump_trie_interim_list +#define dump_trie_interim_table S_dump_trie_interim_table +#define regtail_study S_regtail_study #endif +# endif #endif #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT) #if defined(PERL_CORE) || defined(PERL_EXT) @@ -1347,12 +1356,18 @@ #define to_utf8_substr S_to_utf8_substr #define to_byte_substr S_to_byte_substr #endif +# ifdef DEBUGGING +#if defined(PERL_CORE) || defined(PERL_EXT) +#define dump_exec_pos S_dump_exec_pos +#endif +# endif #endif #if defined(PERL_IN_DUMP_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE #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 @@ -1470,6 +1485,7 @@ # if defined(DEBUGGING) #ifdef PERL_CORE #define tokereport S_tokereport +#define printbuf S_printbuf #endif # endif #endif @@ -2352,6 +2368,11 @@ #ifdef PERL_CORE #define do_execfree() Perl_do_execfree(aTHX) #endif +#ifdef PERL_IN_DOIO_C +#ifdef PERL_CORE +#define exec_failed(a,b,c) S_exec_failed(aTHX_ a,b,c) +#endif +#endif #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM) #ifdef PERL_CORE #define do_ipcctl(a,b,c) Perl_do_ipcctl(aTHX_ a,b,c) @@ -2457,6 +2478,12 @@ #define hv_ksplit(a,b) Perl_hv_ksplit(aTHX_ a,b) #ifdef PERL_CORE #endif +#if defined(PERL_CORE) || defined(PERL_EXT) +#endif +#ifdef PERL_CORE +#endif +#if defined(PERL_CORE) || defined(PERL_EXT) +#endif #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) @@ -2709,6 +2736,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) @@ -3063,7 +3091,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 @@ -3253,6 +3281,7 @@ #define hv_delete_common(a,b,c,d,e,f,g) S_hv_delete_common(aTHX_ a,b,c,d,e,f,g) #define hv_fetch_common(a,b,c,d,e,f,g,h) S_hv_fetch_common(aTHX_ a,b,c,d,e,f,g,h) #define clear_placeholders(a,b) S_clear_placeholders(aTHX_ a,b) +#define refcounted_he_value(a) S_refcounted_he_value(aTHX_ a) #endif #endif #if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT) @@ -3384,6 +3413,7 @@ #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) +#define bytes_to_uni S_bytes_to_uni #endif #endif #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT) @@ -3448,28 +3478,20 @@ #endif #if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT) #if defined(PERL_CORE) || defined(PERL_EXT) -#define reg(a,b,c) S_reg(aTHX_ a,b,c) +#define reg(a,b,c,d) S_reg(aTHX_ a,b,c,d) #define reganode(a,b,c) S_reganode(aTHX_ a,b,c) -#define regatom(a,b) S_regatom(aTHX_ a,b) -#define regbranch(a,b,c) S_regbranch(aTHX_ a,b,c) -#define reguni(a,b,c,d) S_reguni(aTHX_ a,b,c,d) -#define regclass(a) S_regclass(aTHX_ a) +#define regatom(a,b,c) S_regatom(aTHX_ a,b,c) +#define regbranch(a,b,c,d) S_regbranch(aTHX_ a,b,c,d) +#define reguni(a,b,c) S_reguni(aTHX_ a,b,c) +#define regclass(a,b) S_regclass(aTHX_ a,b) #define regcurly S_regcurly #define reg_node(a,b) S_reg_node(aTHX_ a,b) -#define regpiece(a,b) S_regpiece(aTHX_ a,b) +#define regpiece(a,b,c) S_regpiece(aTHX_ a,b,c) #define reginsert(a,b,c) S_reginsert(aTHX_ a,b,c) -#define regoptail(a,b,c) S_regoptail(aTHX_ a,b,c) -#define regtail(a,b,c) S_regtail(aTHX_ a,b,c) +#define regtail(a,b,c,d) S_regtail(aTHX_ a,b,c,d) +#define join_exact(a,b,c,d,e,f) S_join_exact(aTHX_ a,b,c,d,e,f) #define regwhite S_regwhite #define nextchar(a) S_nextchar(aTHX_ a) -#endif -# ifdef DEBUGGING -#if defined(PERL_CORE) || defined(PERL_EXT) -#define dumpuntil(a,b,c,d,e,f) S_dumpuntil(aTHX_ a,b,c,d,e,f) -#define put_byte(a,b) S_put_byte(aTHX_ a,b) -#endif -# endif -#if defined(PERL_CORE) || defined(PERL_EXT) #define scan_commit(a,b) S_scan_commit(aTHX_ a,b) #define cl_anything S_cl_anything #define cl_is_anything S_cl_is_anything @@ -3485,10 +3507,19 @@ #if defined(PERL_CORE) || defined(PERL_EXT) #define regpposixcc(a,b) S_regpposixcc(aTHX_ a,b) #define checkposixcc(a) S_checkposixcc(aTHX_ a) +#define make_trie(a,b,c,d,e,f,g) S_make_trie(aTHX_ a,b,c,d,e,f,g) +#define make_trie_failtable(a,b,c,d) S_make_trie_failtable(aTHX_ a,b,c,d) #endif +# ifdef DEBUGGING #if defined(PERL_CORE) || defined(PERL_EXT) -#define make_trie(a,b,c,d,e,f) S_make_trie(aTHX_ a,b,c,d,e,f) +#define dumpuntil(a,b,c,d,e,f) S_dumpuntil(aTHX_ a,b,c,d,e,f) +#define put_byte(a,b) S_put_byte(aTHX_ a,b) +#define dump_trie(a,b) S_dump_trie(aTHX_ a,b) +#define dump_trie_interim_list(a,b,c) S_dump_trie_interim_list(aTHX_ a,b,c) +#define dump_trie_interim_table(a,b,c) S_dump_trie_interim_table(aTHX_ a,b,c) +#define regtail_study(a,b,c,d) S_regtail_study(aTHX_ a,b,c,d) #endif +# endif #endif #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT) #if defined(PERL_CORE) || defined(PERL_EXT) @@ -3504,12 +3535,18 @@ #define to_utf8_substr(a) S_to_utf8_substr(aTHX_ a) #define to_byte_substr(a) S_to_byte_substr(aTHX_ a) #endif +# ifdef DEBUGGING +#if defined(PERL_CORE) || defined(PERL_EXT) +#define dump_exec_pos(a,b,c) S_dump_exec_pos(aTHX_ a,b,c) +#endif +# endif #endif #if defined(PERL_IN_DUMP_C) || defined(PERL_DECL_PROT) #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_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 @@ -3631,6 +3668,7 @@ # if defined(DEBUGGING) #ifdef PERL_CORE #define tokereport(a) S_tokereport(aTHX_ a) +#define printbuf(a,b) S_printbuf(aTHX_ a,b) #endif # endif #endif @@ -3715,7 +3753,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