This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #36347] Object destruction incomplete
[perl5.git] / embed.h
diff --git a/embed.h b/embed.h
index 134c349..e393a01 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -28,6 +28,7 @@
 
 #define Gv_AMupdate(a,b)       Perl_Gv_AMupdate(aTHX_ a,b)
 #define amagic_call(a,b,c,d)   Perl_amagic_call(aTHX_ a,b,c,d)
+#define amagic_deref_call(a,b) Perl_amagic_deref_call(aTHX_ a,b)
 #define apply_attrs_string(a,b,c,d)    Perl_apply_attrs_string(aTHX_ a,b,c,d)
 #define atfork_lock            Perl_atfork_lock
 #define atfork_unlock          Perl_atfork_unlock
@@ -46,6 +47,7 @@
 #define av_undef(a)            Perl_av_undef(aTHX_ a)
 #define av_unshift(a,b)                Perl_av_unshift(aTHX_ a,b)
 #define block_gimme()          Perl_block_gimme(aTHX)
+#define bytes_cmp_utf8(a,b,c,d)        Perl_bytes_cmp_utf8(aTHX_ a,b,c,d)
 #define bytes_from_utf8(a,b,c) Perl_bytes_from_utf8(aTHX_ a,b,c)
 #define bytes_to_utf8(a,b)     Perl_bytes_to_utf8(aTHX_ a,b)
 #define call_argv(a,b,c)       Perl_call_argv(aTHX_ a,b,c)
 #define find_rundefsv()                Perl_find_rundefsv(aTHX)
 #define find_rundefsvoffset()  Perl_find_rundefsvoffset(aTHX)
 #define foldEQ                 Perl_foldEQ
+#define foldEQ_latin1          Perl_foldEQ_latin1
 #define foldEQ_locale          Perl_foldEQ_locale
 #define foldEQ_utf8(a,b,c,d,e,f,g,h)   Perl_foldEQ_utf8(aTHX_ a,b,c,d,e,f,g,h)
 #ifndef PERL_IMPLICIT_CONTEXT
 #define hv_ksplit(a,b)         Perl_hv_ksplit(aTHX_ a,b)
 #define hv_name_set(a,b,c,d)   Perl_hv_name_set(aTHX_ a,b,c,d)
 #define hv_scalar(a)           Perl_hv_scalar(aTHX_ a)
-#define hv_undef(a)            Perl_hv_undef(aTHX_ a)
 #define init_i18nl10n(a)       Perl_init_i18nl10n(aTHX_ a)
 #define init_i18nl14n(a)       Perl_init_i18nl14n(aTHX_ a)
 #define init_stacks()          Perl_init_stacks(aTHX)
 #define mg_clear(a)            Perl_mg_clear(aTHX_ a)
 #define mg_copy(a,b,c,d)       Perl_mg_copy(aTHX_ a,b,c,d)
 #define mg_find(a,b)           Perl_mg_find(aTHX_ a,b)
+#define mg_findext(a,b,c)      Perl_mg_findext(aTHX_ a,b,c)
 #define mg_free(a)             Perl_mg_free(aTHX_ a)
 #define mg_free_type(a,b)      Perl_mg_free_type(aTHX_ a,b)
 #define mg_get(a)              Perl_mg_get(aTHX_ a)
 #define newRV_noinc(a)         Perl_newRV_noinc(aTHX_ a)
 #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 newSV(a)               Perl_newSV(aTHX_ a)
 #define newSVOP(a,b,c)         Perl_newSVOP(aTHX_ a,b,c)
 #define newSVREF(a)            Perl_newSVREF(aTHX_ a)
 #define pack_cat(a,b,c,d,e,f,g)        Perl_pack_cat(aTHX_ a,b,c,d,e,f,g)
 #define packlist(a,b,c,d,e)    Perl_packlist(aTHX_ a,b,c,d,e)
 #define pad_findmy(a,b,c)      Perl_pad_findmy(aTHX_ a,b,c)
