This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regexp.h: Define flag bit directly, not indirectly
authorKarl Williamson <khw@cpan.org>
Fri, 12 Sep 2014 19:59:13 +0000 (13:59 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 29 Sep 2014 17:07:39 +0000 (11:07 -0600)
This #defined a symbol then did a compile time check that it was the
same as another symbol.  This commit simply defines it as the other
symbol directly, and moves it to above the other definitions, which it
no longer is part of.  This prepares for the next commit.

regexp.h

index cf21c39..9cb2a8d 100644 (file)
--- a/regexp.h
+++ b/regexp.h
@@ -341,19 +341,16 @@ and check for NULL.
  *
  */
 
  *
  */
 
-/* Leave some space, so future bit allocations can go either in the shared or
- * unshared area without affecting binary compatibility */
-#define RXf_BASE_SHIFT (_RXf_PMf_SHIFT_NEXT)
-
 /*
   Set in Perl_pmruntime if op_flags & OPf_SPECIAL, i.e. split. Will
   be used by regex engines to check whether they should set
   RXf_SKIPWHITE
 */
 /*
   Set in Perl_pmruntime if op_flags & OPf_SPECIAL, i.e. split. Will
   be used by regex engines to check whether they should set
   RXf_SKIPWHITE
 */
-#define RXf_SPLIT                (1<<(RXf_BASE_SHIFT-1))
-#if RXf_SPLIT != RXf_PMf_SPLIT
-#   error "RXf_SPLIT does not match RXf_PMf_SPLIT"
-#endif
+#define RXf_SPLIT   RXf_PMf_SPLIT
+
+/* Leave some space, so future bit allocations can go either in the shared or
+ * unshared area without affecting binary compatibility */
+#define RXf_BASE_SHIFT (_RXf_PMf_SHIFT_NEXT)
 
 /* Unused +0 - +6 */
 
 
 /* Unused +0 - +6 */