Remove context param from sv_get_backrefs

v5.21.7-83-geaab564 added sv_get_backrefs.  v5.21.7-90-g8fbcb65
removed the one use of aTHX.

diff --git a/embed.fnc b/embed.fnc
index 41b0087..cfe634f 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1792,7 +1792,7 @@ Apdmb     |void   |sv_force_normal|NN SV *sv
 Apd    |void   |sv_force_normal_flags|NN SV *const sv|const U32 flags
 pX     |SSize_t|tmps_grow_p    |SSize_t ix
 Apd    |SV*    |sv_rvweaken    |NN SV *const sv
-ApPMd  |SV*    |sv_get_backrefs|NN SV *const sv
+AnpPMd |SV*    |sv_get_backrefs|NN SV *const sv
 : This is indirectly referenced by globals.c. This is somewhat annoying.
 p      |int    |magic_killbackrefs|NN SV *sv|NN MAGIC *mg
 Ap     |OP*    |newANONATTRSUB |I32 floor|NULLOK OP *proto|NULLOK OP *attrs|NULLOK OP *block

diff --git a/embed.h b/embed.h
index 15fa37e..802b624 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -621,7 +621,7 @@
 #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)
 #define sv_free(a)             Perl_sv_free(aTHX_ a)
-#define sv_get_backrefs(a)     Perl_sv_get_backrefs(aTHX_ a)
+#define sv_get_backrefs                Perl_sv_get_backrefs
 #define sv_gets(a,b,c)         Perl_sv_gets(aTHX_ a,b,c)
 #define sv_grow(a,b)           Perl_sv_grow(aTHX_ a,b)
 #define sv_inc(a)              Perl_sv_inc(aTHX_ a)

diff --git a/proto.h b/proto.h
index ca280b5..966c6d8 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -4392,9 +4392,9 @@ PERL_CALLCONV void        Perl_sv_free2(pTHX_ SV *const sv, const U32 refcnt)
        assert(sv)
 
 PERL_CALLCONV void     Perl_sv_free_arenas(pTHX);
-PERL_CALLCONV SV*      Perl_sv_get_backrefs(pTHX_ SV *const sv)
+PERL_CALLCONV SV*      Perl_sv_get_backrefs(SV *const sv)
                        __attribute__pure__
-                       __attribute__nonnull__(pTHX_1);
+                       __attribute__nonnull__(1);
 #define PERL_ARGS_ASSERT_SV_GET_BACKREFS       \
        assert(sv)
 

diff --git a/sv.c b/sv.c
index 3f0344b..a0e1801 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -5955,7 +5955,7 @@ Perl_sv_kill_backrefs()
 */
 
 SV *
-Perl_sv_get_backrefs(pTHX_ SV *const sv)
+Perl_sv_get_backrefs(SV *const sv)
 {
     SV *backrefs= NULL;