This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Add macro to output diagnostic
authorKarl Williamson <khw@cpan.org>
Mon, 12 Oct 2015 18:29:41 +0000 (12:29 -0600)
committerKarl Williamson <khw@cpan.org>
Tue, 13 Oct 2015 19:09:42 +0000 (13:09 -0600)
This is like a similar macro, but takes an extra argument.  It will be
used in the next commit

regcomp.c

index 3455814..0c360a4 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -669,6 +669,14 @@ static const scan_data_t zero_scan_data =
             REPORT_LOCATION_ARGS(offset));         \
 } STMT_END
 
+#define vFAIL3utf8f(m, a1, a2) STMT_START {             \
+    const IV offset = RExC_parse - RExC_precomp;        \
+    if (!SIZE_ONLY)                                     \
+        SAVEFREESV(RExC_rx_sv);                         \
+    S_re_croak2(aTHX_ UTF, m, REPORT_LOCATION, a1, a2,  \
+            REPORT_LOCATION_ARGS(offset));              \
+} STMT_END
+
 /* These have asserts in them because of [perl #122671] Many warnings in
  * regcomp.c can occur twice.  If they get output in pass1 and later in that
  * pass, the pattern has to be converted to UTF-8 and the pass restarted, they