diff options
author | Yves Orton <demerphq@gmail.com> | 2013-02-25 13:34:52 +0100 |
---|---|---|
committer | Yves Orton <demerphq@gmail.com> | 2013-02-25 13:34:52 +0100 |
commit | fd3249ee224079ac3a7b66dc335d7a6e6ca22d36 (patch) | |
tree | 2f4ca43669cfd6260d36e79775a461a35a24b986 /regexec.c | |
parent | 3c65df45eca48c6eefc4c409ab5a2e3a4fd64afd (diff) | |
download | perl-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.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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: \ |