This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
speedup for SUPER::method() calls.
[perl5.git] / proto.h
diff --git a/proto.h b/proto.h
index 656d6b4..b39d4db 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -42,6 +42,9 @@ PERL_CALLCONV void    Perl_Slab_Free(pTHX_ void *op)
 #define PERL_ARGS_ASSERT_SLAB_FREE     \
        assert(op)
 
+PERL_CALLCONV SV*      Perl__get_encoding(pTHX)
+                       __attribute__pure__;
+
 PERL_CALLCONV bool     Perl__is_in_locale_category(pTHX_ const bool compiling, const int category);
 PERL_CALLCONV bool     Perl__is_uni_FOO(pTHX_ const U8 classnum, const UV c)
                        __attribute__warn_unused_result__;
@@ -1865,9 +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)
@@ -5426,8 +5434,8 @@ PERL_CALLCONV void        Perl_pad_setsv(pTHX_ PADOFFSET po, SV* sv)
        assert(sv)
 
 PERL_CALLCONV SV*      Perl_pad_sv(pTHX_ PADOFFSET po);
-PERL_CALLCONV void     Perl_set_padlist(pTHX_ CV * cv, PADLIST * padlist)
-                       __attribute__nonnull__(pTHX_1);
+PERL_CALLCONV void     Perl_set_padlist(CV * cv, PADLIST * padlist)
+                       __attribute__nonnull__(1);
 #define PERL_ARGS_ASSERT_SET_PADLIST   \
        assert(cv)
 
@@ -6597,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