Change 34349: S_isa_lookup() no longer recurses (as of Brandon's MRO changes), so we

[Nicholas Clark]

Change 34349 by [EMAIL PROTECTED] on 2008/09/11 21:12:51

        S_isa_lookup() no longer recurses (as of Brandon's MRO changes), so we
        don't need to pass in name_stash as a parameter.

Affected files ...

... //depot/perl/embed.fnc#616 edit
... //depot/perl/embed.h#762 edit
... //depot/perl/proto.h#950 edit
... //depot/perl/universal.c#195 edit

Differences ...

==== //depot/perl/embed.fnc#616 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#615~33901~   2008-05-21 06:35:43.000000000 -0700
+++ perl/embed.fnc      2008-09-11 14:12:51.000000000 -0700
@@ -1660,7 +1660,7 @@
 #endif
 
 #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
-s      |bool|isa_lookup        |NULLOK HV *stash|NN const char * const 
name|NULLOK const HV * const name_stash
+s      |bool|isa_lookup        |NULLOK HV *stash|NN const char * const name
 #endif
 
 #if defined(PERL_IN_LOCALE_C) || defined(PERL_DECL_PROT)

==== //depot/perl/embed.h#762 (text+w) ====
Index: perl/embed.h
--- perl/embed.h#761~33901~     2008-05-21 06:35:43.000000000 -0700
+++ perl/embed.h        2008-09-11 14:12:51.000000000 -0700
@@ -3897,7 +3897,7 @@
 #endif
 #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
 #ifdef PERL_CORE
-#define isa_lookup(a,b,c)      S_isa_lookup(aTHX_ a,b,c)
+#define isa_lookup(a,b)                S_isa_lookup(aTHX_ a,b)
 #endif
 #endif
 #if defined(PERL_IN_LOCALE_C) || defined(PERL_DECL_PROT)

==== //depot/perl/proto.h#950 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#949~33901~     2008-05-21 06:35:43.000000000 -0700
+++ perl/proto.h        2008-09-11 14:12:51.000000000 -0700
@@ -5851,7 +5851,7 @@
 #endif
 
 #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
-STATIC bool    S_isa_lookup(pTHX_ HV *stash, const char * const name, const HV 
* const name_stash)
+STATIC bool    S_isa_lookup(pTHX_ HV *stash, const char * const name)
                        __attribute__nonnull__(pTHX_2);
 #define PERL_ARGS_ASSERT_ISA_LOOKUP    \
        assert(name)

==== //depot/perl/universal.c#195 (text) ====
Index: perl/universal.c
--- perl/universal.c#194~34217~ 2008-08-22 07:49:49.000000000 -0700
+++ perl/universal.c    2008-09-11 14:12:51.000000000 -0700
@@ -37,13 +37,14 @@
  */
 
 STATIC bool
-S_isa_lookup(pTHX_ HV *stash, const char * const name, const HV* const 
name_stash)
+S_isa_lookup(pTHX_ HV *stash, const char * const name)
 {
     dVAR;
     AV* stash_linear_isa;
     SV** svp;
     const char *hvname;
     I32 items;
+    const HV *const name_stash = gv_stashpv(name, 0);
 
     PERL_ARGS_ASSERT_ISA_LOOKUP;
 
@@ -116,8 +117,7 @@
     }
 
     if (stash) {
-       HV * const name_stash = gv_stashpv(name, 0);
-       return isa_lookup(stash, name, name_stash);
+       return isa_lookup(stash, name);
     }
     else
        return FALSE;
End of Patch.