summaryrefslogtreecommitdiff
path: root/proto.h
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2013-01-30 08:29:54 -0700
committerKarl Williamson <public@khwilliamson.com>2013-02-03 21:41:27 -0700
commitfaba6d79566ceeef1f0ca970101c1bdbcc0418df (patch)
treea783628bac019a695e96827b9c93a6ae01681813 /proto.h
parent4eca649df00d863f81831ca4045f65f1bb0f1683 (diff)
downloadperl-faba6d79566ceeef1f0ca970101c1bdbcc0418df.tar.gz
regcomp.c: Extract code into function
The code to parse the flags that occur after in '(?foo)' and '(?foo:bar)' is extracted into a function; some comments were added. This is in preparation for this to be called from an additional place
Diffstat (limited to 'proto.h')
-rw-r--r--proto.h5
1 files changed, 5 insertions, 0 deletions
diff --git a/proto.h b/proto.h
index 2f03aa0341..fde67d9e28 100644
--- a/proto.h
+++ b/proto.h
@@ -6626,6 +6626,11 @@ STATIC char * S_nextchar(pTHX_ struct RExC_state_t *pRExC_state)
#define PERL_ARGS_ASSERT_NEXTCHAR \
assert(pRExC_state)
+STATIC void S_parse_lparen_question_flags(pTHX_ struct RExC_state_t *pRExC_state)
+ __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_PARSE_LPAREN_QUESTION_FLAGS \
+ assert(pRExC_state)
+
PERL_STATIC_NO_RET void S_re_croak2(pTHX_ const char* pat1, const char* pat2, ...)
__attribute__noreturn__
__attribute__nonnull__(pTHX_1)