speedup for SUPER::method() calls.

[perl5.git] / proto.h

diff --git a/proto.h b/proto.h
index aabb5c5..b39d4db 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -1868,10 +1868,14 @@ PERL_CALLCONV bool      Perl_isIDFIRST_lazy(pTHX_ const char* p)
 #define PERL_ARGS_ASSERT_ISIDFIRST_LAZY        \
        assert(p)
 
-PERL_CALLCONV bool     Perl_is_ascii_string(const U8 *s, STRLEN len)
+/* PERL_CALLCONV bool  Perl_is_ascii_string(pTHX_ const U8 *s, STRLEN len)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1); */
+
+PERL_CALLCONV bool     Perl_is_invariant_string(const U8 *s, STRLEN len)
                        __attribute__warn_unused_result__
                        __attribute__nonnull__(1);
-#define PERL_ARGS_ASSERT_IS_ASCII_STRING       \
+#define PERL_ARGS_ASSERT_IS_INVARIANT_STRING   \
        assert(s)
 
 PERL_CALLCONV I32      Perl_is_lvalue_sub(pTHX)
@@ -6601,10 +6605,9 @@ STATIC void      S_do_oddball(pTHX_ SV **oddkey, SV **firstkey)
 #define PERL_ARGS_ASSERT_DO_ODDBALL    \
        assert(oddkey); assert(firstkey)
 
-STATIC SV*     S_method_common(pTHX_ SV* meth, U32* hashp)
-                       __attribute__warn_unused_result__
+PERL_STATIC_INLINE HV* S_opmethod_stash(pTHX_ SV* meth)
                        __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_METHOD_COMMON \
+#define PERL_ARGS_ASSERT_OPMETHOD_STASH        \
        assert(meth)
 
 #endif