get_isa_hash() is only used in S_isa_lookup(), so it can be static. Also, it has
authorNicholas Clark <nick@ccl4.org>
Sat, 3 Jan 2009 10:38:28 +0000 (10:38 +0000)
committerDavid Mitchell <davem@iabyn.com>
Mon, 30 Mar 2009 22:57:57 +0000 (23:57 +0100)
never been in a released version of perl, so this change has no compatibility
implications.

(cherry-picked from commit aea323039bd02667df3bd60d27358d65842cd171)

embed.fnc
proto.h
universal.c

index 449f366..e9fc5ba 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -2174,8 +2174,7 @@ p |void   |boot_core_mro
 Apon   |void   |sys_init       |NN int* argc|NN char*** argv
 Apon   |void   |sys_init3      |NN int* argc|NN char*** argv|NN char*** env
 Apon   |void   |sys_term
-: Only used in univeral.c
-poM    |HV *   |get_isa_hash   |NN HV *const stash
+so     |HV *   |get_isa_hash   |NN HV *const stash
 
 END_EXTERN_C
 /*
diff --git a/proto.h b/proto.h
index 68ee795..8c064f0 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -6643,7 +6643,7 @@ PERL_CALLCONV void        Perl_sys_init3(int* argc, char*** argv, char*** env)
        assert(argc); assert(argv); assert(env)
 
 PERL_CALLCONV void     Perl_sys_term(void);
-PERL_CALLCONV HV *     Perl_get_isa_hash(pTHX_ HV *const stash)
+STATIC HV *    S_get_isa_hash(pTHX_ HV *const stash)
                        __attribute__nonnull__(pTHX_1);
 #define PERL_ARGS_ASSERT_GET_ISA_HASH  \
        assert(stash)
index ee1f0d9..89a297f 100644 (file)
@@ -33,8 +33,8 @@
 #include "perliol.h" /* For the PERLIO_F_XXX */
 #endif
 
-HV *
-Perl_get_isa_hash(pTHX_ HV *const stash)
+static HV *
+S_get_isa_hash(pTHX_ HV *const stash)
 {
     dVAR;
     struct mro_meta *const meta = HvMROMETA(stash);
@@ -78,7 +78,7 @@ 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 : Perl_get_isa_hash(aTHX_ stash);
+    HV *const isa = meta->isa ? meta->isa : S_get_isa_hash(aTHX_ stash);
     STRLEN len = strlen(name);
     const HV *our_stash;