unwrap #define argument list for REXEC_TRIE_READ_CHAR
authorYves Orton <demerphq@gmail.com>
Mon, 25 Feb 2013 12:34:52 +0000 (13:34 +0100)
committerYves Orton <demerphq@gmail.com>
Mon, 25 Feb 2013 12:34:52 +0000 (13:34 +0100)
Apparently this breaks the z/OS 1.13 c preprocessor. (Yay, now I can say I have written code for z/OS!)

regexec.c

index ec6886a..d376e26 100644 (file)
--- 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:                                                            \