summaryrefslogtreecommitdiff
path: root/proto.h
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2005-06-04 16:40:15 +0300
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-06-04 16:55:27 +0000
commit646ca15d5cf720a2af3a258d7092a967f3a80550 (patch)
treeaaeb71a847a7f7821fbe4b337d1d88f9f5c2ad4b /proto.h
parenta433f3d2dda4db41b26d144e96f50f2022801470 (diff)
downloadperl-646ca15d5cf720a2af3a258d7092a967f3a80550.tar.gz
further speeding up of is_utf8_string()
Message-ID: <42A1850F.4040109@gmail.com> p4raw-id: //depot/perl@24706
Diffstat (limited to 'proto.h')
-rw-r--r--proto.h6
1 files changed, 6 insertions, 0 deletions
diff --git a/proto.h b/proto.h
index 04fc3ecbcc..1b9c6b6a40 100644
--- a/proto.h
+++ b/proto.h
@@ -2492,6 +2492,12 @@ STATIC SV* S_mess_alloc(pTHX);
STATIC NV S_mulexp10(NV value, I32 exponent);
#endif
+#if defined(PERL_IN_UTF8_C) || defined(PERL_DECL_PROT)
+STATIC STRLEN S_is_utf8_char_slow(pTHX_ const U8 *s, const STRLEN len)
+ __attribute__nonnull__(pTHX_1);
+
+#endif
+
START_EXTERN_C
PERL_CALLCONV void Perl_sv_setsv_flags(pTHX_ SV* dsv, SV* ssv, I32 flags)