+#define parse_arithexpr(a)     Perl_parse_arithexpr(aTHX_ a)
 #define parse_barestmt(a)      Perl_parse_barestmt(aTHX_ a)
 #define parse_block(a)         Perl_parse_block(aTHX_ a)
+#define parse_fullexpr(a)      Perl_parse_fullexpr(aTHX_ a)
 #define parse_fullstmt(a)      Perl_parse_fullstmt(aTHX_ a)
 #define parse_label(a)         Perl_parse_label(aTHX_ a)
+#define parse_listexpr(a)      Perl_parse_listexpr(aTHX_ a)
 #define parse_stmtseq(a)       Perl_parse_stmtseq(aTHX_ a)
+#define parse_termexpr(a)      Perl_parse_termexpr(aTHX_ a)
 #define pmop_dump(a)           Perl_pmop_dump(aTHX_ a)
 #define pop_scope()            Perl_pop_scope(aTHX)
 #define pregcomp(a,b)          Perl_pregcomp(aTHX_ a,b)
 #define sv_catsv_flags(a,b,c)  Perl_sv_catsv_flags(aTHX_ a,b,c)
 #define sv_chop(a,b)           Perl_sv_chop(aTHX_ a,b)
 #define sv_clear(a)            Perl_sv_clear(aTHX_ a)
-#define sv_cmp(a,b)            Perl_sv_cmp(aTHX_ a,b)
 #define sv_cmp_flags(a,b,c)    Perl_sv_cmp_flags(aTHX_ a,b,c)
-#define sv_cmp_locale(a,b)     Perl_sv_cmp_locale(aTHX_ a,b)
 #define sv_cmp_locale_flags(a,b,c)     Perl_sv_cmp_locale_flags(aTHX_ a,b,c)
 #define sv_compile_2op(a,b,c,d)        Perl_sv_compile_2op(aTHX_ a,b,c,d)
 #define sv_copypv(a,b)         Perl_sv_copypv(aTHX_ a,b)
 #define sv_true(a)             Perl_sv_true(aTHX_ a)
 #define sv_uni_display(a,b,c,d)        Perl_sv_uni_display(aTHX_ a,b,c,d)
 #define sv_unmagic(a,b)                Perl_sv_unmagic(aTHX_ a,b)
+#define sv_unmagicext(a,b,c)   Perl_sv_unmagicext(aTHX_ a,b,c)
 #define sv_unref_flags(a,b)    Perl_sv_unref_flags(aTHX_ a,b)
 #define sv_untaint(a)          Perl_sv_untaint(aTHX_ a)
 #define sv_upgrade(a,b)                Perl_sv_upgrade(aTHX_ a,b)
 #define do_spawn_nowait(a)     Perl_do_spawn_nowait(aTHX_ a)
 #endif
 #if defined(PERL_CORE) || defined(PERL_EXT)
+#define _swash_inversion_hash(a)       Perl__swash_inversion_hash(aTHX_ a)
 #define av_reify(a)            Perl_av_reify(aTHX_ a)
 #define grok_bslash_c(a,b)     Perl_grok_bslash_c(aTHX_ a,b)
 #define grok_bslash_o(a,b,c,d,e)       Perl_grok_bslash_o(aTHX_ a,b,c,d,e)
 #define is_utf8_X_extend(a)    Perl_is_utf8_X_extend(aTHX_ a)
 #define is_utf8_X_non_hangul(a)        Perl_is_utf8_X_non_hangul(aTHX_ a)
 #define is_utf8_X_prepend(a)   Perl_is_utf8_X_prepend(aTHX_ a)
+#define mod(a,b)               Perl_mod(aTHX_ a,b)
 #define op_clear(a)            Perl_op_clear(aTHX_ a)
 #define qerror(a)              Perl_qerror(aTHX_ a)
 #define reg_named_buff(a,b,c,d)        Perl_reg_named_buff(aTHX_ a,b,c,d)
 #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_push(a)             Perl_ck_push(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 delete_eval_scope()    Perl_delete_eval_scope(aTHX)
 #define die_unwind(a)          Perl_die_unwind(aTHX_ a)
 #define do_aexec5(a,b,c,d,e)   Perl_do_aexec5(aTHX_ a,b,c,d,e)
