perldelta entry for [perl #72990] Mac OS X and setruid, etc.

[perl5.git] / regnodes.h

diff --git a/regnodes.h b/regnodes.h
index a501416..f5aacc2 100644 (file)
--- a/regnodes.h
+++ b/regnodes.h
@@ -625,27 +625,27 @@ EXTCONST char * const PL_reg_name[] = {
 EXTCONST char * PL_reg_extflags_name[];
 #else
 EXTCONST char * const PL_reg_extflags_name[] = {
-       /* Bits in extflags defined: 11111111111101111111111100111111 */
+       /* Bits in extflags defined: 11111111111111111111111001111111 */
        "MULTILINE",        /* 0x00000001 */
        "SINGLELINE",       /* 0x00000002 */
        "FOLD",             /* 0x00000004 */
        "EXTENDED",         /* 0x00000008 */
        "KEEPCOPY",         /* 0x00000010 */
        "LOCALE",           /* 0x00000020 */
-       "UNUSED_BIT_6",     /* 0x00000040 */
+       "UNICODE",          /* 0x00000040 */
        "UNUSED_BIT_7",     /* 0x00000080 */
-       "ANCH_BOL",         /* 0x00000100 */
-       "ANCH_MBOL",        /* 0x00000200 */
-       "ANCH_SBOL",        /* 0x00000400 */
-       "ANCH_GPOS",        /* 0x00000800 */
-       "GPOS_SEEN",        /* 0x00001000 */
-       "GPOS_FLOAT",       /* 0x00002000 */
-       "LOOKBEHIND_SEEN",  /* 0x00004000 */
-       "EVAL_SEEN",        /* 0x00008000 */
-       "CANY_SEEN",        /* 0x00010000 */
-       "NOSCAN",           /* 0x00020000 */
-       "CHECK_ALL",        /* 0x00040000 */
-       "UNUSED_BIT_19",    /* 0x00080000 */
+       "UNUSED_BIT_8",     /* 0x00000100 */
+       "ANCH_BOL",         /* 0x00000200 */
+       "ANCH_MBOL",        /* 0x00000400 */
+       "ANCH_SBOL",        /* 0x00000800 */
+       "ANCH_GPOS",        /* 0x00001000 */
+       "GPOS_SEEN",        /* 0x00002000 */
+       "GPOS_FLOAT",       /* 0x00004000 */
+       "LOOKBEHIND_SEEN",  /* 0x00008000 */
+       "EVAL_SEEN",        /* 0x00010000 */
+       "CANY_SEEN",        /* 0x00020000 */
+       "NOSCAN",           /* 0x00040000 */
+       "CHECK_ALL",        /* 0x00080000 */
        "MATCH_UTF8",       /* 0x00100000 */
        "USE_INTUIT_NOML",  /* 0x00200000 */
        "USE_INTUIT_ML",    /* 0x00400000 */
@@ -662,22 +662,34 @@ EXTCONST char * const PL_reg_extflags_name[] = {
 #endif /* DOINIT */
 
 /* The following have no fixed length. U8 so we can do strchr() on it. */
+#define REGNODE_VARIES(node) (PL_varies_bitmask[(node) >> 3] & (1 << ((node) & 7)))
+
 #ifndef DOINIT
-EXTCONST U8 PL_varies[];
+EXTCONST U8 PL_varies[] __attribute__deprecated__;
 #else
-EXTCONST U8 PL_varies[] = {
+EXTCONST U8 PL_varies[] __attribute__deprecated__ = {
     CLUMP, BRANCH, BACK, STAR, PLUS, CURLY, CURLYN, CURLYM, CURLYX, WHILEM,
     REF, REFF, REFFL, SUSPEND, IFTHEN, BRANCHJ, NREF, NREFF, NREFFL,
     0
 };
 #endif /* DOINIT */
 
+#ifndef DOINIT
+EXTCONST U8 PL_varies_bitmask[];
+#else
+EXTCONST U8 PL_varies_bitmask[] = {
+    0x00, 0x00, 0x00, 0xC0, 0xC1, 0x9F, 0x33, 0x01, 0x38, 0x00, 0x00, 0x00
+};
+#endif /* DOINIT */
+
 /* The following always have a length of 1. U8 we can do strchr() on it. */
 /* (Note that length 1 means "one character" under UTF8, not "one octet".) */
+#define REGNODE_SIMPLE(node) (PL_simple_bitmask[(node) >> 3] & (1 << ((node) & 7)))
+
 #ifndef DOINIT
-EXTCONST U8 PL_simple[];
+EXTCONST U8 PL_simple[] __attribute__deprecated__;
 #else
-EXTCONST U8 PL_simple[] = {
+EXTCONST U8 PL_simple[] __attribute__deprecated__ = {
     REG_ANY, SANY, CANY, ANYOF, ALNUM, ALNUML, NALNUM, NALNUML, SPACE,
     SPACEL, NSPACE, NSPACEL, DIGIT, NDIGIT, VERTWS, NVERTWS, HORIZWS,
     NHORIZWS,
@@ -685,4 +697,12 @@ EXTCONST U8 PL_simple[] = {
 };
 #endif /* DOINIT */
 
+#ifndef DOINIT
+EXTCONST U8 PL_simple_bitmask[];
+#else
+EXTCONST U8 PL_simple_bitmask[] = {
+    0x00, 0xC0, 0xFF, 0x17, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xF0, 0x00
+};
+#endif /* DOINIT */
+
 /* ex: set ro: */