diff options
| author | Andy Lester <andy@petdance.com> | 2007-05-09 06:49:13 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-05-09 17:20:35 +0000 |
| commit | 810e611394e65af2f8be3aaa197ca7d2ca61e563 (patch) | |
| tree | 4729ec50b870c5cd330a6735fa1b0cd1bdce7dea | |
| parent | 9ff703dd13e95d1b87541d7c0507f117841b1046 (diff) | |
| download | perl-810e611394e65af2f8be3aaa197ca7d2ca61e563.tar.gz | |
Remove unused parms in S_isa_lookup
Message-Id: <1CBA316A-EC1D-4E8F-8DEE-35322F390358@petdance.com>
p4raw-id: //depot/perl@31185
| -rw-r--r-- | embed.fnc | 2 | ||||
| -rw-r--r-- | embed.h | 2 | ||||
| -rw-r--r-- | proto.h | 2 | ||||
| -rw-r--r-- | universal.c | 9 |
4 files changed, 6 insertions, 9 deletions
@@ -1550,7 +1550,7 @@ s |void |printbuf |NN const char* fmt|NN const char* s #endif #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT) -s |bool|isa_lookup |NULLOK HV *stash|NN const char *name|NULLOK const HV * const name_stash|int len|int level +s |bool|isa_lookup |NULLOK HV *stash|NN const char * const name|NULLOK const HV * const name_stash #endif #if defined(PERL_IN_LOCALE_C) || defined(PERL_DECL_PROT) @@ -3831,7 +3831,7 @@ #endif #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT) #ifdef PERL_CORE -#define isa_lookup(a,b,c,d,e) S_isa_lookup(aTHX_ a,b,c,d,e) +#define isa_lookup(a,b,c) S_isa_lookup(aTHX_ a,b,c) #endif #endif #if defined(PERL_IN_LOCALE_C) || defined(PERL_DECL_PROT) @@ -4135,7 +4135,7 @@ STATIC void S_printbuf(pTHX_ const char* fmt, const char* s) #endif #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT) -STATIC bool S_isa_lookup(pTHX_ HV *stash, const char *name, const HV * const name_stash, int len, int level) +STATIC bool S_isa_lookup(pTHX_ HV *stash, const char * const name, const HV * const name_stash) __attribute__nonnull__(pTHX_2); #endif diff --git a/universal.c b/universal.c index ef73504535..396dd3d0bd 100644 --- a/universal.c +++ b/universal.c @@ -32,16 +32,13 @@ */ STATIC bool -S_isa_lookup(pTHX_ HV *stash, const char *name, const HV* const name_stash, - int len, int level) +S_isa_lookup(pTHX_ HV *stash, const char * const name, const HV* const name_stash) { dVAR; AV* stash_linear_isa; SV** svp; const char *hvname; I32 items; - PERL_UNUSED_ARG(len); - PERL_UNUSED_ARG(level); /* A stash/class can go by many names (ie. User == main::User), so we compare the stash itself just in case */ @@ -61,7 +58,7 @@ S_isa_lookup(pTHX_ HV *stash, const char *name, const HV* const name_stash, items = AvFILLp(stash_linear_isa); while (items--) { SV* const basename_sv = *svp++; - HV* basestash = gv_stashsv(basename_sv, 0); + HV* const basestash = gv_stashsv(basename_sv, 0); if (!basestash) { if (ckWARN(WARN_SYNTAX)) Perl_warner(aTHX_ packWARN(WARN_SYNTAX), @@ -110,7 +107,7 @@ Perl_sv_derived_from(pTHX_ SV *sv, const char *name) if (stash) { HV * const name_stash = gv_stashpv(name, 0); - return isa_lookup(stash, name, name_stash, strlen(name), 0); + return isa_lookup(stash, name, name_stash); } else return FALSE; |