X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.h;h=3bf7e6991dbfd8abc7d24dcd0ba205ab6a9fd89e;hb=021db424163d574093ff658e9606a6f31942189d;hp=f72599246c30ef571f809f3b80af546eed77a3df;hpb=fae667d5a60f37538a5761795f7af2165c7d4fb0;p=p5sagit%2Fp5-mst-13.2.git diff --git a/embed.h b/embed.h index f725992..3bf7e69 100644 --- a/embed.h +++ b/embed.h @@ -10,7 +10,7 @@ * * !!!!!!! DO NOT EDIT THIS FILE !!!!!!! * This file is built by embed.pl from data in embed.fnc, embed.pl, - * pp.sym, intrpvar.h, perlvars.h and thrdvar.h. + * pp.sym, intrpvar.h, and perlvars.h. * Any changes made here will be lost! * * Edit those files and run 'make regen_headers' to effect changes. @@ -64,7 +64,7 @@ #define av_make Perl_av_make #define av_pop Perl_av_pop #define av_push Perl_av_push -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define av_reify Perl_av_reify #endif #define av_shift Perl_av_shift @@ -377,12 +377,14 @@ #define keyword Perl_keyword #endif #define leave_scope Perl_leave_scope -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define lex_end Perl_lex_end +#endif +#ifdef PERL_CORE #define lex_start Perl_lex_start #endif #define op_null Perl_op_null -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define op_clear Perl_op_clear #endif #define op_refcnt_lock Perl_op_refcnt_lock @@ -465,7 +467,7 @@ #endif #define mess Perl_mess #define vmess Perl_vmess -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define qerror Perl_qerror #endif #define sortsv Perl_sortsv @@ -483,8 +485,10 @@ #define mg_set Perl_mg_set #define mg_size Perl_mg_size #define mini_mktime Perl_mini_mktime -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define mod Perl_mod +#endif +#ifdef PERL_CORE #define mode_from_discipline Perl_mode_from_discipline #endif #define moreswitches Perl_moreswitches @@ -583,6 +587,7 @@ #define vnewSVpvf Perl_vnewSVpvf #define newSVrv Perl_newSVrv #define newSVsv Perl_newSVsv +#define newSV_type Perl_newSV_type #define newUNOP Perl_newUNOP #define newWHENOP Perl_newWHENOP #define newWHILEOP Perl_newWHILEOP @@ -681,9 +686,13 @@ #define refkids Perl_refkids #endif #define regdump Perl_regdump +#define regdump Perl_regdump #define regclass_swash Perl_regclass_swash #define pregexec Perl_pregexec #define pregfree Perl_pregfree +#if defined(PERL_CORE) || defined(PERL_EXT) +#define reg_temp_copy Perl_reg_temp_copy +#endif #define regfree_internal Perl_regfree_internal #define reg_stringify Perl_reg_stringify #if defined(USE_ITHREADS) @@ -696,8 +705,24 @@ #define regexec_flags Perl_regexec_flags #define regnext Perl_regnext #if defined(PERL_CORE) || defined(PERL_EXT) -#define reg_named_buff_get Perl_reg_named_buff_get -#define reg_numbered_buff_get Perl_reg_numbered_buff_get +#define reg_named_buff Perl_reg_named_buff +#define reg_named_buff_iter Perl_reg_named_buff_iter +#endif +#define reg_named_buff_fetch Perl_reg_named_buff_fetch +#define reg_named_buff_exists Perl_reg_named_buff_exists +#define reg_named_buff_firstkey Perl_reg_named_buff_firstkey +#define reg_named_buff_nextkey Perl_reg_named_buff_nextkey +#define reg_named_buff_scalar Perl_reg_named_buff_scalar +#define reg_named_buff_all Perl_reg_named_buff_all +#if defined(PERL_CORE) || defined(PERL_EXT) +#define reg_numbered_buff_fetch Perl_reg_numbered_buff_fetch +#define reg_numbered_buff_store Perl_reg_numbered_buff_store +#define reg_numbered_buff_length Perl_reg_numbered_buff_length +#endif +#if defined(PERL_CORE) || defined(PERL_EXT) +#define reg_qr_package Perl_reg_qr_package +#endif +#if defined(PERL_CORE) || defined(PERL_EXT) #define regprop Perl_regprop #endif #define repeatcpy Perl_repeatcpy @@ -787,7 +812,7 @@ #define setenv_getix Perl_setenv_getix #endif #endif -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define setdefout Perl_setdefout #endif #define share_hek Perl_share_hek @@ -922,7 +947,7 @@ #define unpack_str Perl_unpack_str #define unpackstring Perl_unpackstring #define unsharepvn Perl_unsharepvn -#if defined(PERL_CORE) || defined(PERL_EXT) +#ifdef PERL_CORE #define unshare_hek Perl_unshare_hek #endif #ifdef PERL_MAD @@ -957,8 +982,10 @@ #define uvuni_to_utf8_flags Perl_uvuni_to_utf8_flags #define pv_uni_display Perl_pv_uni_display #define sv_uni_display Perl_sv_uni_display -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define vivify_defelem Perl_vivify_defelem +#endif +#ifdef PERL_CORE #define vivify_ref Perl_vivify_ref #define wait4pid Perl_wait4pid #define parse_unicode_opts Perl_parse_unicode_opts @@ -967,6 +994,8 @@ #ifdef PERL_CORE #define get_hash_seed Perl_get_hash_seed #define report_evil_fh Perl_report_evil_fh +#endif +#if defined(PERL_CORE) || defined(PERL_EXT) #define report_uninit Perl_report_uninit #endif #define warn Perl_warn @@ -980,7 +1009,11 @@ #ifdef PERL_CORE #define write_to_stderr Perl_write_to_stderr #define yyerror Perl_yyerror +#endif +#if defined(PERL_CORE) || defined(PERL_EXT) #define yylex Perl_yylex +#endif +#ifdef PERL_CORE #define yyparse Perl_yyparse #define parser_free Perl_parser_free #define yywarn Perl_yywarn @@ -1155,6 +1188,7 @@ #define ck_method Perl_ck_method #define ck_null Perl_ck_null #define ck_open Perl_ck_open +#define ck_readline Perl_ck_readline #define ck_repeat Perl_ck_repeat #define ck_require Perl_ck_require #define ck_retarget Perl_ck_retarget @@ -1174,6 +1208,12 @@ #define ck_unpack Perl_ck_unpack #define is_handle_constructor S_is_handle_constructor #define is_list_assignment S_is_list_assignment +#endif +# ifdef USE_ITHREADS +# else +# endif +#ifdef PERL_CORE +#define find_and_forget_pmops S_find_and_forget_pmops #define cop_free S_cop_free #define modkids S_modkids #define scalarboolean S_scalarboolean @@ -1200,6 +1240,13 @@ #if defined(PL_OP_SLAB_ALLOC) #define Slab_Alloc Perl_Slab_Alloc #define Slab_Free Perl_Slab_Free +# if defined(PERL_DEBUG_READONLY_OPS) +# if defined(PERL_IN_OP_C) +#ifdef PERL_CORE +#define Slab_to_rw S_Slab_to_rw +#endif +# endif +# endif #endif #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE @@ -1208,7 +1255,6 @@ #define incpush S_incpush #define init_interp S_init_interp #define init_ids S_init_ids -#define init_lexer S_init_lexer #define init_main_stash S_init_main_stash #define init_perllib S_init_perllib #define init_postdump_symbols S_init_postdump_symbols @@ -1355,6 +1401,7 @@ #endif # ifdef DEBUGGING #if defined(PERL_CORE) || defined(PERL_EXT) +#define regdump_extflags S_regdump_extflags #define dumpuntil S_dumpuntil #define put_byte S_put_byte #define dump_trie S_dump_trie @@ -1552,6 +1599,7 @@ #define sv_copypv Perl_sv_copypv #define my_atof2 Perl_my_atof2 #define my_socketpair Perl_my_socketpair +#define my_dirfd Perl_my_dirfd #ifdef PERL_OLD_COPY_ON_WRITE #if defined(PERL_CORE) || defined(PERL_EXT) #define sv_setsv_cow Perl_sv_setsv_cow @@ -1621,8 +1669,8 @@ #endif # endif #endif -#ifdef PERL_CORE #define find_runcv Perl_find_runcv +#ifdef PERL_CORE #define free_tied_hv_pool Perl_free_tied_hv_pool #endif #if defined(DEBUGGING) @@ -1852,6 +1900,26 @@ #define madparse Perl_madparse #endif #endif +#if !defined(HAS_SIGNBIT) +#endif +#ifdef PERL_CORE +#define mro_meta_init Perl_mro_meta_init +#endif +#if defined(USE_ITHREADS) +#ifdef PERL_CORE +#define mro_meta_dup Perl_mro_meta_dup +#endif +#endif +#define mro_get_linear_isa Perl_mro_get_linear_isa +#define mro_get_linear_isa_c3 Perl_mro_get_linear_isa_c3 +#define mro_get_linear_isa_dfs Perl_mro_get_linear_isa_dfs +#ifdef PERL_CORE +#define mro_isa_changed_in Perl_mro_isa_changed_in +#endif +#define mro_method_changed_in Perl_mro_method_changed_in +#ifdef PERL_CORE +#define boot_core_mro Perl_boot_core_mro +#endif #define ck_anoncode Perl_ck_anoncode #define ck_bitop Perl_ck_bitop #define ck_chdir Perl_ck_chdir @@ -1877,6 +1945,7 @@ #define ck_method Perl_ck_method #define ck_null Perl_ck_null #define ck_open Perl_ck_open +#define ck_readline Perl_ck_readline #define ck_repeat Perl_ck_repeat #define ck_require Perl_ck_require #define ck_return Perl_ck_return @@ -2289,7 +2358,7 @@ #define av_make(a,b) Perl_av_make(aTHX_ a,b) #define av_pop(a) Perl_av_pop(aTHX_ a) #define av_push(a,b) Perl_av_push(aTHX_ a,b) -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define av_reify(a) Perl_av_reify(aTHX_ a) #endif #define av_shift(a) Perl_av_shift(aTHX_ a) @@ -2597,12 +2666,14 @@ #define keyword(a,b,c) Perl_keyword(aTHX_ a,b,c) #endif #define leave_scope(a) Perl_leave_scope(aTHX_ a) -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define lex_end() Perl_lex_end(aTHX) -#define lex_start(a) Perl_lex_start(aTHX_ a) #endif -#define op_null(a) Perl_op_null(aTHX_ a) #ifdef PERL_CORE +#define lex_start(a,b,c) Perl_lex_start(aTHX_ a,b,c) +#endif +#define op_null(a) Perl_op_null(aTHX_ a) +#if defined(PERL_CORE) || defined(PERL_EXT) #define op_clear(a) Perl_op_clear(aTHX_ a) #endif #define op_refcnt_lock() Perl_op_refcnt_lock(aTHX) @@ -2683,7 +2754,7 @@ #endif #endif #define vmess(a,b) Perl_vmess(aTHX_ a,b) -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define qerror(a) Perl_qerror(aTHX_ a) #endif #define sortsv(a,b,c) Perl_sortsv(aTHX_ a,b,c) @@ -2701,8 +2772,10 @@ #define mg_set(a) Perl_mg_set(aTHX_ a) #define mg_size(a) Perl_mg_size(aTHX_ a) #define mini_mktime(a) Perl_mini_mktime(aTHX_ a) -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define mod(a,b) Perl_mod(aTHX_ a,b) +#endif +#ifdef PERL_CORE #define mode_from_discipline(a) Perl_mode_from_discipline(aTHX_ a) #endif #define moreswitches(a) Perl_moreswitches(aTHX_ a) @@ -2800,14 +2873,15 @@ #define vnewSVpvf(a,b) Perl_vnewSVpvf(aTHX_ a,b) #define newSVrv(a,b) Perl_newSVrv(aTHX_ a,b) #define newSVsv(a) Perl_newSVsv(aTHX_ a) +#define newSV_type(a) Perl_newSV_type(aTHX_ a) #define newUNOP(a,b,c) Perl_newUNOP(aTHX_ a,b,c) #define newWHENOP(a,b) Perl_newWHENOP(aTHX_ a,b) #define newWHILEOP(a,b,c,d,e,f,g,h) Perl_newWHILEOP(aTHX_ a,b,c,d,e,f,g,h) #define new_stackinfo(a,b) Perl_new_stackinfo(aTHX_ a,b) -#define scan_vstring(a,b) Perl_scan_vstring(aTHX_ a,b) +#define scan_vstring(a,b,c) Perl_scan_vstring(aTHX_ a,b,c) #define scan_version(a,b,c) Perl_scan_version(aTHX_ a,b,c) #define new_version(a) Perl_new_version(aTHX_ a) -#define upg_version(a) Perl_upg_version(aTHX_ a) +#define upg_version(a,b) Perl_upg_version(aTHX_ a,b) #define vverify(a) Perl_vverify(aTHX_ a) #define vnumify(a) Perl_vnumify(aTHX_ a) #define vnormal(a) Perl_vnormal(aTHX_ a) @@ -2897,23 +2971,43 @@ #define refkids(a,b) Perl_refkids(aTHX_ a,b) #endif #define regdump(a) Perl_regdump(aTHX_ a) +#define regdump(a) Perl_regdump(aTHX_ a) #define regclass_swash(a,b,c,d,e) Perl_regclass_swash(aTHX_ a,b,c,d,e) #define pregexec(a,b,c,d,e,f,g) Perl_pregexec(aTHX_ a,b,c,d,e,f,g) #define pregfree(a) Perl_pregfree(aTHX_ a) +#if defined(PERL_CORE) || defined(PERL_EXT) +#define reg_temp_copy(a) Perl_reg_temp_copy(aTHX_ a) +#endif #define regfree_internal(a) Perl_regfree_internal(aTHX_ a) #define reg_stringify(a,b,c,d) Perl_reg_stringify(aTHX_ a,b,c,d) #if defined(USE_ITHREADS) #define regdupe_internal(a,b) Perl_regdupe_internal(aTHX_ a,b) #endif -#define pregcomp(a,b,c) Perl_pregcomp(aTHX_ a,b,c) -#define re_compile(a,b,c) Perl_re_compile(aTHX_ a,b,c) +#define pregcomp(a,b) Perl_pregcomp(aTHX_ a,b) +#define re_compile(a,b) Perl_re_compile(aTHX_ a,b) #define re_intuit_start(a,b,c,d,e,f) Perl_re_intuit_start(aTHX_ a,b,c,d,e,f) #define re_intuit_string(a) Perl_re_intuit_string(aTHX_ a) #define regexec_flags(a,b,c,d,e,f,g,h) Perl_regexec_flags(aTHX_ a,b,c,d,e,f,g,h) #define regnext(a) Perl_regnext(aTHX_ a) #if defined(PERL_CORE) || defined(PERL_EXT) -#define reg_named_buff_get(a,b,c) Perl_reg_named_buff_get(aTHX_ a,b,c) -#define reg_numbered_buff_get(a,b,c,d) Perl_reg_numbered_buff_get(aTHX_ a,b,c,d) +#define reg_named_buff(a,b,c,d) Perl_reg_named_buff(aTHX_ a,b,c,d) +#define reg_named_buff_iter(a,b,c) Perl_reg_named_buff_iter(aTHX_ a,b,c) +#endif +#define reg_named_buff_fetch(a,b,c) Perl_reg_named_buff_fetch(aTHX_ a,b,c) +#define reg_named_buff_exists(a,b,c) Perl_reg_named_buff_exists(aTHX_ a,b,c) +#define reg_named_buff_firstkey(a,b) Perl_reg_named_buff_firstkey(aTHX_ a,b) +#define reg_named_buff_nextkey(a,b) Perl_reg_named_buff_nextkey(aTHX_ a,b) +#define reg_named_buff_scalar(a,b) Perl_reg_named_buff_scalar(aTHX_ a,b) +#define reg_named_buff_all(a,b) Perl_reg_named_buff_all(aTHX_ a,b) +#if defined(PERL_CORE) || defined(PERL_EXT) +#define reg_numbered_buff_fetch(a,b,c) Perl_reg_numbered_buff_fetch(aTHX_ a,b,c) +#define reg_numbered_buff_store(a,b,c) Perl_reg_numbered_buff_store(aTHX_ a,b,c) +#define reg_numbered_buff_length(a,b,c) Perl_reg_numbered_buff_length(aTHX_ a,b,c) +#endif +#if defined(PERL_CORE) || defined(PERL_EXT) +#define reg_qr_package(a) Perl_reg_qr_package(aTHX_ a) +#endif +#if defined(PERL_CORE) || defined(PERL_EXT) #define regprop(a,b,c) Perl_regprop(aTHX_ a,b,c) #endif #define repeatcpy(a,b,c,d) Perl_repeatcpy(aTHX_ a,b,c,d) @@ -3003,7 +3097,7 @@ #define setenv_getix(a) Perl_setenv_getix(aTHX_ a) #endif #endif -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define setdefout(a) Perl_setdefout(aTHX_ a) #endif #define share_hek(a,b,c) Perl_share_hek(aTHX_ a,b,c) @@ -3134,7 +3228,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) -#if defined(PERL_CORE) || defined(PERL_EXT) +#ifdef PERL_CORE #define unshare_hek(a) Perl_unshare_hek(aTHX_ a) #endif #ifdef PERL_MAD @@ -3169,8 +3263,10 @@ #define uvuni_to_utf8_flags(a,b,c) Perl_uvuni_to_utf8_flags(aTHX_ a,b,c) #define pv_uni_display(a,b,c,d,e) Perl_pv_uni_display(aTHX_ a,b,c,d,e) #define sv_uni_display(a,b,c,d) Perl_sv_uni_display(aTHX_ a,b,c,d) -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) #define vivify_defelem(a) Perl_vivify_defelem(aTHX_ a) +#endif +#ifdef PERL_CORE #define vivify_ref(a,b) Perl_vivify_ref(aTHX_ a,b) #define wait4pid(a,b,c) Perl_wait4pid(aTHX_ a,b,c) #define parse_unicode_opts(a) Perl_parse_unicode_opts(aTHX_ a) @@ -3179,6 +3275,8 @@ #ifdef PERL_CORE #define get_hash_seed() Perl_get_hash_seed(aTHX) #define report_evil_fh(a,b,c) Perl_report_evil_fh(aTHX_ a,b,c) +#endif +#if defined(PERL_CORE) || defined(PERL_EXT) #define report_uninit(a) Perl_report_uninit(aTHX_ a) #endif #define vwarn(a,b) Perl_vwarn(aTHX_ a,b) @@ -3190,7 +3288,11 @@ #ifdef PERL_CORE #define write_to_stderr(a,b) Perl_write_to_stderr(aTHX_ a,b) #define yyerror(a) Perl_yyerror(aTHX_ a) +#endif +#if defined(PERL_CORE) || defined(PERL_EXT) #define yylex() Perl_yylex(aTHX) +#endif +#ifdef PERL_CORE #define yyparse() Perl_yyparse(aTHX) #define parser_free(a) Perl_parser_free(aTHX_ a) #define yywarn(a) Perl_yywarn(aTHX_ a) @@ -3364,6 +3466,7 @@ #define ck_method(a) Perl_ck_method(aTHX_ a) #define ck_null(a) Perl_ck_null(aTHX_ a) #define ck_open(a) Perl_ck_open(aTHX_ a) +#define ck_readline(a) Perl_ck_readline(aTHX_ a) #define ck_repeat(a) Perl_ck_repeat(aTHX_ a) #define ck_require(a) Perl_ck_require(aTHX_ a) #define ck_retarget(a) Perl_ck_retarget(aTHX_ a) @@ -3383,6 +3486,16 @@ #define ck_unpack(a) Perl_ck_unpack(aTHX_ a) #define is_handle_constructor S_is_handle_constructor #define is_list_assignment(a) S_is_list_assignment(aTHX_ a) +#endif +# ifdef USE_ITHREADS +#ifdef PERL_CORE +#endif +# else +#ifdef PERL_CORE +#endif +# endif +#ifdef PERL_CORE +#define find_and_forget_pmops(a) S_find_and_forget_pmops(aTHX_ a) #define cop_free(a) S_cop_free(aTHX_ a) #define modkids(a,b) S_modkids(aTHX_ a,b) #define scalarboolean(a) S_scalarboolean(aTHX_ a) @@ -3407,26 +3520,34 @@ #endif #endif #if defined(PL_OP_SLAB_ALLOC) -#define Slab_Alloc(a,b) Perl_Slab_Alloc(aTHX_ a,b) +#define Slab_Alloc(a) Perl_Slab_Alloc(aTHX_ a) #define Slab_Free(a) Perl_Slab_Free(aTHX_ a) +# if defined(PERL_DEBUG_READONLY_OPS) +#ifdef PERL_CORE +#endif +# if defined(PERL_IN_OP_C) +#ifdef PERL_CORE +#define Slab_to_rw(a) S_Slab_to_rw(aTHX_ a) +#endif +# endif +# endif #endif #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE -#define find_beginning() S_find_beginning(aTHX) +#define find_beginning(a,b) S_find_beginning(aTHX_ a,b) #define forbid_setid(a,b) S_forbid_setid(aTHX_ a,b) #define incpush(a,b,c,d,e) S_incpush(aTHX_ a,b,c,d,e) #define init_interp() S_init_interp(aTHX) #define init_ids() S_init_ids(aTHX) -#define init_lexer() S_init_lexer(aTHX) #define init_main_stash() S_init_main_stash(aTHX) #define init_perllib() S_init_perllib(aTHX) #define init_postdump_symbols(a,b,c) S_init_postdump_symbols(aTHX_ a,b,c) #define init_predump_symbols() S_init_predump_symbols(aTHX) #define my_exit_jump() S_my_exit_jump(aTHX) #define nuke_stacks() S_nuke_stacks(aTHX) -#define open_script(a,b,c,d) S_open_script(aTHX_ a,b,c,d) +#define open_script(a,b,c,d,e) S_open_script(aTHX_ a,b,c,d,e) #define usage(a) S_usage(aTHX_ a) -#define validate_suid(a,b,c,d) S_validate_suid(aTHX_ a,b,c,d) +#define validate_suid(a,b,c,d,e,f) S_validate_suid(aTHX_ a,b,c,d,e,f) #endif # if defined(IAMSUID) #ifdef PERL_CORE @@ -3565,6 +3686,7 @@ #endif # ifdef DEBUGGING #if defined(PERL_CORE) || defined(PERL_EXT) +#define regdump_extflags(a,b) S_regdump_extflags(aTHX_ a,b) #define dumpuntil(a,b,c,d,e,f,g,h) S_dumpuntil(aTHX_ a,b,c,d,e,f,g,h) #define put_byte(a,b) S_put_byte(aTHX_ a,b) #define dump_trie(a,b,c,d) S_dump_trie(aTHX_ a,b,c,d) @@ -3727,7 +3849,7 @@ #endif #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE -#define isa_lookup(a,b,c,d,e) S_isa_lookup(aTHX_ a,b,c,d,e) +#define isa_lookup(a,b,c) S_isa_lookup(aTHX_ a,b,c) #endif #endif #if defined(PERL_IN_LOCALE_C) || defined(PERL_DECL_PROT) @@ -3766,6 +3888,7 @@ #define sv_copypv(a,b) Perl_sv_copypv(aTHX_ a,b) #define my_atof2(a,b) Perl_my_atof2(aTHX_ a,b) #define my_socketpair Perl_my_socketpair +#define my_dirfd(a) Perl_my_dirfd(aTHX_ a) #ifdef PERL_OLD_COPY_ON_WRITE #if defined(PERL_CORE) || defined(PERL_EXT) #define sv_setsv_cow(a,b) Perl_sv_setsv_cow(aTHX_ a,b) @@ -3835,8 +3958,8 @@ #endif # endif #endif -#ifdef PERL_CORE #define find_runcv(a) Perl_find_runcv(aTHX_ a) +#ifdef PERL_CORE #define free_tied_hv_pool() Perl_free_tied_hv_pool(aTHX) #endif #if defined(DEBUGGING) @@ -4070,6 +4193,28 @@ #define madparse() Perl_madparse(aTHX) #endif #endif +#if !defined(HAS_SIGNBIT) +#endif +#if defined(PERL_CORE) || defined(PERL_EXT) +#endif +#ifdef PERL_CORE +#define mro_meta_init(a) Perl_mro_meta_init(aTHX_ a) +#endif +#if defined(USE_ITHREADS) +#ifdef PERL_CORE +#define mro_meta_dup(a,b) Perl_mro_meta_dup(aTHX_ a,b) +#endif +#endif +#define mro_get_linear_isa(a) Perl_mro_get_linear_isa(aTHX_ a) +#define mro_get_linear_isa_c3(a,b) Perl_mro_get_linear_isa_c3(aTHX_ a,b) +#define mro_get_linear_isa_dfs(a,b) Perl_mro_get_linear_isa_dfs(aTHX_ a,b) +#ifdef PERL_CORE +#define mro_isa_changed_in(a) Perl_mro_isa_changed_in(aTHX_ a) +#endif +#define mro_method_changed_in(a) Perl_mro_method_changed_in(aTHX_ a) +#ifdef PERL_CORE +#define boot_core_mro() Perl_boot_core_mro(aTHX) +#endif #define ck_anoncode(a) Perl_ck_anoncode(aTHX_ a) #define ck_bitop(a) Perl_ck_bitop(aTHX_ a) #define ck_chdir(a) Perl_ck_chdir(aTHX_ a) @@ -4095,6 +4240,7 @@ #define ck_method(a) Perl_ck_method(aTHX_ a) #define ck_null(a) Perl_ck_null(aTHX_ a) #define ck_open(a) Perl_ck_open(aTHX_ a) +#define ck_readline(a) Perl_ck_readline(aTHX_ a) #define ck_repeat(a) Perl_ck_repeat(aTHX_ a) #define ck_require(a) Perl_ck_require(aTHX_ a) #define ck_return(a) Perl_ck_return(aTHX_ a)