Regenerate headers and fix compilation with threads after last commit

diff --git a/embed.h b/embed.h
index 9af17f6..1b2c9de 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -1179,6 +1179,7 @@
 #ifdef PERL_CORE
 #define hsplit                 S_hsplit
 #define hfreeentries           S_hfreeentries
+#define anonymise_cv           S_anonymise_cv
 #define new_he                 S_new_he
 #define save_hek_flags         S_save_hek_flags
 #define hv_magic_check         S_hv_magic_check
@@ -3515,6 +3516,7 @@
 #ifdef PERL_CORE
 #define hsplit(a)              S_hsplit(aTHX_ a)
 #define hfreeentries(a)                S_hfreeentries(aTHX_ a)
+#define anonymise_cv(a,b)      S_anonymise_cv(aTHX_ a,b)
 #define new_he()               S_new_he(aTHX)
 #define save_hek_flags         S_save_hek_flags
 #define hv_magic_check         S_hv_magic_check

diff --git a/hv.c b/hv.c
index ab22584..8d1c6a9 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -1483,7 +1483,7 @@ Perl_hv_free_ent(pTHX_ HV *hv, register HE *entry)
 }
 
 static I32
-S_anonymise_cv(const char *stash, SV *val)
+S_anonymise_cv(pTHX_ const char *stash, SV *val)
 {
     CV *cv;
 
@@ -1494,7 +1494,7 @@ S_anonymise_cv(const char *stash, SV *val)
            SV *gvname;
            GV *anongv;
 
-           gvname = newSVpvf("%s::__ANON__", stash ? stash : "__ANON__");
+           gvname = Perl_newSVpvf(aTHX_ "%s::__ANON__", stash ? stash : "__ANON__");
            anongv = gv_fetchsv(gvname, GV_ADDMULTI, SVt_PVCV);
            SvREFCNT_dec(gvname);
            CvGV(cv) = anongv;

diff --git a/proto.h b/proto.h
index 285e05f..ffa7c39 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -4254,6 +4254,11 @@ STATIC void      S_hfreeentries(pTHX_ HV *hv)
 #define PERL_ARGS_ASSERT_HFREEENTRIES  \
        assert(hv)
 
+STATIC I32     S_anonymise_cv(pTHX_ const char *stash, SV *val)
+                       __attribute__nonnull__(pTHX_2);
+#define PERL_ARGS_ASSERT_ANONYMISE_CV  \
+       assert(val)
+
 STATIC HE*     S_new_he(pTHX)
                        __attribute__malloc__
                        __attribute__warn_unused_result__;