Performance optimisation in assert, suggested by Tim Bunce

[perl5.git] / embed.h

diff --git a/embed.h b/embed.h
index 9455afc..3e9e702 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -291,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
@@ -397,6 +398,7 @@
 #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
@@ -639,9 +641,7 @@
 #define pad_alloc              Perl_pad_alloc
 #define allocmy                        Perl_allocmy
 #endif
-#if defined(PERL_CORE) || defined(PERL_EXT)
 #define pad_findmy             Perl_pad_findmy
-#endif
 #define find_rundefsvoffset    Perl_find_rundefsvoffset
 #ifdef PERL_CORE
 #define oopsAV                 Perl_oopsAV
@@ -2656,6 +2656,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)
@@ -2770,6 +2771,7 @@
 #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)
@@ -3007,11 +3009,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)
-#endif
-#if defined(PERL_CORE) || defined(PERL_EXT)
-#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)
@@ -4091,7 +4091,7 @@
 #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)
+#define pad_check_dup(a,b,c,d) Perl_pad_check_dup(aTHX_ a,b,c,d)
 #endif
 #ifdef DEBUGGING
 #ifdef PERL_CORE