Remove now-unused parameters from S_gv_magicalize_isa().

997daa56862a0fc7 eliminated the need for passing these in.

4 files changed, 8 insertions, 9 deletions

diff --git a/embed.fnc b/embed.fnc
index 3ddf03dd31..ec6c8ce6bd 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1507,7 +1507,7 @@ sR	|I32	|do_trans_complex_utf8	|NN SV * const sv
 
 #if defined(PERL_IN_GV_C)
 s	|void	|gv_init_sv	|NN GV *gv|const svtype sv_type
-s	|void	|gv_magicalize_isa	|NN GV *gv|NN const char *nambeg|I32 add
+s	|void	|gv_magicalize_isa	|NN GV *gv
 s	|void	|gv_magicalize_overload	|NN GV *gv
 s	|HV*	|gv_get_super_pkg|NN const char* name|I32 namelen
 s	|HV*	|require_tie_mod|NN GV *gv|NN const char *varpv|NN SV* namesv \
diff --git a/embed.h b/embed.h
index 86a3a99828..8732fd813f 100644
--- a/embed.h
+++ b/embed.h
@@ -1579,7 +1579,7 @@
 #  if defined(PERL_IN_GV_C)
 #define gv_get_super_pkg(a,b)	S_gv_get_super_pkg(aTHX_ a,b)
 #define gv_init_sv(a,b)		S_gv_init_sv(aTHX_ a,b)
-#define gv_magicalize_isa(a,b,c)	S_gv_magicalize_isa(aTHX_ a,b,c)
+#define gv_magicalize_isa(a)	S_gv_magicalize_isa(aTHX_ a)
 #define gv_magicalize_overload(a)	S_gv_magicalize_overload(aTHX_ a)
 #define require_tie_mod(a,b,c,d,e)	S_require_tie_mod(aTHX_ a,b,c,d,e)
 #  endif
diff --git a/gv.c b/gv.c
index dc8291cb24..91f68b3908 100644
--- a/gv.c
+++ b/gv.c
@@ -968,7 +968,7 @@ Perl_gv_fetchsv(pTHX_ SV *name, I32 flags, const svtype sv_type) {
 }
 
 STATIC void
-S_gv_magicalize_isa(pTHX_ GV *gv, const char *nambeg, I32 add)
+S_gv_magicalize_isa(pTHX_ GV *gv)
 {
     AV* av;
 
@@ -1247,7 +1247,7 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags,
 		break;
 	    case 'I':
 		if (strEQ(name2, "SA"))
-		    gv_magicalize_isa(gv, nambeg, add);
+		    gv_magicalize_isa(gv);
 		break;
 	    case 'O':
 		if (strEQ(name2, "VERLOAD"))
@@ -1287,7 +1287,7 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags,
 		break;
 	    case 'I':
 		if (strEQ(name2, "SA")) {
-		    gv_magicalize_isa(gv, nambeg, add);
+		    gv_magicalize_isa(gv);
 		}
 		break;
 	    case 'O':
diff --git a/proto.h b/proto.h
index 8a020f5d44..5e40a62df0 100644
--- a/proto.h
+++ b/proto.h
@@ -5428,11 +5428,10 @@ STATIC void	S_gv_init_sv(pTHX_ GV *gv, const svtype sv_type)
 #define PERL_ARGS_ASSERT_GV_INIT_SV	\
 	assert(gv)
 
-STATIC void	S_gv_magicalize_isa(pTHX_ GV *gv, const char *nambeg, I32 add)
-			__attribute__nonnull__(pTHX_1)
-			__attribute__nonnull__(pTHX_2);
+STATIC void	S_gv_magicalize_isa(pTHX_ GV *gv)
+			__attribute__nonnull__(pTHX_1);
 #define PERL_ARGS_ASSERT_GV_MAGICALIZE_ISA	\
-	assert(gv); assert(nambeg)
+	assert(gv)
 
 STATIC void	S_gv_magicalize_overload(pTHX_ GV *gv)
 			__attribute__nonnull__(pTHX_1);