This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove S_get_isa_hash
authorFather Chrysostomos <sprout@cpan.org>
Mon, 1 Nov 2010 06:47:59 +0000 (23:47 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 1 Nov 2010 06:48:41 +0000 (23:48 -0700)
It no longer serves much purpose, as of 7311f41d6.

embed.fnc
proto.h
universal.c

index edee2f4..4245409 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1953,7 +1953,6 @@ s |void   |printbuf       |NN const char *const fmt|NN const char *const s
 
 #if defined(PERL_IN_UNIVERSAL_C)
 s      |bool|isa_lookup        |NN HV *stash|NN const char * const name
-so     |HV *   |get_isa_hash   |NN HV *const stash
 #endif
 
 #if defined(PERL_IN_LOCALE_C)
diff --git a/proto.h b/proto.h
index 151baf8..dc25fd2 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -6863,11 +6863,6 @@ STATIC void      S_start_force(pTHX_ int where);
 #  endif
 #endif
 #if defined(PERL_IN_UNIVERSAL_C)
-STATIC HV *    S_get_isa_hash(pTHX_ HV *const stash)
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_GET_ISA_HASH  \
-       assert(stash)
-
 STATIC bool    S_isa_lookup(pTHX_ HV *stash, const char * const name)
                        __attribute__nonnull__(pTHX_1)
                        __attribute__nonnull__(pTHX_2);
index c6dd7fc..488efa0 100644 (file)
 #include "perliol.h" /* For the PERLIO_F_XXX */
 #endif
 
-static HV *
-S_get_isa_hash(pTHX_ HV *const stash)
-{
-    dVAR;
-    struct mro_meta *const meta = HvMROMETA(stash);
-
-    PERL_ARGS_ASSERT_GET_ISA_HASH;
-
-    if (!meta->isa) {
-       (void)mro_get_linear_isa(stash);
-    }
-    return meta->isa;
-}
-
 /*
  * Contributed by Graham Barr  <Graham.Barr@tiuk.ti.com>
  * The main guts of traverse_isa was actually copied from gv_fetchmeth
@@ -57,12 +43,17 @@ S_isa_lookup(pTHX_ HV *stash, const char * const name)
 {
     dVAR;
     const struct mro_meta *const meta = HvMROMETA(stash);
-    HV *const isa = meta->isa ? meta->isa : S_get_isa_hash(aTHX_ stash);
+    HV *isa = meta->isa;
     STRLEN len = strlen(name);
     const HV *our_stash;
 
     PERL_ARGS_ASSERT_ISA_LOOKUP;
 
+    if (!isa) {
+       (void)mro_get_linear_isa(stash);
+       isa = meta->isa;
+    }
+
     if (hv_common(isa, NULL, name, len, 0 /* No "UTF-8" flag possible with only
                                             a char * argument*/,
                  HV_FETCH_ISEXISTS, NULL, 0)) {