epigraph for 5.15.1

[perl5.git] / embed.h

diff --git a/embed.h b/embed.h
index a812200..fa1a2a9 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -78,6 +78,7 @@
 #define croak_xs_usage(a,b)    Perl_croak_xs_usage(aTHX_ a,b)
 #define custom_op_desc(a)      Perl_custom_op_desc(aTHX_ a)
 #define custom_op_name(a)      Perl_custom_op_name(aTHX_ a)
+#define cv_clone(a)            Perl_cv_clone(aTHX_ a)
 #define cv_const_sv(a)         Perl_cv_const_sv(aTHX_ a)
 #define cv_get_call_checker(a,b,c)     Perl_cv_get_call_checker(aTHX_ a,b,c)
 #define cv_set_call_checker(a,b,c)     Perl_cv_set_call_checker(aTHX_ a,b,c)
@@ -382,7 +383,17 @@
 #define op_scope(a)            Perl_op_scope(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 pad_add_anon(a,b)      Perl_pad_add_anon(aTHX_ a,b)
+#define pad_add_name_pv(a,b,c,d)       Perl_pad_add_name_pv(aTHX_ a,b,c,d)
+#define pad_add_name_pvn(a,b,c,d,e)    Perl_pad_add_name_pvn(aTHX_ a,b,c,d,e)
+#define pad_add_name_sv(a,b,c,d)       Perl_pad_add_name_sv(aTHX_ a,b,c,d)
+#define pad_alloc(a,b)         Perl_pad_alloc(aTHX_ a,b)
+#define pad_compname_type(a)   Perl_pad_compname_type(aTHX_ a)
+#define pad_findmy_pv(a,b)     Perl_pad_findmy_pv(aTHX_ a,b)
+#define pad_findmy_pvn(a,b,c)  Perl_pad_findmy_pvn(aTHX_ a,b,c)
+#define pad_findmy_sv(a,b)     Perl_pad_findmy_sv(aTHX_ a,b)
+#define pad_new(a)             Perl_pad_new(aTHX_ a)
+#define pad_tidy(a)            Perl_pad_tidy(aTHX_ a)
 #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)
@@ -669,7 +680,6 @@
 #ifndef PERL_IMPLICIT_CONTEXT
 #define warner                 Perl_warner
 #endif
-#define was_lvalue_sub()       Perl_was_lvalue_sub(aTHX)
 #define whichsig(a)            Perl_whichsig(aTHX_ a)
 #if !(defined(HAS_SIGACTION) && defined(SA_SIGINFO))
 #define csighandler            Perl_csighandler
@@ -697,6 +707,7 @@
 #define my_bcopy               Perl_my_bcopy
 #endif
 #if defined(DEBUGGING)
+#define pad_setsv(a,b)         Perl_pad_setsv(aTHX_ a,b)
 #define pad_sv(a)              Perl_pad_sv(aTHX_ a)
 #endif
 #if defined(DUMP_FDS)
@@ -998,7 +1009,6 @@
 #define convert(a,b,c)         Perl_convert(aTHX_ a,b,c)
 #define create_eval_scope(a)   Perl_create_eval_scope(aTHX_ a)
 #define cv_ckproto_len(a,b,c,d)        Perl_cv_ckproto_len(aTHX_ a,b,c,d)
-#define cv_clone(a)            Perl_cv_clone(aTHX_ a)
 #define cvgv_set(a,b)          Perl_cvgv_set(aTHX_ a,b)
 #define cvstash_set(a,b)       Perl_cvstash_set(aTHX_ a,b)
 #define deb_stack_all()                Perl_deb_stack_all(aTHX)
@@ -1106,18 +1116,12 @@
 #define oopsHV(a)              Perl_oopsHV(aTHX_ a)
 #define op_const_sv(a,b)       Perl_op_const_sv(aTHX_ a,b)
 #define package_version(a)     Perl_package_version(aTHX_ a)
-#define pad_add_anon(a,b)      Perl_pad_add_anon(aTHX_ a,b)
-#define pad_add_name(a,b,c,d,e)        Perl_pad_add_name(aTHX_ a,b,c,d,e)
-#define pad_alloc(a,b)         Perl_pad_alloc(aTHX_ a,b)
 #define pad_block_start(a)     Perl_pad_block_start(aTHX_ a)
-#define pad_compname_type(a)   Perl_pad_compname_type(aTHX_ a)
 #define pad_fixup_inner_anons(a,b,c)   Perl_pad_fixup_inner_anons(aTHX_ a,b,c)
 #define pad_free(a)            Perl_pad_free(aTHX_ a)
 #define pad_leavemy()          Perl_pad_leavemy(aTHX)
-#define pad_new(a)             Perl_pad_new(aTHX_ a)
 #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 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)
@@ -1213,7 +1217,6 @@
 #  endif
 #  if defined(DEBUGGING)
 #define get_debug_opts(a,b)    Perl_get_debug_opts(aTHX_ a,b)
-#define pad_setsv(a,b)         Perl_pad_setsv(aTHX_ a,b)
 #    if defined(PERL_IN_PAD_C)
 #define cv_dump(a,b)           S_cv_dump(aTHX_ a,b)
 #    endif
@@ -1362,9 +1365,9 @@
 #define too_many_arguments(a,b)        S_too_many_arguments(aTHX_ a,b)
 #  endif
 #  if defined(PERL_IN_PAD_C)
-#define pad_add_name_sv(a,b,c,d)       S_pad_add_name_sv(aTHX_ a,b,c,d)
+#define pad_alloc_name(a,b,c,d)        S_pad_alloc_name(aTHX_ a,b,c,d)
 #define pad_check_dup(a,b,c)   S_pad_check_dup(aTHX_ a,b,c)
-#define pad_findlex(a,b,c,d,e,f,g)     S_pad_findlex(aTHX_ a,b,c,d,e,f,g)
+#define pad_findlex(a,b,c,d,e,f,g,h,i) S_pad_findlex(aTHX_ a,b,c,d,e,f,g,h,i)
 #define pad_reset()            S_pad_reset(aTHX)
 #  endif
 #  if defined(PERL_IN_PERL_C)