make SVs_PADTMP and SVs_PADSTALE share a bit

[perl5.git] / embed.h

diff --git a/embed.h b/embed.h
index 72a9ece..4c7cbe5 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -561,6 +561,9 @@
 #define sv_derived_from_sv(a,b,c)      Perl_sv_derived_from_sv(aTHX_ a,b,c)
 #define sv_destroyable(a)      Perl_sv_destroyable(aTHX_ a)
 #define sv_does(a,b)           Perl_sv_does(aTHX_ a,b)
+#define sv_does_pv(a,b,c)      Perl_sv_does_pv(aTHX_ a,b,c)
+#define sv_does_pvn(a,b,c,d)   Perl_sv_does_pvn(aTHX_ a,b,c,d)
+#define sv_does_sv(a,b,c)      Perl_sv_does_sv(aTHX_ a,b,c)
 #define sv_dump(a)             Perl_sv_dump(aTHX_ a)
 #define sv_eq_flags(a,b,c)     Perl_sv_eq_flags(aTHX_ a,b,c)
 #define sv_force_normal_flags(a,b)     Perl_sv_force_normal_flags(aTHX_ a,b)
@@ -692,7 +695,9 @@
 #ifndef PERL_IMPLICIT_CONTEXT
 #define warner                 Perl_warner
 #endif
-#define whichsig(a)            Perl_whichsig(aTHX_ a)
+#define whichsig_pv(a)         Perl_whichsig_pv(aTHX_ a)
+#define whichsig_pvn(a,b)      Perl_whichsig_pvn(aTHX_ a,b)
+#define whichsig_sv(a)         Perl_whichsig_sv(aTHX_ a)
 #if !(defined(HAS_SIGACTION) && defined(SA_SIGINFO))
 #define csighandler            Perl_csighandler
 #endif
@@ -1026,7 +1031,7 @@
 #define core_prototype(a,b,c,d)        Perl_core_prototype(aTHX_ a,b,c,d)
 #define coresub_op(a,b,c)      Perl_coresub_op(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_ckproto_len_flags(a,b,c,d,e)        Perl_cv_ckproto_len_flags(aTHX_ a,b,c,d,e)
 #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)
@@ -1169,6 +1174,7 @@
 #define sv_clean_objs()                Perl_sv_clean_objs(aTHX)
 #define sv_del_backref(a,b)    Perl_sv_del_backref(aTHX_ a,b)
 #define sv_free_arenas()       Perl_sv_free_arenas(aTHX)
+#define sv_ref(a,b,c)          Perl_sv_ref(aTHX_ a,b,c)
 #define sv_sethek(a,b)         Perl_sv_sethek(aTHX_ a,b)
 #ifndef PERL_IMPLICIT_CONTEXT
 #define tied_method            Perl_tied_method