summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorYves Orton <demerphq@gmail.com>2013-02-25 13:34:52 +0100
committerYves Orton <demerphq@gmail.com>2013-02-25 13:34:52 +0100
commitfd3249ee224079ac3a7b66dc335d7a6e6ca22d36 (patch)
tree2f4ca43669cfd6260d36e79775a461a35a24b986 /regexec.c
parent3c65df45eca48c6eefc4c409ab5a2e3a4fd64afd (diff)
downloadperl-fd3249ee224079ac3a7b66dc335d7a6e6ca22d36.tar.gz
unwrap #define argument list for REXEC_TRIE_READ_CHAR
Apparently this breaks the z/OS 1.13 c preprocessor. (Yay, now I can say I have written code for z/OS!)
Diffstat (limited to 'regexec.c')
-rw-r--r--regexec.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/regexec.c b/regexec.c
index ec6886a7bc..d376e26bd4 100644
--- a/regexec.c
+++ b/regexec.c
@@ -1226,8 +1226,8 @@ Perl_re_intuit_start(pTHX_ REGEXP * const rx, SV *sv, char *strpos,
? (utf8_target ? trie_utf8 : trie_plain) \
: (utf8_target ? trie_utf8_fold : trie_latin_utf8_fold))
-#define REXEC_TRIE_READ_CHAR(trie_type, trie, widecharmap, uc, uscan, len, \
-uvc, charid, foldlen, foldbuf, uniflags) STMT_START { \
+#define REXEC_TRIE_READ_CHAR(trie_type, trie, widecharmap, uc, uscan, len, uvc, charid, foldlen, foldbuf, uniflags) \
+STMT_START { \
STRLEN skiplen; \
switch (trie_type) { \
case trie_utf8_fold: \