4 files changed, 5 insertions, 5 deletions
diff --git a/embed.fnc b/embed.fnc
index 41b00871fa..cfe634ff5d 100644
--- 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 15fa37e933..802b624598 100644
--- 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 ca280b53fd..966c6d880d 100644
--- 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 3f0344b917..a0e1801313 100644
--- 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;