-#define do_chomp(a)            Perl_do_chomp(aTHX_ a)
-#define do_chop(a,b)           Perl_do_chop(aTHX_ a,b)
 #define do_dump_pad(a,b,c,d)   Perl_do_dump_pad(aTHX_ a,b,c,d)
 #define do_eof(a)              Perl_do_eof(aTHX_ a)
 #define do_execfree()          Perl_do_execfree(aTHX)
 #define get_no_modify()                Perl_get_no_modify(aTHX)
 #define get_opargs()           Perl_get_opargs(aTHX)
 #define gv_try_downgrade(a)    Perl_gv_try_downgrade(aTHX_ a)
-#define hv_ename_add(a,b,c)    Perl_hv_ename_add(aTHX_ a,b,c)
-#define hv_ename_delete(a,b,c) Perl_hv_ename_delete(aTHX_ a,b,c)
+#define hv_ename_add(a,b,c,d)  Perl_hv_ename_add(aTHX_ a,b,c,d)
+#define hv_ename_delete(a,b,c,d)       Perl_hv_ename_delete(aTHX_ a,b,c,d)
 #define init_argv_symbols(a,b) Perl_init_argv_symbols(aTHX_ a,b)
 #define init_debugger()                Perl_init_debugger(aTHX)
 #define intro_my()             Perl_intro_my(aTHX)
 #define magic_wipepack(a,b)    Perl_magic_wipepack(aTHX_ a,b)
 #define mg_localize(a,b,c)     Perl_mg_localize(aTHX_ a,b,c)
 #define mode_from_discipline(a,b)      Perl_mode_from_discipline(aTHX_ a,b)
-#define mro_isa_changed_in3(a,b,c)     Perl_mro_isa_changed_in3(aTHX_ a,b,c)
-#define mro_package_moved(a,b,c,d,e)   Perl_mro_package_moved(aTHX_ a,b,c,d,e)
+#define mro_isa_changed_in(a)  Perl_mro_isa_changed_in(aTHX_ a)
+#define mro_package_moved(a,b,c,d)     Perl_mro_package_moved(aTHX_ a,b,c,d)
 #define munge_qwlist_to_paren_list(a)  Perl_munge_qwlist_to_paren_list(aTHX_ a)
 #define my_attrs(a,b)          Perl_my_attrs(aTHX_ a,b)
 #define my_clearenv()          Perl_my_clearenv(aTHX)
 #define pad_push(a,b)          Perl_pad_push(aTHX_ a,b)
 #define pad_swipe(a,b)         Perl_pad_swipe(aTHX_ a,b)
 #define pad_tidy(a)            Perl_pad_tidy(aTHX_ a)
-#define pad_undef(a)           Perl_pad_undef(aTHX_ a)
 #define parse_unicode_opts(a)  Perl_parse_unicode_opts(aTHX_ a)
 #define parser_free(a)         Perl_parser_free(aTHX_ a)
 #define peep(a)                        Perl_peep(aTHX_ a)
 #define pp_rand()              Perl_pp_rand(aTHX)
 #define pp_range()             Perl_pp_range(aTHX)
 #define pp_rcatline()          Perl_pp_rcatline(aTHX)
+#define pp_reach()             Perl_pp_reach(aTHX)
 #define pp_read()              Perl_pp_read(aTHX)
 #define pp_readdir()           Perl_pp_readdir(aTHX)
 #define pp_readline()          Perl_pp_readline(aTHX)
 #define pp_rewinddir()         Perl_pp_rewinddir(aTHX)
 #define pp_right_shift()       Perl_pp_right_shift(aTHX)
 #define pp_rindex()            Perl_pp_rindex(aTHX)
+#define pp_rkeys()             Perl_pp_rkeys(aTHX)
 #define pp_rmdir()             Perl_pp_rmdir(aTHX)
 #define pp_rv2av()             Perl_pp_rv2av(aTHX)
 #define pp_rv2cv()             Perl_pp_rv2cv(aTHX)
 #define pp_rv2gv()             Perl_pp_rv2gv(aTHX)
 #define pp_rv2hv()             Perl_pp_rv2hv(aTHX)
 #define pp_rv2sv()             Perl_pp_rv2sv(aTHX)
