summaryrefslogtreecommitdiff
path: root/proto.h
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2018-01-06 21:16:15 -0700
committerKarl Williamson <khw@cpan.org>2018-01-30 22:12:46 -0700
commitbe9bef6381c02eb712115613fb1630837cefeeb5 (patch)
treebc611b959af78f33fa43043e38bea2442e6bd83c /proto.h
parentfea79782ed31ac4faa71eb6193faff54b4bbe249 (diff)
downloadperl-be9bef6381c02eb712115613fb1630837cefeeb5.tar.gz
Give isSCRIPT_RUN() an extra parameter
This allows it to return the script of the run.
Diffstat (limited to 'proto.h')
-rw-r--r--proto.h10
1 files changed, 5 insertions, 5 deletions
diff --git a/proto.h b/proto.h
index 0755630a94..e6b6b21f65 100644
--- a/proto.h
+++ b/proto.h
@@ -1393,11 +1393,6 @@ PERL_CALLCONV bool Perl_isIDFIRST_lazy(pTHX_ const char* p)
#define PERL_ARGS_ASSERT_ISIDFIRST_LAZY \
assert(p)
-PERL_CALLCONV bool Perl_isSCRIPT_RUN(pTHX_ const U8 *s, const U8 *send, const bool utf8_target)
- __attribute__warn_unused_result__;
-#define PERL_ARGS_ASSERT_ISSCRIPT_RUN \
- assert(s); assert(send)
-
/* PERL_CALLCONV bool Perl_is_ascii_string(const U8* const s, STRLEN len)
__attribute__warn_unused_result__
__attribute__pure__; */
@@ -4378,6 +4373,11 @@ PERL_STATIC_INLINE STRLEN S_sv_or_pv_pos_u2b(pTHX_ SV *sv, const char *pv, STRLE
#endif
#endif
#if defined(PERL_CORE) || defined(PERL_EXT)
+PERL_CALLCONV bool Perl_isSCRIPT_RUN(pTHX_ const U8 *s, const U8 *send, const bool utf8_target, SCX_enum * ret_script)
+ __attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_ISSCRIPT_RUN \
+ assert(s); assert(send)
+
#ifndef PERL_NO_INLINE_FUNCTIONS
PERL_STATIC_INLINE Size_t S_variant_under_utf8_count(const U8* const s, const U8* const e)
__attribute__warn_unused_result__;