X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/6fa4d285bff5644bebb95aff09143322042282cc..0b93a7997e668a672f4c77f82ec1c83b5f39445c:/embed.h diff --git a/embed.h b/embed.h index c0e6953..17bf11a 100644 --- a/embed.h +++ b/embed.h @@ -150,8 +150,6 @@ #define delimcpy Perl_delimcpy #ifdef PERL_CORE #define delete_eval_scope Perl_delete_eval_scope -#define deprecate Perl_deprecate -#define deprecate_old Perl_deprecate_old #endif #define die Perl_die #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT) @@ -293,6 +291,7 @@ #define gv_fullname4 Perl_gv_fullname4 #define gv_init Perl_gv_init #define gv_name_set Perl_gv_name_set +#define gv_try_downgrade Perl_gv_try_downgrade #define gv_stashpv Perl_gv_stashpv #define gv_stashpvn Perl_gv_stashpvn #define gv_stashsv Perl_gv_stashsv @@ -380,8 +379,11 @@ #define is_utf8_alpha Perl_is_utf8_alpha #define is_utf8_ascii Perl_is_utf8_ascii #define is_utf8_space Perl_is_utf8_space +#define is_utf8_perl_space Perl_is_utf8_perl_space +#define is_utf8_perl_word Perl_is_utf8_perl_word #define is_utf8_cntrl Perl_is_utf8_cntrl #define is_utf8_digit Perl_is_utf8_digit +#define is_utf8_posix_digit Perl_is_utf8_posix_digit #define is_utf8_graph Perl_is_utf8_graph #define is_utf8_upper Perl_is_utf8_upper #define is_utf8_lower Perl_is_utf8_lower @@ -393,6 +395,12 @@ #define jmaybe Perl_jmaybe #define keyword Perl_keyword #endif +#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT) +#ifdef PERL_CORE +#define opt_scalarhv S_opt_scalarhv +#define is_inplace_av S_is_inplace_av +#endif +#endif #define leave_scope Perl_leave_scope #if defined(PERL_CORE) || defined(PERL_EXT) #define lex_end Perl_lex_end @@ -400,6 +408,17 @@ #ifdef PERL_CORE #define lex_start Perl_lex_start #endif +#define lex_bufutf8 Perl_lex_bufutf8 +#define lex_grow_linestr Perl_lex_grow_linestr +#define lex_stuff_pvn Perl_lex_stuff_pvn +#define lex_stuff_sv Perl_lex_stuff_sv +#define lex_unstuff Perl_lex_unstuff +#define lex_read_to Perl_lex_read_to +#define lex_discard_to Perl_lex_discard_to +#define lex_next_chunk Perl_lex_next_chunk +#define lex_peek_unichar Perl_lex_peek_unichar +#define lex_read_unichar Perl_lex_read_unichar +#define lex_read_space Perl_lex_read_space #define op_null Perl_op_null #if defined(PERL_CORE) || defined(PERL_EXT) #define op_clear Perl_op_clear @@ -632,8 +651,8 @@ #define package_version Perl_package_version #define pad_alloc Perl_pad_alloc #define allocmy Perl_allocmy -#define pad_findmy Perl_pad_findmy #endif +#define pad_findmy Perl_pad_findmy #define find_rundefsvoffset Perl_find_rundefsvoffset #ifdef PERL_CORE #define oopsAV Perl_oopsAV @@ -689,7 +708,6 @@ #define pidgone S_pidgone #endif #endif -#define pmflag Perl_pmflag #ifdef PERL_CORE #define pmruntime Perl_pmruntime #endif @@ -1036,6 +1054,8 @@ #define warn Perl_warn #define vwarn Perl_vwarn #define warner Perl_warner +#define ck_warner Perl_ck_warner +#define ck_warner_d Perl_ck_warner_d #define vwarner Perl_vwarner #ifdef PERL_CORE #define watch Perl_watch @@ -1575,6 +1595,14 @@ #define update_debugger_info S_update_debugger_info #define skipspace S_skipspace #define swallow_bom S_swallow_bom +#endif +#ifndef PERL_NO_UTF16_FILTER +#ifdef PERL_CORE +#define utf16_textfilter S_utf16_textfilter +#define add_utf16_textfilter S_add_utf16_textfilter +#endif +#endif +#ifdef PERL_CORE #define checkcomma S_checkcomma #define feature_is_enabled S_feature_is_enabled #define force_ident S_force_ident @@ -1592,6 +1620,7 @@ #define tokenize_use S_tokenize_use #endif #ifdef PERL_CORE +#define deprecate_commaless_var_list S_deprecate_commaless_var_list #define ao S_ao #endif # if defined(PERL_CR_FILTER) @@ -1696,7 +1725,11 @@ #define pad_undef Perl_pad_undef #define pad_add_name Perl_pad_add_name #define pad_add_anon Perl_pad_add_anon -#define pad_check_dup Perl_pad_check_dup +#endif +#if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT) +#ifdef PERL_CORE +#define pad_check_dup S_pad_check_dup +#endif #endif #ifdef DEBUGGING #ifdef PERL_CORE @@ -1716,6 +1749,7 @@ #if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE #define pad_findlex S_pad_findlex +#define pad_add_name_sv S_pad_add_name_sv #endif # if defined(DEBUGGING) #ifdef PERL_CORE @@ -1884,6 +1918,11 @@ #endif #ifdef PERL_DONT_CREATE_GVSV #endif +#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT) +#ifdef PERL_CORE +#define ckwarn_common S_ckwarn_common +#endif +#endif #ifdef PERL_CORE #define offer_nice_chunk Perl_offer_nice_chunk #endif @@ -2044,6 +2083,7 @@ #define pp_bit_or Perl_pp_bit_or #define pp_bit_xor Perl_pp_bit_xor #define pp_bless Perl_pp_bless +#define pp_boolkeys Perl_pp_boolkeys #define pp_break Perl_pp_break #define pp_caller Perl_pp_caller #define pp_chdir Perl_pp_chdir @@ -2487,8 +2527,6 @@ #define delimcpy Perl_delimcpy #ifdef PERL_CORE #define delete_eval_scope() Perl_delete_eval_scope(aTHX) -#define deprecate(a) Perl_deprecate(aTHX_ a) -#define deprecate_old(a) Perl_deprecate_old(aTHX_ a) #endif #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE @@ -2496,7 +2534,7 @@ #endif #endif #ifdef PERL_CORE -#define die_where(a,b) Perl_die_where(aTHX_ a,b) +#define die_where(a) Perl_die_where(aTHX_ a) #endif #define dounwind(a) Perl_dounwind(aTHX_ a) #ifdef PERL_CORE @@ -2634,6 +2672,7 @@ #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_try_downgrade(a) Perl_gv_try_downgrade(aTHX_ a) #define gv_stashpv(a,b) Perl_gv_stashpv(aTHX_ a,b) #define gv_stashpvn(a,b,c) Perl_gv_stashpvn(aTHX_ a,b,c) #define gv_stashsv(a,b) Perl_gv_stashsv(aTHX_ a,b) @@ -2729,8 +2768,11 @@ #define is_utf8_alpha(a) Perl_is_utf8_alpha(aTHX_ a) #define is_utf8_ascii(a) Perl_is_utf8_ascii(aTHX_ a) #define is_utf8_space(a) Perl_is_utf8_space(aTHX_ a) +#define is_utf8_perl_space(a) Perl_is_utf8_perl_space(aTHX_ a) +#define is_utf8_perl_word(a) Perl_is_utf8_perl_word(aTHX_ a) #define is_utf8_cntrl(a) Perl_is_utf8_cntrl(aTHX_ a) #define is_utf8_digit(a) Perl_is_utf8_digit(aTHX_ a) +#define is_utf8_posix_digit(a) Perl_is_utf8_posix_digit(aTHX_ a) #define is_utf8_graph(a) Perl_is_utf8_graph(aTHX_ a) #define is_utf8_upper(a) Perl_is_utf8_upper(aTHX_ a) #define is_utf8_lower(a) Perl_is_utf8_lower(aTHX_ a) @@ -2742,6 +2784,12 @@ #define jmaybe(a) Perl_jmaybe(aTHX_ a) #define keyword(a,b,c) Perl_keyword(aTHX_ a,b,c) #endif +#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT) +#ifdef PERL_CORE +#define opt_scalarhv(a) S_opt_scalarhv(aTHX_ a) +#define is_inplace_av(a,b) S_is_inplace_av(aTHX_ a,b) +#endif +#endif #define leave_scope(a) Perl_leave_scope(aTHX_ a) #if defined(PERL_CORE) || defined(PERL_EXT) #define lex_end() Perl_lex_end(aTHX) @@ -2749,6 +2797,17 @@ #ifdef PERL_CORE #define lex_start(a,b,c) Perl_lex_start(aTHX_ a,b,c) #endif +#define lex_bufutf8() Perl_lex_bufutf8(aTHX) +#define lex_grow_linestr(a) Perl_lex_grow_linestr(aTHX_ a) +#define lex_stuff_pvn(a,b,c) Perl_lex_stuff_pvn(aTHX_ a,b,c) +#define lex_stuff_sv(a,b) Perl_lex_stuff_sv(aTHX_ a,b) +#define lex_unstuff(a) Perl_lex_unstuff(aTHX_ a) +#define lex_read_to(a) Perl_lex_read_to(aTHX_ a) +#define lex_discard_to(a) Perl_lex_discard_to(aTHX_ a) +#define lex_next_chunk(a) Perl_lex_next_chunk(aTHX_ a) +#define lex_peek_unichar(a) Perl_lex_peek_unichar(aTHX_ a) +#define lex_read_unichar(a) Perl_lex_read_unichar(aTHX_ a) +#define lex_read_space(a) Perl_lex_read_space(aTHX_ a) #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) @@ -2977,9 +3036,9 @@ #ifdef PERL_CORE #define package_version(a) Perl_package_version(aTHX_ a) #define pad_alloc(a,b) Perl_pad_alloc(aTHX_ a,b) -#define allocmy(a) Perl_allocmy(aTHX_ a) -#define pad_findmy(a) Perl_pad_findmy(aTHX_ a) +#define allocmy(a,b,c) Perl_allocmy(aTHX_ a,b,c) #endif +#define pad_findmy(a,b,c) Perl_pad_findmy(aTHX_ a,b,c) #define find_rundefsvoffset() Perl_find_rundefsvoffset(aTHX) #ifdef PERL_CORE #define oopsAV(a) Perl_oopsAV(aTHX_ a) @@ -3034,7 +3093,6 @@ #define pidgone(a,b) S_pidgone(aTHX_ a,b) #endif #endif -#define pmflag(a,b) Perl_pmflag(aTHX_ a,b) #ifdef PERL_CORE #define pmruntime(a,b,c) Perl_pmruntime(aTHX_ a,b,c) #endif @@ -3060,7 +3118,7 @@ #define pregfree(a) Perl_pregfree(aTHX_ a) #define pregfree2(a) Perl_pregfree2(aTHX_ a) #if defined(PERL_CORE) || defined(PERL_EXT) -#define reg_temp_copy(a) Perl_reg_temp_copy(aTHX_ a) +#define reg_temp_copy(a,b) Perl_reg_temp_copy(aTHX_ a,b) #endif #define regfree_internal(a) Perl_regfree_internal(aTHX_ a) #if defined(USE_ITHREADS) @@ -3387,7 +3445,7 @@ #endif #define whichsig(a) Perl_whichsig(aTHX_ a) #ifdef PERL_CORE -#define write_to_stderr(a,b) Perl_write_to_stderr(aTHX_ a,b) +#define write_to_stderr(a) Perl_write_to_stderr(aTHX_ a) #define yyerror(a) Perl_yyerror(aTHX_ a) #endif #if defined(PERL_CORE) || defined(PERL_EXT) @@ -3932,6 +3990,14 @@ #define update_debugger_info(a,b,c) S_update_debugger_info(aTHX_ a,b,c) #define skipspace(a) S_skipspace(aTHX_ a) #define swallow_bom(a) S_swallow_bom(aTHX_ a) +#endif +#ifndef PERL_NO_UTF16_FILTER +#ifdef PERL_CORE +#define utf16_textfilter(a,b,c) S_utf16_textfilter(aTHX_ a,b,c) +#define add_utf16_textfilter(a,b) S_add_utf16_textfilter(aTHX_ a,b) +#endif +#endif +#ifdef PERL_CORE #define checkcomma(a,b,c) S_checkcomma(aTHX_ a,b,c) #define feature_is_enabled(a,b) S_feature_is_enabled(aTHX_ a,b) #define force_ident(a,b) S_force_ident(aTHX_ a,b) @@ -3944,9 +4010,10 @@ #define sublex_done() S_sublex_done(aTHX) #define sublex_push() S_sublex_push(aTHX) #define sublex_start() S_sublex_start(aTHX) -#define filter_gets(a,b,c) S_filter_gets(aTHX_ a,b,c) +#define filter_gets(a,b) S_filter_gets(aTHX_ a,b) #define find_in_my_stash(a,b) S_find_in_my_stash(aTHX_ a,b) #define tokenize_use(a,b) S_tokenize_use(aTHX_ a,b) +#define deprecate_commaless_var_list() S_deprecate_commaless_var_list(aTHX) #define ao(a) S_ao(aTHX_ a) #endif # if defined(PERL_CR_FILTER) @@ -3978,8 +4045,8 @@ #ifdef PERL_CORE #define closest_cop(a,b) S_closest_cop(aTHX_ a,b) #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,d) S_vdie_common(aTHX_ a,b,c,d) +#define vdie_croak_common(a,b) S_vdie_croak_common(aTHX_ a,b) +#define vdie_common(a,b) S_vdie_common(aTHX_ a,b) #define write_no_mem() S_write_no_mem(aTHX) #endif #if defined(PERL_MEM_LOG) && !defined(PERL_MEM_LOG_NOIMPL) @@ -4051,7 +4118,11 @@ #define pad_undef(a) Perl_pad_undef(aTHX_ a) #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 +#if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT) +#ifdef PERL_CORE +#define pad_check_dup(a,b,c) S_pad_check_dup(aTHX_ a,b,c) +#endif #endif #ifdef DEBUGGING #ifdef PERL_CORE @@ -4071,6 +4142,7 @@ #if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE #define pad_findlex(a,b,c,d,e,f,g) S_pad_findlex(aTHX_ a,b,c,d,e,f,g) +#define pad_add_name_sv(a,b,c,d) S_pad_add_name_sv(aTHX_ a,b,c,d) #endif # if defined(DEBUGGING) #ifdef PERL_CORE @@ -4243,6 +4315,11 @@ #endif #ifdef PERL_DONT_CREATE_GVSV #endif +#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT) +#ifdef PERL_CORE +#define ckwarn_common(a) S_ckwarn_common(aTHX_ a) +#endif +#endif #if defined(PERL_CORE) || defined(PERL_EXT) #endif #ifdef PERL_CORE @@ -4341,6 +4418,8 @@ #endif #ifdef PERL_CORE #endif +#ifdef PERL_CORE +#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) @@ -4409,6 +4488,7 @@ #define pp_bit_or() Perl_pp_bit_or(aTHX) #define pp_bit_xor() Perl_pp_bit_xor(aTHX) #define pp_bless() Perl_pp_bless(aTHX) +#define pp_boolkeys() Perl_pp_boolkeys(aTHX) #define pp_break() Perl_pp_break(aTHX) #define pp_caller() Perl_pp_caller(aTHX) #define pp_chdir() Perl_pp_chdir(aTHX)