This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: Update comments, variable names
[perl5.git] / regexp.h
index aefdac8..78fec57 100644 (file)
--- a/regexp.h
+++ b/regexp.h
@@ -56,7 +56,12 @@ typedef struct regexp_paren_pair {
 } regexp_paren_pair;
 
 #if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_UTF8_C)
+#define _invlist_union(a, b, output) _invlist_union_maybe_complement_2nd(a, b, FALSE, output)
 #define _invlist_intersection(a, b, output) _invlist_intersection_maybe_complement_2nd(a, b, FALSE, output)
+
+/* Subtracting b from a leaves in a everything that was there that isn't in b,
+ * that is the intersection of a with b's complement */
+#define _invlist_subtract(a, b, output) _invlist_intersection_maybe_complement_2nd(a, b, TRUE, output)
 #endif
 
 /*