In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/290a1700e93ef27ce72cc7ca2c43896e02fb9c8d?hp=997daa56862a0fc771141f2bb18cab1d4d6fe8e3>
- Log ----------------------------------------------------------------- commit 290a1700e93ef27ce72cc7ca2c43896e02fb9c8d Author: Nicholas Clark <[email protected]> Date: Sat Oct 9 12:24:10 2010 +0100 Remove now-unused parameters from S_gv_magicalize_isa(). 997daa56862a0fc7 eliminated the need for passing these in. ----------------------------------------------------------------------- Summary of changes: embed.fnc | 2 +- embed.h | 2 +- gv.c | 6 +++--- proto.h | 7 +++---- 4 files changed, 8 insertions(+), 9 deletions(-) diff --git a/embed.fnc b/embed.fnc index 3ddf03d..ec6c8ce 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 86a3a99..8732fd8 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 dc8291c..91f68b3 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 8a020f5..5e40a62 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); -- Perl5 Master Repository