+#define pp_rvalues()           Perl_pp_rvalues(aTHX)
 #define pp_sassign()           Perl_pp_sassign(aTHX)
 #define pp_say()               Perl_pp_say(aTHX)
 #define pp_scalar()            Perl_pp_scalar(aTHX)
 #define pp_time()              Perl_pp_time(aTHX)
 #define pp_tms()               Perl_pp_tms(aTHX)
 #define pp_trans()             Perl_pp_trans(aTHX)
+#define pp_transr()            Perl_pp_transr(aTHX)
 #define pp_truncate()          Perl_pp_truncate(aTHX)
 #define pp_uc()                        Perl_pp_uc(aTHX)
 #define pp_ucfirst()           Perl_pp_ucfirst(aTHX)
 #define refcounted_he_new_pv(a,b,c,d,e)        Perl_refcounted_he_new_pv(aTHX_ a,b,c,d,e)
 #define refcounted_he_new_pvn(a,b,c,d,e,f)     Perl_refcounted_he_new_pvn(aTHX_ a,b,c,d,e,f)
 #define refcounted_he_new_sv(a,b,c,d,e)        Perl_refcounted_he_new_sv(aTHX_ a,b,c,d,e)
-#define report_evil_fh(a,b,c)  Perl_report_evil_fh(aTHX_ a,b,c)
+#define report_evil_fh(a)      Perl_report_evil_fh(aTHX_ a)
+#define report_wrongway_fh(a,b)        Perl_report_wrongway_fh(aTHX_ a,b)
 #define rpeep(a)               Perl_rpeep(aTHX_ a)
 #define rsignal_restore(a,b)   Perl_rsignal_restore(aTHX_ a,b)
 #define rsignal_save(a,b,c)    Perl_rsignal_save(aTHX_ a,b,c)
 #  endif
 #  if !defined(PERL_DISABLE_PMC)
 #    if defined(PERL_IN_PP_CTL_C)
-#define doopen_pm(a,b)         S_doopen_pm(aTHX_ a,b)
+#define doopen_pm(a)           S_doopen_pm(aTHX_ a)
 #    endif
 #  endif
 #  if !defined(PERL_NO_UTF16_FILTER)
 #define unwind_handler_stack(a)        S_unwind_handler_stack(aTHX_ a)
 #  endif
 #  if defined(PERL_IN_MRO_C)
+#define mro_clean_isarev(a,b,c,d)      S_mro_clean_isarev(aTHX_ a,b,c,d)
+#define mro_gather_and_rename(a,b,c,d,e)       S_mro_gather_and_rename(aTHX_ a,b,c,d,e)
 #define mro_get_linear_isa_dfs(a,b)    S_mro_get_linear_isa_dfs(aTHX_ a,b)
 #  endif
 #  if defined(PERL_IN_NUMERIC_C)
 #define usage(a)               S_usage(aTHX_ a)
 #  endif
 #  if defined(PERL_IN_PP_C)
+#define do_chomp(a,b,c)                S_do_chomp(aTHX_ a,b,c)
 #define do_delete_local()      S_do_delete_local(aTHX)
 #define refto(a)               S_refto(aTHX_ a)
 #  endif
 #define F0convert              S_F0convert
 #define anonymise_cv_maybe(a,b)        S_anonymise_cv_maybe(aTHX_ a,b)
 #define assert_uft8_cache_coherent(a,b,c,d)    S_assert_uft8_cache_coherent(aTHX_ a,b,c,d)
+#define curse(a,b)             S_curse(aTHX_ a,b)
 #define expect_number(a)       S_expect_number(aTHX_ a)
 #define find_array_subscript(a,b)      S_find_array_subscript(aTHX_ a,b)
 #define find_hash_subscript(a,b)       S_find_hash_subscript(aTHX_ a,b)