regnodes.h

   1 /* -*- buffer-read-only: t -*-
   2    !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
   3    This file is built by regen/regcomp.pl from regcomp.sym.
   4    Any changes made here will be lost!
   5  */
   6
   7 #if defined(PERL_CORE) || defined(PERL_EXT_RE_BUILD)
   8
   9 /* Regops and State definitions */
  10
  11 #define REGNODE_MAX             109
  12 #define REGMATCH_STATE_MAX      149
  13
  14 /* -- For regexec.c to switch on target being utf8 (t8) or not (tb, b='byte');
  15  *    same with pattern (p8, pb) -- */
  16 #define with_tp_UTF8ness(op, t_utf8, p_utf8)                        \
  17                 (((op) << 2) + (cBOOL(t_utf8) << 1) + cBOOL(p_utf8))
  18
  19 /* The #defines below give both the basic regnode and the expanded version for
  20    switching on utf8ness */
  21 #define END                           0     /* 0x00 End of program. */
  22 #define END_tb_pb                        0  /*      0x000 */
  23 #define END_tb_p8                        1  /*      0x001 */
  24 #define END_t8_pb                        2  /*      0x002 */
  25 #define END_t8_p8                        3  /*      0x003 */
  26
  27 #define SUCCEED                       1     /* 0x01 Return from a subroutine,
  28                                                basically. */
  29 #define SUCCEED_tb_pb                    4  /*      0x004 */
  30 #define SUCCEED_tb_p8                    5  /*      0x005 */
  31 #define SUCCEED_t8_pb                    6  /*      0x006 */
  32 #define SUCCEED_t8_p8                    7  /*      0x007 */
  33
  34 #define SBOL                          2     /* 0x02 Match "" at beginning of
  35                                                line: /^/, /\A/ */
  36 #define SBOL_tb_pb                       8  /*      0x008 */
  37 #define SBOL_tb_p8                       9  /*      0x009 */
  38 #define SBOL_t8_pb                      10  /*      0x00a */
  39 #define SBOL_t8_p8                      11  /*      0x00b */
  40
  41 #define BOL                           2     /* 0x02 Match "" at beginning of
  42                                                line: /^/, /\A/ */
  43 #define BOL_tb_pb                        8  /*      0x008 */
  44 #define BOL_tb_p8                        9  /*      0x009 */
  45 #define BOL_t8_pb                       10  /*      0x00a */
  46 #define BOL_t8_p8                       11  /*      0x00b */
  47
  48 #define MBOL                          3     /* 0x03 Same, assuming multiline:
  49                                                /^/m */
  50 #define MBOL_tb_pb                      12  /*      0x00c */
  51 #define MBOL_tb_p8                      13  /*      0x00d */
  52 #define MBOL_t8_pb                      14  /*      0x00e */
  53 #define MBOL_t8_p8                      15  /*      0x00f */
  54
  55 #define SEOL                          4     /* 0x04 Match "" at end of line:
  56                                                /$/ */
  57 #define SEOL_tb_pb                      16  /*      0x010 */
  58 #define SEOL_tb_p8                      17  /*      0x011 */
  59 #define SEOL_t8_pb                      18  /*      0x012 */
  60 #define SEOL_t8_p8                      19  /*      0x013 */
  61
  62 #define EOL                           4     /* 0x04 Match "" at end of line:
  63                                                /$/ */
  64 #define EOL_tb_pb                       16  /*      0x010 */
  65 #define EOL_tb_p8                       17  /*      0x011 */
  66 #define EOL_t8_pb                       18  /*      0x012 */
  67 #define EOL_t8_p8                       19  /*      0x013 */
  68
  69 #define MEOL                          5     /* 0x05 Same, assuming multiline:
  70                                                /$/m */
  71 #define MEOL_tb_pb                      20  /*      0x014 */
  72 #define MEOL_tb_p8                      21  /*      0x015 */
  73 #define MEOL_t8_pb                      22  /*      0x016 */
  74 #define MEOL_t8_p8                      23  /*      0x017 */
  75
  76 #define EOS                           6     /* 0x06 Match "" at end of string:
  77                                                /\z/ */
  78 #define EOS_tb_pb                       24  /*      0x018 */
  79 #define EOS_tb_p8                       25  /*      0x019 */
  80 #define EOS_t8_pb                       26  /*      0x01a */
  81 #define EOS_t8_p8                       27  /*      0x01b */
  82
  83 #define GPOS                          7     /* 0x07 Matches where last m//g
  84                                                left off. */
  85 #define GPOS_tb_pb                      28  /*      0x01c */
  86 #define GPOS_tb_p8                      29  /*      0x01d */
  87 #define GPOS_t8_pb                      30  /*      0x01e */
  88 #define GPOS_t8_p8                      31  /*      0x01f */
  89
  90 #define BOUND                         8     /* 0x08 Like BOUNDA for non-utf8,
  91                                                otherwise like BOUNDU */
  92 #define BOUND_tb_pb                     32  /*      0x020 */
  93 #define BOUND_tb_p8                     33  /*      0x021 */
  94 #define BOUND_t8_pb                     34  /*      0x022 */
  95 #define BOUND_t8_p8                     35  /*      0x023 */
  96
  97 #define BOUNDL                        9     /* 0x09 Like BOUND/BOUNDU, but \w
  98                                                and \W are defined by current
  99                                                locale */
 100 #define BOUNDL_tb_pb                    36  /*      0x024 */
 101 #define BOUNDL_tb_p8                    37  /*      0x025 */
 102 #define BOUNDL_t8_pb                    38  /*      0x026 */
 103 #define BOUNDL_t8_p8                    39  /*      0x027 */
 104
 105 #define BOUNDU                       10     /* 0x0a Match "" at any boundary
 106                                                of a given type using /u rules.
 107                                             */
 108 #define BOUNDU_tb_pb                    40  /*      0x028 */
 109 #define BOUNDU_tb_p8                    41  /*      0x029 */
 110 #define BOUNDU_t8_pb                    42  /*      0x02a */
 111 #define BOUNDU_t8_p8                    43  /*      0x02b */
 112
 113 #define BOUNDA                       11     /* 0x0b Match "" at any boundary
 114                                                between \w\W or \W\w, where \w
 115                                                is [_a-zA-Z0-9] */
 116 #define BOUNDA_tb_pb                    44  /*      0x02c */
 117 #define BOUNDA_tb_p8                    45  /*      0x02d */
 118 #define BOUNDA_t8_pb                    46  /*      0x02e */
 119 #define BOUNDA_t8_p8                    47  /*      0x02f */
 120
 121 #define NBOUND                       12     /* 0x0c Like NBOUNDA for non-utf8,
 122                                                otherwise like BOUNDU */
 123 #define NBOUND_tb_pb                    48  /*      0x030 */
 124 #define NBOUND_tb_p8                    49  /*      0x031 */
 125 #define NBOUND_t8_pb                    50  /*      0x032 */
 126 #define NBOUND_t8_p8                    51  /*      0x033 */
 127
 128 #define NBOUNDL                      13     /* 0x0d Like NBOUND/NBOUNDU, but
 129                                                \w and \W are defined by
 130                                                current locale */
 131 #define NBOUNDL_tb_pb                   52  /*      0x034 */
 132 #define NBOUNDL_tb_p8                   53  /*      0x035 */
 133 #define NBOUNDL_t8_pb                   54  /*      0x036 */
 134 #define NBOUNDL_t8_p8                   55  /*      0x037 */
 135
 136 #define NBOUNDU                      14     /* 0x0e Match "" at any
 137                                                non-boundary of a given type
 138                                                using using /u rules. */
 139 #define NBOUNDU_tb_pb                   56  /*      0x038 */
 140 #define NBOUNDU_tb_p8                   57  /*      0x039 */
 141 #define NBOUNDU_t8_pb                   58  /*      0x03a */
 142 #define NBOUNDU_t8_p8                   59  /*      0x03b */
 143
 144 #define NBOUNDA                      15     /* 0x0f Match "" betweeen any \w\w
 145                                                or \W\W, where \w is
 146                                                [_a-zA-Z0-9] */
 147 #define NBOUNDA_tb_pb                   60  /*      0x03c */
 148 #define NBOUNDA_tb_p8                   61  /*      0x03d */
 149 #define NBOUNDA_t8_pb                   62  /*      0x03e */
 150 #define NBOUNDA_t8_p8                   63  /*      0x03f */
 151
 152 #define REG_ANY                      16     /* 0x10 Match any one character
 153                                                (except newline). */
 154 #define REG_ANY_tb_pb                   64  /*      0x040 */
 155 #define REG_ANY_tb_p8                   65  /*      0x041 */
 156 #define REG_ANY_t8_pb                   66  /*      0x042 */
 157 #define REG_ANY_t8_p8                   67  /*      0x043 */
 158
 159 #define SANY                         17     /* 0x11 Match any one character.
 160                                             */
 161 #define SANY_tb_pb                      68  /*      0x044 */
 162 #define SANY_tb_p8                      69  /*      0x045 */
 163 #define SANY_t8_pb                      70  /*      0x046 */
 164 #define SANY_t8_p8                      71  /*      0x047 */
 165
 166 #define ANYOF                        18     /* 0x12 Match character in (or not
 167                                                in) this class, single char
 168                                                match only */
 169 #define ANYOF_tb_pb                     72  /*      0x048 */
 170 #define ANYOF_tb_p8                     73  /*      0x049 */
 171 #define ANYOF_t8_pb                     74  /*      0x04a */
 172 #define ANYOF_t8_p8                     75  /*      0x04b */
 173
 174 #define ANYOFD                       19     /* 0x13 Like ANYOF, but /d is in
 175                                                effect */
 176 #define ANYOFD_tb_pb                    76  /*      0x04c */
 177 #define ANYOFD_tb_p8                    77  /*      0x04d */
 178 #define ANYOFD_t8_pb                    78  /*      0x04e */
 179 #define ANYOFD_t8_p8                    79  /*      0x04f */
 180
 181 #define ANYOFL                       20     /* 0x14 Like ANYOF, but /l is in
 182                                                effect */
 183 #define ANYOFL_tb_pb                    80  /*      0x050 */
 184 #define ANYOFL_tb_p8                    81  /*      0x051 */
 185 #define ANYOFL_t8_pb                    82  /*      0x052 */
 186 #define ANYOFL_t8_p8                    83  /*      0x053 */
 187
 188 #define ANYOFPOSIXL                  21     /* 0x15 Like ANYOFL, but matches
 189                                                [[:posix:]] classes */
 190 #define ANYOFPOSIXL_tb_pb               84  /*      0x054 */
 191 #define ANYOFPOSIXL_tb_p8               85  /*      0x055 */
 192 #define ANYOFPOSIXL_t8_pb               86  /*      0x056 */
 193 #define ANYOFPOSIXL_t8_p8               87  /*      0x057 */
 194
 195 #define ANYOFH                       22     /* 0x16 Like ANYOF, but only has
 196                                                "High" matches, none in the
 197                                                bitmap; the flags field
 198                                                contains the lowest matchable
 199                                                UTF-8 start byte */
 200 #define ANYOFH_tb_pb                    88  /*      0x058 */
 201 #define ANYOFH_tb_p8                    89  /*      0x059 */
 202 #define ANYOFH_t8_pb                    90  /*      0x05a */
 203 #define ANYOFH_t8_p8                    91  /*      0x05b */
 204
 205 #define ANYOFHb                      23     /* 0x17 Like ANYOFH, but all
 206                                                matches share the same UTF-8
 207                                                start byte, given in the flags
 208                                                field */
 209 #define ANYOFHb_tb_pb                   92  /*      0x05c */
 210 #define ANYOFHb_tb_p8                   93  /*      0x05d */
 211 #define ANYOFHb_t8_pb                   94  /*      0x05e */
 212 #define ANYOFHb_t8_p8                   95  /*      0x05f */
 213
 214 #define ANYOFHr                      24     /* 0x18 Like ANYOFH, but the flags
 215                                                field contains packed bounds
 216                                                for all matchable UTF-8 start
 217                                                bytes. */
 218 #define ANYOFHr_tb_pb                   96  /*      0x060 */
 219 #define ANYOFHr_tb_p8                   97  /*      0x061 */
 220 #define ANYOFHr_t8_pb                   98  /*      0x062 */
 221 #define ANYOFHr_t8_p8                   99  /*      0x063 */
 222
 223 #define ANYOFHs                      25     /* 0x19 Like ANYOFHb, but has a
 224                                                string field that gives the
 225                                                leading matchable UTF-8 bytes;
 226                                                flags field is len */
 227 #define ANYOFHs_tb_pb                  100  /*      0x064 */
 228 #define ANYOFHs_tb_p8                  101  /*      0x065 */
 229 #define ANYOFHs_t8_pb                  102  /*      0x066 */
 230 #define ANYOFHs_t8_p8                  103  /*      0x067 */
 231
 232 #define ANYOFR                       26     /* 0x1a Matches any character in
 233                                                the range given by its packed
 234                                                args: upper 12 bits is the max
 235                                                delta from the base lower 20;
 236                                                the flags field contains the
 237                                                lowest matchable UTF-8 start
 238                                                byte */
 239 #define ANYOFR_tb_pb                   104  /*      0x068 */
 240 #define ANYOFR_tb_p8                   105  /*      0x069 */
 241 #define ANYOFR_t8_pb                   106  /*      0x06a */
 242 #define ANYOFR_t8_p8                   107  /*      0x06b */
 243
 244 #define ANYOFRb                      27     /* 0x1b Like ANYOFR, but all
 245                                                matches share the same UTF-8
 246                                                start byte, given in the flags
 247                                                field */
 248 #define ANYOFRb_tb_pb                  108  /*      0x06c */
 249 #define ANYOFRb_tb_p8                  109  /*      0x06d */
 250 #define ANYOFRb_t8_pb                  110  /*      0x06e */
 251 #define ANYOFRb_t8_p8                  111  /*      0x06f */
 252
 253 #define ANYOFM                       28     /* 0x1c Like ANYOF, but matches an
 254                                                invariant byte as determined by
 255                                                the mask and arg */
 256 #define ANYOFM_tb_pb                   112  /*      0x070 */
 257 #define ANYOFM_tb_p8                   113  /*      0x071 */
 258 #define ANYOFM_t8_pb                   114  /*      0x072 */
 259 #define ANYOFM_t8_p8                   115  /*      0x073 */
 260
 261 #define NANYOFM                      29     /* 0x1d complement of ANYOFM */
 262 #define NANYOFM_tb_pb                  116  /*      0x074 */
 263 #define NANYOFM_tb_p8                  117  /*      0x075 */
 264 #define NANYOFM_t8_pb                  118  /*      0x076 */
 265 #define NANYOFM_t8_p8                  119  /*      0x077 */
 266
 267 #define POSIXD                       30     /* 0x1e Some [[:class:]] under /d;
 268                                                the FLAGS field gives which one
 269                                             */
 270 #define POSIXD_tb_pb                   120  /*      0x078 */
 271 #define POSIXD_tb_p8                   121  /*      0x079 */
 272 #define POSIXD_t8_pb                   122  /*      0x07a */
 273 #define POSIXD_t8_p8                   123  /*      0x07b */
 274
 275 #define POSIXL                       31     /* 0x1f Some [[:class:]] under /l;
 276                                                the FLAGS field gives which one
 277                                             */
 278 #define POSIXL_tb_pb                   124  /*      0x07c */
 279 #define POSIXL_tb_p8                   125  /*      0x07d */
 280 #define POSIXL_t8_pb                   126  /*      0x07e */
 281 #define POSIXL_t8_p8                   127  /*      0x07f */
 282
 283 #define POSIXU                       32     /* 0x20 Some [[:class:]] under /u;
 284                                                the FLAGS field gives which one
 285                                             */
 286 #define POSIXU_tb_pb                   128  /*      0x080 */
 287 #define POSIXU_tb_p8                   129  /*      0x081 */
 288 #define POSIXU_t8_pb                   130  /*      0x082 */
 289 #define POSIXU_t8_p8                   131  /*      0x083 */
 290
 291 #define POSIXA                       33     /* 0x21 Some [[:class:]] under /a;
 292                                                the FLAGS field gives which one
 293                                             */
 294 #define POSIXA_tb_pb                   132  /*      0x084 */
 295 #define POSIXA_tb_p8                   133  /*      0x085 */
 296 #define POSIXA_t8_pb                   134  /*      0x086 */
 297 #define POSIXA_t8_p8                   135  /*      0x087 */
 298
 299 #define NPOSIXD                      34     /* 0x22 complement of POSIXD,
 300                                                [[:^class:]] */
 301 #define NPOSIXD_tb_pb                  136  /*      0x088 */
 302 #define NPOSIXD_tb_p8                  137  /*      0x089 */
 303 #define NPOSIXD_t8_pb                  138  /*      0x08a */
 304 #define NPOSIXD_t8_p8                  139  /*      0x08b */
 305
 306 #define NPOSIXL                      35     /* 0x23 complement of POSIXL,
 307                                                [[:^class:]] */
 308 #define NPOSIXL_tb_pb                  140  /*      0x08c */
 309 #define NPOSIXL_tb_p8                  141  /*      0x08d */
 310 #define NPOSIXL_t8_pb                  142  /*      0x08e */
 311 #define NPOSIXL_t8_p8                  143  /*      0x08f */
 312
 313 #define NPOSIXU                      36     /* 0x24 complement of POSIXU,
 314                                                [[:^class:]] */
 315 #define NPOSIXU_tb_pb                  144  /*      0x090 */
 316 #define NPOSIXU_tb_p8                  145  /*      0x091 */
 317 #define NPOSIXU_t8_pb                  146  /*      0x092 */
 318 #define NPOSIXU_t8_p8                  147  /*      0x093 */
 319
 320 #define NPOSIXA                      37     /* 0x25 complement of POSIXA,
 321                                                [[:^class:]] */
 322 #define NPOSIXA_tb_pb                  148  /*      0x094 */
 323 #define NPOSIXA_tb_p8                  149  /*      0x095 */
 324 #define NPOSIXA_t8_pb                  150  /*      0x096 */
 325 #define NPOSIXA_t8_p8                  151  /*      0x097 */
 326
 327 #define CLUMP                        38     /* 0x26 Match any extended
 328                                                grapheme cluster sequence */
 329 #define CLUMP_tb_pb                    152  /*      0x098 */
 330 #define CLUMP_tb_p8                    153  /*      0x099 */
 331 #define CLUMP_t8_pb                    154  /*      0x09a */
 332 #define CLUMP_t8_p8                    155  /*      0x09b */
 333
 334 #define BRANCH                       39     /* 0x27 Match this alternative, or
 335                                                the next... */
 336 #define BRANCH_tb_pb                   156  /*      0x09c */
 337 #define BRANCH_tb_p8                   157  /*      0x09d */
 338 #define BRANCH_t8_pb                   158  /*      0x09e */
 339 #define BRANCH_t8_p8                   159  /*      0x09f */
 340
 341 #define EXACT                        40     /* 0x28 Match this string (flags
 342                                                field is the length). */
 343 #define EXACT_tb_pb                    160  /*      0x0a0 */
 344 #define EXACT_tb_p8                    161  /*      0x0a1 */
 345 #define EXACT_t8_pb                    162  /*      0x0a2 */
 346 #define EXACT_t8_p8                    163  /*      0x0a3 */
 347
 348 #define LEXACT                       41     /* 0x29 Match this long string
 349                                                (preceded by length; flags
 350                                                unused). */
 351 #define LEXACT_tb_pb                   164  /*      0x0a4 */
 352 #define LEXACT_tb_p8                   165  /*      0x0a5 */
 353 #define LEXACT_t8_pb                   166  /*      0x0a6 */
 354 #define LEXACT_t8_p8                   167  /*      0x0a7 */
 355
 356 #define EXACTL                       42     /* 0x2a Like EXACT, but /l is in
 357                                                effect (used so locale-related
 358                                                warnings can be checked for) */
 359 #define EXACTL_tb_pb                   168  /*      0x0a8 */
 360 #define EXACTL_tb_p8                   169  /*      0x0a9 */
 361 #define EXACTL_t8_pb                   170  /*      0x0aa */
 362 #define EXACTL_t8_p8                   171  /*      0x0ab */
 363
 364 #define EXACTF                       43     /* 0x2b Like EXACT, but match
 365                                                using /id rules; (string not
 366                                                UTF-8, ASCII folded; non-ASCII
 367                                                not) */
 368 #define EXACTF_tb_pb                   172  /*      0x0ac */
 369 #define EXACTF_tb_p8                   173  /*      0x0ad */
 370 #define EXACTF_t8_pb                   174  /*      0x0ae */
 371 #define EXACTF_t8_p8                   175  /*      0x0af */
 372
 373 #define EXACTFL                      44     /* 0x2c Like EXACT, but match
 374                                                using /il rules; (string not
 375                                                likely to be folded) */
 376 #define EXACTFL_tb_pb                  176  /*      0x0b0 */
 377 #define EXACTFL_tb_p8                  177  /*      0x0b1 */
 378 #define EXACTFL_t8_pb                  178  /*      0x0b2 */
 379 #define EXACTFL_t8_p8                  179  /*      0x0b3 */
 380
 381 #define EXACTFU                      45     /* 0x2d Like EXACT, but match
 382                                                using /iu rules; (string
 383                                                folded) */
 384 #define EXACTFU_tb_pb                  180  /*      0x0b4 */
 385 #define EXACTFU_tb_p8                  181  /*      0x0b5 */
 386 #define EXACTFU_t8_pb                  182  /*      0x0b6 */
 387 #define EXACTFU_t8_p8                  183  /*      0x0b7 */
 388
 389 #define EXACTFAA                     46     /* 0x2e Like EXACT, but match
 390                                                using /iaa rules; (string
 391                                                folded except MICRO in non-UTF8
 392                                                patterns; doesn't contain SHARP
 393                                                S unless UTF-8; folded length
 394                                                <= unfolded) */
 395 #define EXACTFAA_tb_pb                 184  /*      0x0b8 */
 396 #define EXACTFAA_tb_p8                 185  /*      0x0b9 */
 397 #define EXACTFAA_t8_pb                 186  /*      0x0ba */
 398 #define EXACTFAA_t8_p8                 187  /*      0x0bb */
 399
 400 #define EXACTFAA_NO_TRIE             47     /* 0x2f Like EXACTFAA, (string not
 401                                                UTF-8, folded except: MICRO,
 402                                                SHARP S; folded length <=
 403                                                unfolded, not currently
 404                                                trie-able) */
 405 #define EXACTFAA_NO_TRIE_tb_pb         188  /*      0x0bc */
 406 #define EXACTFAA_NO_TRIE_tb_p8         189  /*      0x0bd */
 407 #define EXACTFAA_NO_TRIE_t8_pb         190  /*      0x0be */
 408 #define EXACTFAA_NO_TRIE_t8_p8         191  /*      0x0bf */
 409
 410 #define EXACTFUP                     48     /* 0x30 Like EXACT, but match
 411                                                using /iu rules; (string not
 412                                                UTF-8, folded except MICRO:
 413                                                hence Problematic) */
 414 #define EXACTFUP_tb_pb                 192  /*      0x0c0 */
 415 #define EXACTFUP_tb_p8                 193  /*      0x0c1 */
 416 #define EXACTFUP_t8_pb                 194  /*      0x0c2 */
 417 #define EXACTFUP_t8_p8                 195  /*      0x0c3 */
 418
 419 #define EXACTFLU8                    49     /* 0x31 Like EXACTFU, but use /il,
 420                                                UTF-8, (string is folded, and
 421                                                everything in it is above 255
 422                                             */
 423 #define EXACTFLU8_tb_pb                196  /*      0x0c4 */
 424 #define EXACTFLU8_tb_p8                197  /*      0x0c5 */
 425 #define EXACTFLU8_t8_pb                198  /*      0x0c6 */
 426 #define EXACTFLU8_t8_p8                199  /*      0x0c7 */
 427
 428 #define EXACT_REQ8                   50     /* 0x32 Like EXACT, but only UTF-8
 429                                                encoded targets can match */
 430 #define EXACT_REQ8_tb_pb               200  /*      0x0c8 */
 431 #define EXACT_REQ8_tb_p8               201  /*      0x0c9 */
 432 #define EXACT_REQ8_t8_pb               202  /*      0x0ca */
 433 #define EXACT_REQ8_t8_p8               203  /*      0x0cb */
 434
 435 #define LEXACT_REQ8                  51     /* 0x33 Like LEXACT, but only
 436                                                UTF-8 encoded targets can match
 437                                             */
 438 #define LEXACT_REQ8_tb_pb              204  /*      0x0cc */
 439 #define LEXACT_REQ8_tb_p8              205  /*      0x0cd */
 440 #define LEXACT_REQ8_t8_pb              206  /*      0x0ce */
 441 #define LEXACT_REQ8_t8_p8              207  /*      0x0cf */
 442
 443 #define EXACTFU_REQ8                 52     /* 0x34 Like EXACTFU, but only
 444                                                UTF-8 encoded targets can match
 445                                             */
 446 #define EXACTFU_REQ8_tb_pb             208  /*      0x0d0 */
 447 #define EXACTFU_REQ8_tb_p8             209  /*      0x0d1 */
 448 #define EXACTFU_REQ8_t8_pb             210  /*      0x0d2 */
 449 #define EXACTFU_REQ8_t8_p8             211  /*      0x0d3 */
 450
 451 #define EXACTFU_S_EDGE               53     /* 0x35 /di rules, but nothing in
 452                                                it precludes /ui, except begins
 453                                                and/or ends with [Ss]; (string
 454                                                not UTF-8; compile-time only)
 455                                             */
 456 #define EXACTFU_S_EDGE_tb_pb           212  /*      0x0d4 */
 457 #define EXACTFU_S_EDGE_tb_p8           213  /*      0x0d5 */
 458 #define EXACTFU_S_EDGE_t8_pb           214  /*      0x0d6 */
 459 #define EXACTFU_S_EDGE_t8_p8           215  /*      0x0d7 */
 460
 461 #define LNBREAK                      54     /* 0x36 generic newline pattern */
 462 #define LNBREAK_tb_pb                  216  /*      0x0d8 */
 463 #define LNBREAK_tb_p8                  217  /*      0x0d9 */
 464 #define LNBREAK_t8_pb                  218  /*      0x0da */
 465 #define LNBREAK_t8_p8                  219  /*      0x0db */
 466
 467 #define TRIE                         55     /* 0x37 Match many EXACT(F[ALU]?)?
 468                                                at once. flags==type */
 469 #define TRIE_tb_pb                     220  /*      0x0dc */
 470 #define TRIE_tb_p8                     221  /*      0x0dd */
 471 #define TRIE_t8_pb                     222  /*      0x0de */
 472 #define TRIE_t8_p8                     223  /*      0x0df */
 473
 474 #define TRIEC                        56     /* 0x38 Same as TRIE, but with
 475                                                embedded charclass data */
 476 #define TRIEC_tb_pb                    224  /*      0x0e0 */
 477 #define TRIEC_tb_p8                    225  /*      0x0e1 */
 478 #define TRIEC_t8_pb                    226  /*      0x0e2 */
 479 #define TRIEC_t8_p8                    227  /*      0x0e3 */
 480
 481 #define AHOCORASICK                  57     /* 0x39 Aho Corasick stclass.
 482                                                flags==type */
 483 #define AHOCORASICK_tb_pb              228  /*      0x0e4 */
 484 #define AHOCORASICK_tb_p8              229  /*      0x0e5 */
 485 #define AHOCORASICK_t8_pb              230  /*      0x0e6 */
 486 #define AHOCORASICK_t8_p8              231  /*      0x0e7 */
 487
 488 #define AHOCORASICKC                 58     /* 0x3a Same as AHOCORASICK, but
 489                                                with embedded charclass data */
 490 #define AHOCORASICKC_tb_pb             232  /*      0x0e8 */
 491 #define AHOCORASICKC_tb_p8             233  /*      0x0e9 */
 492 #define AHOCORASICKC_t8_pb             234  /*      0x0ea */
 493 #define AHOCORASICKC_t8_p8             235  /*      0x0eb */
 494
 495 #define NOTHING                      59     /* 0x3b Match empty string. */
 496 #define NOTHING_tb_pb                  236  /*      0x0ec */
 497 #define NOTHING_tb_p8                  237  /*      0x0ed */
 498 #define NOTHING_t8_pb                  238  /*      0x0ee */
 499 #define NOTHING_t8_p8                  239  /*      0x0ef */
 500
 501 #define TAIL                         60     /* 0x3c Match empty string. Can
 502                                                jump here from outside. */
 503 #define TAIL_tb_pb                     240  /*      0x0f0 */
 504 #define TAIL_tb_p8                     241  /*      0x0f1 */
 505 #define TAIL_t8_pb                     242  /*      0x0f2 */
 506 #define TAIL_t8_p8                     243  /*      0x0f3 */
 507
 508 #define STAR                         61     /* 0x3d Match this (simple) thing
 509                                                0 or more times. */
 510 #define STAR_tb_pb                     244  /*      0x0f4 */
 511 #define STAR_tb_p8                     245  /*      0x0f5 */
 512 #define STAR_t8_pb                     246  /*      0x0f6 */
 513 #define STAR_t8_p8                     247  /*      0x0f7 */
 514
 515 #define PLUS                         62     /* 0x3e Match this (simple) thing
 516                                                1 or more times. */
 517 #define PLUS_tb_pb                     248  /*      0x0f8 */
 518 #define PLUS_tb_p8                     249  /*      0x0f9 */
 519 #define PLUS_t8_pb                     250  /*      0x0fa */
 520 #define PLUS_t8_p8                     251  /*      0x0fb */
 521
 522 #define CURLY                        63     /* 0x3f Match this simple thing
 523                                                {n,m} times. */
 524 #define CURLY_tb_pb                    252  /*      0x0fc */
 525 #define CURLY_tb_p8                    253  /*      0x0fd */
 526 #define CURLY_t8_pb                    254  /*      0x0fe */
 527 #define CURLY_t8_p8                    255  /*      0x0ff */
 528
 529 #define CURLYN                       64     /* 0x40 Capture next-after-this
 530                                                simple thing */
 531 #define CURLYN_tb_pb                   256  /*      0x100 */
 532 #define CURLYN_tb_p8                   257  /*      0x101 */
 533 #define CURLYN_t8_pb                   258  /*      0x102 */
 534 #define CURLYN_t8_p8                   259  /*      0x103 */
 535
 536 #define CURLYM                       65     /* 0x41 Capture this
 537                                                medium-complex thing {n,m}
 538                                                times. */
 539 #define CURLYM_tb_pb                   260  /*      0x104 */
 540 #define CURLYM_tb_p8                   261  /*      0x105 */
 541 #define CURLYM_t8_pb                   262  /*      0x106 */
 542 #define CURLYM_t8_p8                   263  /*      0x107 */
 543
 544 #define CURLYX                       66     /* 0x42 Match this complex thing
 545                                                {n,m} times. */
 546 #define CURLYX_tb_pb                   264  /*      0x108 */
 547 #define CURLYX_tb_p8                   265  /*      0x109 */
 548 #define CURLYX_t8_pb                   266  /*      0x10a */
 549 #define CURLYX_t8_p8                   267  /*      0x10b */
 550
 551 #define WHILEM                       67     /* 0x43 Do curly processing and
 552                                                see if rest matches. */
 553 #define WHILEM_tb_pb                   268  /*      0x10c */
 554 #define WHILEM_tb_p8                   269  /*      0x10d */
 555 #define WHILEM_t8_pb                   270  /*      0x10e */
 556 #define WHILEM_t8_p8                   271  /*      0x10f */
 557
 558 #define OPEN                         68     /* 0x44 Mark this point in input
 559                                                as start of #n. */
 560 #define OPEN_tb_pb                     272  /*      0x110 */
 561 #define OPEN_tb_p8                     273  /*      0x111 */
 562 #define OPEN_t8_pb                     274  /*      0x112 */
 563 #define OPEN_t8_p8                     275  /*      0x113 */
 564
 565 #define CLOSE                        69     /* 0x45 Close corresponding OPEN
 566                                                of #n. */
 567 #define CLOSE_tb_pb                    276  /*      0x114 */
 568 #define CLOSE_tb_p8                    277  /*      0x115 */
 569 #define CLOSE_t8_pb                    278  /*      0x116 */
 570 #define CLOSE_t8_p8                    279  /*      0x117 */
 571
 572 #define SROPEN                       70     /* 0x46 Same as OPEN, but for
 573                                                script run */
 574 #define SROPEN_tb_pb                   280  /*      0x118 */
 575 #define SROPEN_tb_p8                   281  /*      0x119 */
 576 #define SROPEN_t8_pb                   282  /*      0x11a */
 577 #define SROPEN_t8_p8                   283  /*      0x11b */
 578
 579 #define SRCLOSE                      71     /* 0x47 Close preceding SROPEN */
 580 #define SRCLOSE_tb_pb                  284  /*      0x11c */
 581 #define SRCLOSE_tb_p8                  285  /*      0x11d */
 582 #define SRCLOSE_t8_pb                  286  /*      0x11e */
 583 #define SRCLOSE_t8_p8                  287  /*      0x11f */
 584
 585 #define REF                          72     /* 0x48 Match some already matched
 586                                                string */
 587 #define REF_tb_pb                      288  /*      0x120 */
 588 #define REF_tb_p8                      289  /*      0x121 */
 589 #define REF_t8_pb                      290  /*      0x122 */
 590 #define REF_t8_p8                      291  /*      0x123 */
 591
 592 #define REFF                         73     /* 0x49 Match already matched
 593                                                string, using /di rules. */
 594 #define REFF_tb_pb                     292  /*      0x124 */
 595 #define REFF_tb_p8                     293  /*      0x125 */
 596 #define REFF_t8_pb                     294  /*      0x126 */
 597 #define REFF_t8_p8                     295  /*      0x127 */
 598
 599 #define REFFL                        74     /* 0x4a Match already matched
 600                                                string, using /li rules. */
 601 #define REFFL_tb_pb                    296  /*      0x128 */
 602 #define REFFL_tb_p8                    297  /*      0x129 */
 603 #define REFFL_t8_pb                    298  /*      0x12a */
 604 #define REFFL_t8_p8                    299  /*      0x12b */
 605
 606 #define REFFU                        75     /* 0x4b Match already matched
 607                                                string, usng /ui. */
 608 #define REFFU_tb_pb                    300  /*      0x12c */
 609 #define REFFU_tb_p8                    301  /*      0x12d */
 610 #define REFFU_t8_pb                    302  /*      0x12e */
 611 #define REFFU_t8_p8                    303  /*      0x12f */
 612
 613 #define REFFA                        76     /* 0x4c Match already matched
 614                                                string, using /aai rules. */
 615 #define REFFA_tb_pb                    304  /*      0x130 */
 616 #define REFFA_tb_p8                    305  /*      0x131 */
 617 #define REFFA_t8_pb                    306  /*      0x132 */
 618 #define REFFA_t8_p8                    307  /*      0x133 */
 619
 620 #define REFN                         77     /* 0x4d Match some already matched
 621                                                string */
 622 #define REFN_tb_pb                     308  /*      0x134 */
 623 #define REFN_tb_p8                     309  /*      0x135 */
 624 #define REFN_t8_pb                     310  /*      0x136 */
 625 #define REFN_t8_p8                     311  /*      0x137 */
 626
 627 #define REFFN                        78     /* 0x4e Match already matched
 628                                                string, using /di rules. */
 629 #define REFFN_tb_pb                    312  /*      0x138 */
 630 #define REFFN_tb_p8                    313  /*      0x139 */
 631 #define REFFN_t8_pb                    314  /*      0x13a */
 632 #define REFFN_t8_p8                    315  /*      0x13b */
 633
 634 #define REFFLN                       79     /* 0x4f Match already matched
 635                                                string, using /li rules. */
 636 #define REFFLN_tb_pb                   316  /*      0x13c */
 637 #define REFFLN_tb_p8                   317  /*      0x13d */
 638 #define REFFLN_t8_pb                   318  /*      0x13e */
 639 #define REFFLN_t8_p8                   319  /*      0x13f */
 640
 641 #define REFFUN                       80     /* 0x50 Match already matched
 642                                                string, using /ui rules. */
 643 #define REFFUN_tb_pb                   320  /*      0x140 */
 644 #define REFFUN_tb_p8                   321  /*      0x141 */
 645 #define REFFUN_t8_pb                   322  /*      0x142 */
 646 #define REFFUN_t8_p8                   323  /*      0x143 */
 647
 648 #define REFFAN                       81     /* 0x51 Match already matched
 649                                                string, using /aai rules. */
 650 #define REFFAN_tb_pb                   324  /*      0x144 */
 651 #define REFFAN_tb_p8                   325  /*      0x145 */
 652 #define REFFAN_t8_pb                   326  /*      0x146 */
 653 #define REFFAN_t8_p8                   327  /*      0x147 */
 654
 655 #define LONGJMP                      82     /* 0x52 Jump far away. */
 656 #define LONGJMP_tb_pb                  328  /*      0x148 */
 657 #define LONGJMP_tb_p8                  329  /*      0x149 */
 658 #define LONGJMP_t8_pb                  330  /*      0x14a */
 659 #define LONGJMP_t8_p8                  331  /*      0x14b */
 660
 661 #define BRANCHJ                      83     /* 0x53 BRANCH with long offset.
 662                                             */
 663 #define BRANCHJ_tb_pb                  332  /*      0x14c */
 664 #define BRANCHJ_tb_p8                  333  /*      0x14d */
 665 #define BRANCHJ_t8_pb                  334  /*      0x14e */
 666 #define BRANCHJ_t8_p8                  335  /*      0x14f */
 667
 668 #define IFMATCH                      84     /* 0x54 Succeeds if the following
 669                                                matches; non-zero flags "f",
 670                                                next_off "o" means lookbehind
 671                                                assertion starting "f..(f-o)"
 672                                                characters before current */
 673 #define IFMATCH_tb_pb                  336  /*      0x150 */
 674 #define IFMATCH_tb_p8                  337  /*      0x151 */
 675 #define IFMATCH_t8_pb                  338  /*      0x152 */
 676 #define IFMATCH_t8_p8                  339  /*      0x153 */
 677
 678 #define UNLESSM                      85     /* 0x55 Fails if the following
 679                                                matches; non-zero flags "f",
 680                                                next_off "o" means lookbehind
 681                                                assertion starting "f..(f-o)"
 682                                                characters before current */
 683 #define UNLESSM_tb_pb                  340  /*      0x154 */
 684 #define UNLESSM_tb_p8                  341  /*      0x155 */
 685 #define UNLESSM_t8_pb                  342  /*      0x156 */
 686 #define UNLESSM_t8_p8                  343  /*      0x157 */
 687
 688 #define SUSPEND                      86     /* 0x56 "Independent" sub-RE. */
 689 #define SUSPEND_tb_pb                  344  /*      0x158 */
 690 #define SUSPEND_tb_p8                  345  /*      0x159 */
 691 #define SUSPEND_t8_pb                  346  /*      0x15a */
 692 #define SUSPEND_t8_p8                  347  /*      0x15b */
 693
 694 #define IFTHEN                       87     /* 0x57 Switch, should be preceded
 695                                                by switcher. */
 696 #define IFTHEN_tb_pb                   348  /*      0x15c */
 697 #define IFTHEN_tb_p8                   349  /*      0x15d */
 698 #define IFTHEN_t8_pb                   350  /*      0x15e */
 699 #define IFTHEN_t8_p8                   351  /*      0x15f */
 700
 701 #define GROUPP                       88     /* 0x58 Whether the group matched.
 702                                             */
 703 #define GROUPP_tb_pb                   352  /*      0x160 */
 704 #define GROUPP_tb_p8                   353  /*      0x161 */
 705 #define GROUPP_t8_pb                   354  /*      0x162 */
 706 #define GROUPP_t8_p8                   355  /*      0x163 */
 707
 708 #define EVAL                         89     /* 0x59 Execute some Perl code. */
 709 #define EVAL_tb_pb                     356  /*      0x164 */
 710 #define EVAL_tb_p8                     357  /*      0x165 */
 711 #define EVAL_t8_pb                     358  /*      0x166 */
 712 #define EVAL_t8_p8                     359  /*      0x167 */
 713
 714 #define MINMOD                       90     /* 0x5a Next operator is not
 715                                                greedy. */
 716 #define MINMOD_tb_pb                   360  /*      0x168 */
 717 #define MINMOD_tb_p8                   361  /*      0x169 */
 718 #define MINMOD_t8_pb                   362  /*      0x16a */
 719 #define MINMOD_t8_p8                   363  /*      0x16b */
 720
 721 #define LOGICAL                      91     /* 0x5b Next opcode should set the
 722                                                flag only. */
 723 #define LOGICAL_tb_pb                  364  /*      0x16c */
 724 #define LOGICAL_tb_p8                  365  /*      0x16d */
 725 #define LOGICAL_t8_pb                  366  /*      0x16e */
 726 #define LOGICAL_t8_p8                  367  /*      0x16f */
 727
 728 #define RENUM                        92     /* 0x5c Group with independently
 729                                                numbered parens. */
 730 #define RENUM_tb_pb                    368  /*      0x170 */
 731 #define RENUM_tb_p8                    369  /*      0x171 */
 732 #define RENUM_t8_pb                    370  /*      0x172 */
 733 #define RENUM_t8_p8                    371  /*      0x173 */
 734
 735 #define GOSUB                        93     /* 0x5d recurse to paren arg1 at
 736                                                (signed) ofs arg2 */
 737 #define GOSUB_tb_pb                    372  /*      0x174 */
 738 #define GOSUB_tb_p8                    373  /*      0x175 */
 739 #define GOSUB_t8_pb                    374  /*      0x176 */
 740 #define GOSUB_t8_p8                    375  /*      0x177 */
 741
 742 #define GROUPPN                      94     /* 0x5e Whether the group matched.
 743                                             */
 744 #define GROUPPN_tb_pb                  376  /*      0x178 */
 745 #define GROUPPN_tb_p8                  377  /*      0x179 */
 746 #define GROUPPN_t8_pb                  378  /*      0x17a */
 747 #define GROUPPN_t8_p8                  379  /*      0x17b */
 748
 749 #define INSUBP                       95     /* 0x5f Whether we are in a
 750                                                specific recurse. */
 751 #define INSUBP_tb_pb                   380  /*      0x17c */
 752 #define INSUBP_tb_p8                   381  /*      0x17d */
 753 #define INSUBP_t8_pb                   382  /*      0x17e */
 754 #define INSUBP_t8_p8                   383  /*      0x17f */
 755
 756 #define DEFINEP                      96     /* 0x60 Never execute directly. */
 757 #define DEFINEP_tb_pb                  384  /*      0x180 */
 758 #define DEFINEP_tb_p8                  385  /*      0x181 */
 759 #define DEFINEP_t8_pb                  386  /*      0x182 */
 760 #define DEFINEP_t8_p8                  387  /*      0x183 */
 761
 762 #define ENDLIKE                      97     /* 0x61 Used only for the type
 763                                                field of verbs */
 764 #define ENDLIKE_tb_pb                  388  /*      0x184 */
 765 #define ENDLIKE_tb_p8                  389  /*      0x185 */
 766 #define ENDLIKE_t8_pb                  390  /*      0x186 */
 767 #define ENDLIKE_t8_p8                  391  /*      0x187 */
 768
 769 #define OPFAIL                       98     /* 0x62 Same as (?!), but with
 770                                                verb arg */
 771 #define OPFAIL_tb_pb                   392  /*      0x188 */
 772 #define OPFAIL_tb_p8                   393  /*      0x189 */
 773 #define OPFAIL_t8_pb                   394  /*      0x18a */
 774 #define OPFAIL_t8_p8                   395  /*      0x18b */
 775
 776 #define ACCEPT                       99     /* 0x63 Accepts the current
 777                                                matched string, with verbar */
 778 #define ACCEPT_tb_pb                   396  /*      0x18c */
 779 #define ACCEPT_tb_p8                   397  /*      0x18d */
 780 #define ACCEPT_t8_pb                   398  /*      0x18e */
 781 #define ACCEPT_t8_p8                   399  /*      0x18f */
 782
 783 #define VERB                        100     /* 0x64 Used only for the type
 784                                                field of verbs */
 785 #define VERB_tb_pb                     400  /*      0x190 */
 786 #define VERB_tb_p8                     401  /*      0x191 */
 787 #define VERB_t8_pb                     402  /*      0x192 */
 788 #define VERB_t8_p8                     403  /*      0x193 */
 789
 790 #define PRUNE                       101     /* 0x65 Pattern fails at this
 791                                                startpoint if no-backtracking
 792                                                through this */
 793 #define PRUNE_tb_pb                    404  /*      0x194 */
 794 #define PRUNE_tb_p8                    405  /*      0x195 */
 795 #define PRUNE_t8_pb                    406  /*      0x196 */
 796 #define PRUNE_t8_p8                    407  /*      0x197 */
 797
 798 #define MARKPOINT                   102     /* 0x66 Push the current location
 799                                                for rollback by cut. */
 800 #define MARKPOINT_tb_pb                408  /*      0x198 */
 801 #define MARKPOINT_tb_p8                409  /*      0x199 */
 802 #define MARKPOINT_t8_pb                410  /*      0x19a */
 803 #define MARKPOINT_t8_p8                411  /*      0x19b */
 804
 805 #define SKIP                        103     /* 0x67 On failure skip forward
 806                                                (to the mark) before retrying
 807                                             */
 808 #define SKIP_tb_pb                     412  /*      0x19c */
 809 #define SKIP_tb_p8                     413  /*      0x19d */
 810 #define SKIP_t8_pb                     414  /*      0x19e */
 811 #define SKIP_t8_p8                     415  /*      0x19f */
 812
 813 #define COMMIT                      104     /* 0x68 Pattern fails outright if
 814                                                backtracking through this */
 815 #define COMMIT_tb_pb                   416  /*      0x1a0 */
 816 #define COMMIT_tb_p8                   417  /*      0x1a1 */
 817 #define COMMIT_t8_pb                   418  /*      0x1a2 */
 818 #define COMMIT_t8_p8                   419  /*      0x1a3 */
 819
 820 #define CUTGROUP                    105     /* 0x69 On failure go to the next
 821                                                alternation in the group */
 822 #define CUTGROUP_tb_pb                 420  /*      0x1a4 */
 823 #define CUTGROUP_tb_p8                 421  /*      0x1a5 */
 824 #define CUTGROUP_t8_pb                 422  /*      0x1a6 */
 825 #define CUTGROUP_t8_p8                 423  /*      0x1a7 */
 826
 827 #define KEEPS                       106     /* 0x6a $& begins here. */
 828 #define KEEPS_tb_pb                    424  /*      0x1a8 */
 829 #define KEEPS_tb_p8                    425  /*      0x1a9 */
 830 #define KEEPS_t8_pb                    426  /*      0x1aa */
 831 #define KEEPS_t8_p8                    427  /*      0x1ab */
 832
 833 #define OPTIMIZED                   107     /* 0x6b Placeholder for dump. */
 834 #define OPTIMIZED_tb_pb                428  /*      0x1ac */
 835 #define OPTIMIZED_tb_p8                429  /*      0x1ad */
 836 #define OPTIMIZED_t8_pb                430  /*      0x1ae */
 837 #define OPTIMIZED_t8_p8                431  /*      0x1af */
 838
 839 #define PSEUDO                      108     /* 0x6c Pseudo opcode for internal
 840                                                use. */
 841 #define PSEUDO_tb_pb                   432  /*      0x1b0 */
 842 #define PSEUDO_tb_p8                   433  /*      0x1b1 */
 843 #define PSEUDO_t8_pb                   434  /*      0x1b2 */
 844 #define PSEUDO_t8_p8                   435  /*      0x1b3 */
 845
 846 #define REGEX_SET                   109     /* 0x6d Regex set, temporary node
 847                                                used in pre-optimization
 848                                                compilation */
 849 #define REGEX_SET_tb_pb                436  /*      0x1b4 */
 850 #define REGEX_SET_tb_p8                437  /*      0x1b5 */
 851 #define REGEX_SET_t8_pb                438  /*      0x1b6 */
 852 #define REGEX_SET_t8_p8                439  /*      0x1b7 */
 853
 854         /* ------------ States ------------- */
 855 #define TRIE_next                   110     /* 0x6e state for TRIE */
 856 #define TRIE_next_tb_pb                440  /*      0x1b8 */
 857 #define TRIE_next_tb_p8                441  /*      0x1b9 */
 858 #define TRIE_next_t8_pb                442  /*      0x1ba */
 859 #define TRIE_next_t8_p8                443  /*      0x1bb */
 860
 861 #define TRIE_next_fail              111     /* 0x6f state for TRIE */
 862 #define TRIE_next_fail_tb_pb           444  /*      0x1bc */
 863 #define TRIE_next_fail_tb_p8           445  /*      0x1bd */
 864 #define TRIE_next_fail_t8_pb           446  /*      0x1be */
 865 #define TRIE_next_fail_t8_p8           447  /*      0x1bf */
 866
 867 #define EVAL_B                      112     /* 0x70 state for EVAL */
 868 #define EVAL_B_tb_pb                   448  /*      0x1c0 */
 869 #define EVAL_B_tb_p8                   449  /*      0x1c1 */
 870 #define EVAL_B_t8_pb                   450  /*      0x1c2 */
 871 #define EVAL_B_t8_p8                   451  /*      0x1c3 */
 872
 873 #define EVAL_B_fail                 113     /* 0x71 state for EVAL */
 874 #define EVAL_B_fail_tb_pb              452  /*      0x1c4 */
 875 #define EVAL_B_fail_tb_p8              453  /*      0x1c5 */
 876 #define EVAL_B_fail_t8_pb              454  /*      0x1c6 */
 877 #define EVAL_B_fail_t8_p8              455  /*      0x1c7 */
 878
 879 #define EVAL_postponed_AB           114     /* 0x72 state for EVAL */
 880 #define EVAL_postponed_AB_tb_pb        456  /*      0x1c8 */
 881 #define EVAL_postponed_AB_tb_p8        457  /*      0x1c9 */
 882 #define EVAL_postponed_AB_t8_pb        458  /*      0x1ca */
 883 #define EVAL_postponed_AB_t8_p8        459  /*      0x1cb */
 884
 885 #define EVAL_postponed_AB_fail      115     /* 0x73 state for EVAL */
 886 #define EVAL_postponed_AB_fail_tb_pb   460  /*      0x1cc */
 887 #define EVAL_postponed_AB_fail_tb_p8   461  /*      0x1cd */
 888 #define EVAL_postponed_AB_fail_t8_pb   462  /*      0x1ce */
 889 #define EVAL_postponed_AB_fail_t8_p8   463  /*      0x1cf */
 890
 891 #define CURLYX_end                  116     /* 0x74 state for CURLYX */
 892 #define CURLYX_end_tb_pb               464  /*      0x1d0 */
 893 #define CURLYX_end_tb_p8               465  /*      0x1d1 */
 894 #define CURLYX_end_t8_pb               466  /*      0x1d2 */
 895 #define CURLYX_end_t8_p8               467  /*      0x1d3 */
 896
 897 #define CURLYX_end_fail             117     /* 0x75 state for CURLYX */
 898 #define CURLYX_end_fail_tb_pb          468  /*      0x1d4 */
 899 #define CURLYX_end_fail_tb_p8          469  /*      0x1d5 */
 900 #define CURLYX_end_fail_t8_pb          470  /*      0x1d6 */
 901 #define CURLYX_end_fail_t8_p8          471  /*      0x1d7 */
 902
 903 #define WHILEM_A_pre                118     /* 0x76 state for WHILEM */
 904 #define WHILEM_A_pre_tb_pb             472  /*      0x1d8 */
 905 #define WHILEM_A_pre_tb_p8             473  /*      0x1d9 */
 906 #define WHILEM_A_pre_t8_pb             474  /*      0x1da */
 907 #define WHILEM_A_pre_t8_p8             475  /*      0x1db */
 908
 909 #define WHILEM_A_pre_fail           119     /* 0x77 state for WHILEM */
 910 #define WHILEM_A_pre_fail_tb_pb        476  /*      0x1dc */
 911 #define WHILEM_A_pre_fail_tb_p8        477  /*      0x1dd */
 912 #define WHILEM_A_pre_fail_t8_pb        478  /*      0x1de */
 913 #define WHILEM_A_pre_fail_t8_p8        479  /*      0x1df */
 914
 915 #define WHILEM_A_min                120     /* 0x78 state for WHILEM */
 916 #define WHILEM_A_min_tb_pb             480  /*      0x1e0 */
 917 #define WHILEM_A_min_tb_p8             481  /*      0x1e1 */
 918 #define WHILEM_A_min_t8_pb             482  /*      0x1e2 */
 919 #define WHILEM_A_min_t8_p8             483  /*      0x1e3 */
 920
 921 #define WHILEM_A_min_fail           121     /* 0x79 state for WHILEM */
 922 #define WHILEM_A_min_fail_tb_pb        484  /*      0x1e4 */
 923 #define WHILEM_A_min_fail_tb_p8        485  /*      0x1e5 */
 924 #define WHILEM_A_min_fail_t8_pb        486  /*      0x1e6 */
 925 #define WHILEM_A_min_fail_t8_p8        487  /*      0x1e7 */
 926
 927 #define WHILEM_A_max                122     /* 0x7a state for WHILEM */
 928 #define WHILEM_A_max_tb_pb             488  /*      0x1e8 */
 929 #define WHILEM_A_max_tb_p8             489  /*      0x1e9 */
 930 #define WHILEM_A_max_t8_pb             490  /*      0x1ea */
 931 #define WHILEM_A_max_t8_p8             491  /*      0x1eb */
 932
 933 #define WHILEM_A_max_fail           123     /* 0x7b state for WHILEM */
 934 #define WHILEM_A_max_fail_tb_pb        492  /*      0x1ec */
 935 #define WHILEM_A_max_fail_tb_p8        493  /*      0x1ed */
 936 #define WHILEM_A_max_fail_t8_pb        494  /*      0x1ee */
 937 #define WHILEM_A_max_fail_t8_p8        495  /*      0x1ef */
 938
 939 #define WHILEM_B_min                124     /* 0x7c state for WHILEM */
 940 #define WHILEM_B_min_tb_pb             496  /*      0x1f0 */
 941 #define WHILEM_B_min_tb_p8             497  /*      0x1f1 */
 942 #define WHILEM_B_min_t8_pb             498  /*      0x1f2 */
 943 #define WHILEM_B_min_t8_p8             499  /*      0x1f3 */
 944
 945 #define WHILEM_B_min_fail           125     /* 0x7d state for WHILEM */
 946 #define WHILEM_B_min_fail_tb_pb        500  /*      0x1f4 */
 947 #define WHILEM_B_min_fail_tb_p8        501  /*      0x1f5 */
 948 #define WHILEM_B_min_fail_t8_pb        502  /*      0x1f6 */
 949 #define WHILEM_B_min_fail_t8_p8        503  /*      0x1f7 */
 950
 951 #define WHILEM_B_max                126     /* 0x7e state for WHILEM */
 952 #define WHILEM_B_max_tb_pb             504  /*      0x1f8 */
 953 #define WHILEM_B_max_tb_p8             505  /*      0x1f9 */
 954 #define WHILEM_B_max_t8_pb             506  /*      0x1fa */
 955 #define WHILEM_B_max_t8_p8             507  /*      0x1fb */
 956
 957 #define WHILEM_B_max_fail           127     /* 0x7f state for WHILEM */
 958 #define WHILEM_B_max_fail_tb_pb        508  /*      0x1fc */
 959 #define WHILEM_B_max_fail_tb_p8        509  /*      0x1fd */
 960 #define WHILEM_B_max_fail_t8_pb        510  /*      0x1fe */
 961 #define WHILEM_B_max_fail_t8_p8        511  /*      0x1ff */
 962
 963 #define BRANCH_next                 128     /* 0x80 state for BRANCH */
 964 #define BRANCH_next_tb_pb              512  /*      0x200 */
 965 #define BRANCH_next_tb_p8              513  /*      0x201 */
 966 #define BRANCH_next_t8_pb              514  /*      0x202 */
 967 #define BRANCH_next_t8_p8              515  /*      0x203 */
 968
 969 #define BRANCH_next_fail            129     /* 0x81 state for BRANCH */
 970 #define BRANCH_next_fail_tb_pb         516  /*      0x204 */
 971 #define BRANCH_next_fail_tb_p8         517  /*      0x205 */
 972 #define BRANCH_next_fail_t8_pb         518  /*      0x206 */
 973 #define BRANCH_next_fail_t8_p8         519  /*      0x207 */
 974
 975 #define CURLYM_A                    130     /* 0x82 state for CURLYM */
 976 #define CURLYM_A_tb_pb                 520  /*      0x208 */
 977 #define CURLYM_A_tb_p8                 521  /*      0x209 */
 978 #define CURLYM_A_t8_pb                 522  /*      0x20a */
 979 #define CURLYM_A_t8_p8                 523  /*      0x20b */
 980
 981 #define CURLYM_A_fail               131     /* 0x83 state for CURLYM */
 982 #define CURLYM_A_fail_tb_pb            524  /*      0x20c */
 983 #define CURLYM_A_fail_tb_p8            525  /*      0x20d */
 984 #define CURLYM_A_fail_t8_pb            526  /*      0x20e */
 985 #define CURLYM_A_fail_t8_p8            527  /*      0x20f */
 986
 987 #define CURLYM_B                    132     /* 0x84 state for CURLYM */
 988 #define CURLYM_B_tb_pb                 528  /*      0x210 */
 989 #define CURLYM_B_tb_p8                 529  /*      0x211 */
 990 #define CURLYM_B_t8_pb                 530  /*      0x212 */
 991 #define CURLYM_B_t8_p8                 531  /*      0x213 */
 992
 993 #define CURLYM_B_fail               133     /* 0x85 state for CURLYM */
 994 #define CURLYM_B_fail_tb_pb            532  /*      0x214 */
 995 #define CURLYM_B_fail_tb_p8            533  /*      0x215 */
 996 #define CURLYM_B_fail_t8_pb            534  /*      0x216 */
 997 #define CURLYM_B_fail_t8_p8            535  /*      0x217 */
 998
 999 #define IFMATCH_A                   134     /* 0x86 state for IFMATCH */
1000 #define IFMATCH_A_tb_pb                536  /*      0x218 */
1001 #define IFMATCH_A_tb_p8                537  /*      0x219 */
1002 #define IFMATCH_A_t8_pb                538  /*      0x21a */
1003 #define IFMATCH_A_t8_p8                539  /*      0x21b */
1004
1005 #define IFMATCH_A_fail              135     /* 0x87 state for IFMATCH */
1006 #define IFMATCH_A_fail_tb_pb           540  /*      0x21c */
1007 #define IFMATCH_A_fail_tb_p8           541  /*      0x21d */
1008 #define IFMATCH_A_fail_t8_pb           542  /*      0x21e */
1009 #define IFMATCH_A_fail_t8_p8           543  /*      0x21f */
1010
1011 #define CURLY_B_min                 136     /* 0x88 state for CURLY */
1012 #define CURLY_B_min_tb_pb              544  /*      0x220 */
1013 #define CURLY_B_min_tb_p8              545  /*      0x221 */
1014 #define CURLY_B_min_t8_pb              546  /*      0x222 */
1015 #define CURLY_B_min_t8_p8              547  /*      0x223 */
1016
1017 #define CURLY_B_min_fail            137     /* 0x89 state for CURLY */
1018 #define CURLY_B_min_fail_tb_pb         548  /*      0x224 */
1019 #define CURLY_B_min_fail_tb_p8         549  /*      0x225 */
1020 #define CURLY_B_min_fail_t8_pb         550  /*      0x226 */
1021 #define CURLY_B_min_fail_t8_p8         551  /*      0x227 */
1022
1023 #define CURLY_B_max                 138     /* 0x8a state for CURLY */
1024 #define CURLY_B_max_tb_pb              552  /*      0x228 */
1025 #define CURLY_B_max_tb_p8              553  /*      0x229 */
1026 #define CURLY_B_max_t8_pb              554  /*      0x22a */
1027 #define CURLY_B_max_t8_p8              555  /*      0x22b */
1028
1029 #define CURLY_B_max_fail            139     /* 0x8b state for CURLY */
1030 #define CURLY_B_max_fail_tb_pb         556  /*      0x22c */
1031 #define CURLY_B_max_fail_tb_p8         557  /*      0x22d */
1032 #define CURLY_B_max_fail_t8_pb         558  /*      0x22e */
1033 #define CURLY_B_max_fail_t8_p8         559  /*      0x22f */
1034
1035 #define COMMIT_next                 140     /* 0x8c state for COMMIT */
1036 #define COMMIT_next_tb_pb              560  /*      0x230 */
1037 #define COMMIT_next_tb_p8              561  /*      0x231 */
1038 #define COMMIT_next_t8_pb              562  /*      0x232 */
1039 #define COMMIT_next_t8_p8              563  /*      0x233 */
1040
1041 #define COMMIT_next_fail            141     /* 0x8d state for COMMIT */
1042 #define COMMIT_next_fail_tb_pb         564  /*      0x234 */
1043 #define COMMIT_next_fail_tb_p8         565  /*      0x235 */
1044 #define COMMIT_next_fail_t8_pb         566  /*      0x236 */
1045 #define COMMIT_next_fail_t8_p8         567  /*      0x237 */
1046
1047 #define MARKPOINT_next              142     /* 0x8e state for MARKPOINT */
1048 #define MARKPOINT_next_tb_pb           568  /*      0x238 */
1049 #define MARKPOINT_next_tb_p8           569  /*      0x239 */
1050 #define MARKPOINT_next_t8_pb           570  /*      0x23a */
1051 #define MARKPOINT_next_t8_p8           571  /*      0x23b */
1052
1053 #define MARKPOINT_next_fail         143     /* 0x8f state for MARKPOINT */
1054 #define MARKPOINT_next_fail_tb_pb      572  /*      0x23c */
1055 #define MARKPOINT_next_fail_tb_p8      573  /*      0x23d */
1056 #define MARKPOINT_next_fail_t8_pb      574  /*      0x23e */
1057 #define MARKPOINT_next_fail_t8_p8      575  /*      0x23f */
1058
1059 #define SKIP_next                   144     /* 0x90 state for SKIP */
1060 #define SKIP_next_tb_pb                576  /*      0x240 */
1061 #define SKIP_next_tb_p8                577  /*      0x241 */
1062 #define SKIP_next_t8_pb                578  /*      0x242 */
1063 #define SKIP_next_t8_p8                579  /*      0x243 */
1064
1065 #define SKIP_next_fail              145     /* 0x91 state for SKIP */
1066 #define SKIP_next_fail_tb_pb           580  /*      0x244 */
1067 #define SKIP_next_fail_tb_p8           581  /*      0x245 */
1068 #define SKIP_next_fail_t8_pb           582  /*      0x246 */
1069 #define SKIP_next_fail_t8_p8           583  /*      0x247 */
1070
1071 #define CUTGROUP_next               146     /* 0x92 state for CUTGROUP */
1072 #define CUTGROUP_next_tb_pb            584  /*      0x248 */
1073 #define CUTGROUP_next_tb_p8            585  /*      0x249 */
1074 #define CUTGROUP_next_t8_pb            586  /*      0x24a */
1075 #define CUTGROUP_next_t8_p8            587  /*      0x24b */
1076
1077 #define CUTGROUP_next_fail          147     /* 0x93 state for CUTGROUP */
1078 #define CUTGROUP_next_fail_tb_pb       588  /*      0x24c */
1079 #define CUTGROUP_next_fail_tb_p8       589  /*      0x24d */
1080 #define CUTGROUP_next_fail_t8_pb       590  /*      0x24e */
1081 #define CUTGROUP_next_fail_t8_p8       591  /*      0x24f */
1082
1083 #define KEEPS_next                  148     /* 0x94 state for KEEPS */
1084 #define KEEPS_next_tb_pb               592  /*      0x250 */
1085 #define KEEPS_next_tb_p8               593  /*      0x251 */
1086 #define KEEPS_next_t8_pb               594  /*      0x252 */
1087 #define KEEPS_next_t8_p8               595  /*      0x253 */
1088
1089 #define KEEPS_next_fail             149     /* 0x95 state for KEEPS */
1090 #define KEEPS_next_fail_tb_pb          596  /*      0x254 */
1091 #define KEEPS_next_fail_tb_p8          597  /*      0x255 */
1092 #define KEEPS_next_fail_t8_pb          598  /*      0x256 */
1093 #define KEEPS_next_fail_t8_p8          599  /*      0x257 */
1094
1095
1096 /* PL_regkind[] What type of regop or state is this. */
1097
1098 #ifndef DOINIT
1099 EXTCONST U8 PL_regkind[];
1100 #else
1101 EXTCONST U8 PL_regkind[] = {
1102         END,            /* END                    */
1103         END,            /* SUCCEED                */
1104         BOL,            /* SBOL                   */
1105         BOL,            /* MBOL                   */
1106         EOL,            /* SEOL                   */
1107         EOL,            /* MEOL                   */
1108         EOL,            /* EOS                    */
1109         GPOS,           /* GPOS                   */
1110         BOUND,          /* BOUND                  */
1111         BOUND,          /* BOUNDL                 */
1112         BOUND,          /* BOUNDU                 */
1113         BOUND,          /* BOUNDA                 */
1114         NBOUND,         /* NBOUND                 */
1115         NBOUND,         /* NBOUNDL                */
1116         NBOUND,         /* NBOUNDU                */
1117         NBOUND,         /* NBOUNDA                */
1118         REG_ANY,        /* REG_ANY                */
1119         REG_ANY,        /* SANY                   */
1120         ANYOF,          /* ANYOF                  */
1121         ANYOF,          /* ANYOFD                 */
1122         ANYOF,          /* ANYOFL                 */
1123         ANYOF,          /* ANYOFPOSIXL            */
1124         ANYOF,          /* ANYOFH                 */
1125         ANYOF,          /* ANYOFHb                */
1126         ANYOF,          /* ANYOFHr                */
1127         ANYOF,          /* ANYOFHs                */
1128         ANYOFR,         /* ANYOFR                 */
1129         ANYOFR,         /* ANYOFRb                */
1130         ANYOFM,         /* ANYOFM                 */
1131         ANYOFM,         /* NANYOFM                */
1132         POSIXD,         /* POSIXD                 */
1133         POSIXD,         /* POSIXL                 */
1134         POSIXD,         /* POSIXU                 */
1135         POSIXD,         /* POSIXA                 */
1136         NPOSIXD,        /* NPOSIXD                */
1137         NPOSIXD,        /* NPOSIXL                */
1138         NPOSIXD,        /* NPOSIXU                */
1139         NPOSIXD,        /* NPOSIXA                */
1140         CLUMP,          /* CLUMP                  */
1141         BRANCH,         /* BRANCH                 */
1142         EXACT,          /* EXACT                  */
1143         EXACT,          /* LEXACT                 */
1144         EXACT,          /* EXACTL                 */
1145         EXACT,          /* EXACTF                 */
1146         EXACT,          /* EXACTFL                */
1147         EXACT,          /* EXACTFU                */
1148         EXACT,          /* EXACTFAA               */
1149         EXACT,          /* EXACTFAA_NO_TRIE       */
1150         EXACT,          /* EXACTFUP               */
1151         EXACT,          /* EXACTFLU8              */
1152         EXACT,          /* EXACT_REQ8             */
1153         EXACT,          /* LEXACT_REQ8            */
1154         EXACT,          /* EXACTFU_REQ8           */
1155         EXACT,          /* EXACTFU_S_EDGE         */
1156         LNBREAK,        /* LNBREAK                */
1157         TRIE,           /* TRIE                   */
1158         TRIE,           /* TRIEC                  */
1159         TRIE,           /* AHOCORASICK            */
1160         TRIE,           /* AHOCORASICKC           */
1161         NOTHING,        /* NOTHING                */
1162         NOTHING,        /* TAIL                   */
1163         STAR,           /* STAR                   */
1164         PLUS,           /* PLUS                   */
1165         CURLY,          /* CURLY                  */
1166         CURLY,          /* CURLYN                 */
1167         CURLY,          /* CURLYM                 */
1168         CURLY,          /* CURLYX                 */
1169         WHILEM,         /* WHILEM                 */
1170         OPEN,           /* OPEN                   */
1171         CLOSE,          /* CLOSE                  */
1172         SROPEN,         /* SROPEN                 */
1173         SRCLOSE,        /* SRCLOSE                */
1174         REF,            /* REF                    */
1175         REF,            /* REFF                   */
1176         REF,            /* REFFL                  */
1177         REF,            /* REFFU                  */
1178         REF,            /* REFFA                  */
1179         REF,            /* REFN                   */
1180         REF,            /* REFFN                  */
1181         REF,            /* REFFLN                 */
1182         REF,            /* REFFUN                 */
1183         REF,            /* REFFAN                 */
1184         LONGJMP,        /* LONGJMP                */
1185         BRANCHJ,        /* BRANCHJ                */
1186         BRANCHJ,        /* IFMATCH                */
1187         BRANCHJ,        /* UNLESSM                */
1188         BRANCHJ,        /* SUSPEND                */
1189         BRANCHJ,        /* IFTHEN                 */
1190         GROUPP,         /* GROUPP                 */
1191         EVAL,           /* EVAL                   */
1192         MINMOD,         /* MINMOD                 */
1193         LOGICAL,        /* LOGICAL                */
1194         BRANCHJ,        /* RENUM                  */
1195         GOSUB,          /* GOSUB                  */
1196         GROUPPN,        /* GROUPPN                */
1197         INSUBP,         /* INSUBP                 */
1198         DEFINEP,        /* DEFINEP                */
1199         ENDLIKE,        /* ENDLIKE                */
1200         ENDLIKE,        /* OPFAIL                 */
1201         ENDLIKE,        /* ACCEPT                 */
1202         VERB,           /* VERB                   */
1203         VERB,           /* PRUNE                  */
1204         VERB,           /* MARKPOINT              */
1205         VERB,           /* SKIP                   */
1206         VERB,           /* COMMIT                 */
1207         VERB,           /* CUTGROUP               */
1208         KEEPS,          /* KEEPS                  */
1209         NOTHING,        /* OPTIMIZED              */
1210         PSEUDO,         /* PSEUDO                 */
1211         REGEX_SET,      /* REGEX_SET              */
1212         /* ------------ States ------------- */
1213         TRIE,           /* TRIE_next              */
1214         TRIE,           /* TRIE_next_fail         */
1215         EVAL,           /* EVAL_B                 */
1216         EVAL,           /* EVAL_B_fail            */
1217         EVAL,           /* EVAL_postponed_AB      */
1218         EVAL,           /* EVAL_postponed_AB_fail */
1219         CURLYX,         /* CURLYX_end             */
1220         CURLYX,         /* CURLYX_end_fail        */
1221         WHILEM,         /* WHILEM_A_pre           */
1222         WHILEM,         /* WHILEM_A_pre_fail      */
1223         WHILEM,         /* WHILEM_A_min           */
1224         WHILEM,         /* WHILEM_A_min_fail      */
1225         WHILEM,         /* WHILEM_A_max           */
1226         WHILEM,         /* WHILEM_A_max_fail      */
1227         WHILEM,         /* WHILEM_B_min           */
1228         WHILEM,         /* WHILEM_B_min_fail      */
1229         WHILEM,         /* WHILEM_B_max           */
1230         WHILEM,         /* WHILEM_B_max_fail      */
1231         BRANCH,         /* BRANCH_next            */
1232         BRANCH,         /* BRANCH_next_fail       */
1233         CURLYM,         /* CURLYM_A               */
1234         CURLYM,         /* CURLYM_A_fail          */
1235         CURLYM,         /* CURLYM_B               */
1236         CURLYM,         /* CURLYM_B_fail          */
1237         IFMATCH,        /* IFMATCH_A              */
1238         IFMATCH,        /* IFMATCH_A_fail         */
1239         CURLY,          /* CURLY_B_min            */
1240         CURLY,          /* CURLY_B_min_fail       */
1241         CURLY,          /* CURLY_B_max            */
1242         CURLY,          /* CURLY_B_max_fail       */
1243         COMMIT,         /* COMMIT_next            */
1244         COMMIT,         /* COMMIT_next_fail       */
1245         MARKPOINT,      /* MARKPOINT_next         */
1246         MARKPOINT,      /* MARKPOINT_next_fail    */
1247         SKIP,           /* SKIP_next              */
1248         SKIP,           /* SKIP_next_fail         */
1249         CUTGROUP,       /* CUTGROUP_next          */
1250         CUTGROUP,       /* CUTGROUP_next_fail     */
1251         KEEPS,          /* KEEPS_next             */
1252         KEEPS,          /* KEEPS_next_fail        */
1253 };
1254 #endif
1255
1256 #ifdef REG_COMP_C
1257
1258 /* regarglen[] - How large is the argument part of the node (in regnodes) */
1259
1260 static const U8 regarglen[] = {
1261         0,                                      /* END          */
1262         0,                                      /* SUCCEED      */
1263         0,                                      /* SBOL         */
1264         0,                                      /* MBOL         */
1265         0,                                      /* SEOL         */
1266         0,                                      /* MEOL         */
1267         0,                                      /* EOS          */
1268         0,                                      /* GPOS         */
1269         0,                                      /* BOUND        */
1270         0,                                      /* BOUNDL       */
1271         0,                                      /* BOUNDU       */
1272         0,                                      /* BOUNDA       */
1273         0,                                      /* NBOUND       */
1274         0,                                      /* NBOUNDL      */
1275         0,                                      /* NBOUNDU      */
1276         0,                                      /* NBOUNDA      */
1277         0,                                      /* REG_ANY      */
1278         0,                                      /* SANY         */
1279         EXTRA_SIZE(struct regnode_charclass),   /* ANYOF        */
1280         EXTRA_SIZE(struct regnode_charclass),   /* ANYOFD       */
1281         EXTRA_SIZE(struct regnode_charclass),   /* ANYOFL       */
1282         EXTRA_SIZE(struct regnode_charclass_posixl),    /* ANYOFPOSIXL  */
1283         EXTRA_SIZE(struct regnode_1),           /* ANYOFH       */
1284         EXTRA_SIZE(struct regnode_1),           /* ANYOFHb      */
1285         EXTRA_SIZE(struct regnode_1),           /* ANYOFHr      */
1286         EXTRA_SIZE(struct regnode_1),           /* ANYOFHs      */
1287         EXTRA_SIZE(struct regnode_1),           /* ANYOFR       */
1288         EXTRA_SIZE(struct regnode_1),           /* ANYOFRb      */
1289         EXTRA_SIZE(struct regnode_1),           /* ANYOFM       */
1290         EXTRA_SIZE(struct regnode_1),           /* NANYOFM      */
1291         0,                                      /* POSIXD       */
1292         0,                                      /* POSIXL       */
1293         0,                                      /* POSIXU       */
1294         0,                                      /* POSIXA       */
1295         0,                                      /* NPOSIXD      */
1296         0,                                      /* NPOSIXL      */
1297         0,                                      /* NPOSIXU      */
1298         0,                                      /* NPOSIXA      */
1299         0,                                      /* CLUMP        */
1300         0,                                      /* BRANCH       */
1301         0,                                      /* EXACT        */
1302         EXTRA_SIZE(struct regnode_1),           /* LEXACT       */
1303         0,                                      /* EXACTL       */
1304         0,                                      /* EXACTF       */
1305         0,                                      /* EXACTFL      */
1306         0,                                      /* EXACTFU      */
1307         0,                                      /* EXACTFAA     */
1308         0,                                      /* EXACTFAA_NO_TRIE */
1309         0,                                      /* EXACTFUP     */
1310         0,                                      /* EXACTFLU8    */
1311         0,                                      /* EXACT_REQ8   */
1312         EXTRA_SIZE(struct regnode_1),           /* LEXACT_REQ8  */
1313         0,                                      /* EXACTFU_REQ8 */
1314         0,                                      /* EXACTFU_S_EDGE */
1315         0,                                      /* LNBREAK      */
1316         EXTRA_SIZE(struct regnode_1),           /* TRIE         */
1317         EXTRA_SIZE(struct regnode_charclass),   /* TRIEC        */
1318         EXTRA_SIZE(struct regnode_1),           /* AHOCORASICK  */
1319         EXTRA_SIZE(struct regnode_charclass),   /* AHOCORASICKC */
1320         0,                                      /* NOTHING      */
1321         0,                                      /* TAIL         */
1322         0,                                      /* STAR         */
1323         0,                                      /* PLUS         */
1324         EXTRA_SIZE(struct regnode_2),           /* CURLY        */
1325         EXTRA_SIZE(struct regnode_2),           /* CURLYN       */
1326         EXTRA_SIZE(struct regnode_2),           /* CURLYM       */
1327         EXTRA_SIZE(struct regnode_2),           /* CURLYX       */
1328         0,                                      /* WHILEM       */
1329         EXTRA_SIZE(struct regnode_1),           /* OPEN         */
1330         EXTRA_SIZE(struct regnode_1),           /* CLOSE        */
1331         0,                                      /* SROPEN       */
1332         0,                                      /* SRCLOSE      */
1333         EXTRA_SIZE(struct regnode_1),           /* REF          */
1334         EXTRA_SIZE(struct regnode_1),           /* REFF         */
1335         EXTRA_SIZE(struct regnode_1),           /* REFFL        */
1336         EXTRA_SIZE(struct regnode_1),           /* REFFU        */
1337         EXTRA_SIZE(struct regnode_1),           /* REFFA        */
1338         EXTRA_SIZE(struct regnode_1),           /* REFN         */
1339         EXTRA_SIZE(struct regnode_1),           /* REFFN        */
1340         EXTRA_SIZE(struct regnode_1),           /* REFFLN       */
1341         EXTRA_SIZE(struct regnode_1),           /* REFFUN       */
1342         EXTRA_SIZE(struct regnode_1),           /* REFFAN       */
1343         EXTRA_SIZE(struct regnode_1),           /* LONGJMP      */
1344         EXTRA_SIZE(struct regnode_1),           /* BRANCHJ      */
1345         EXTRA_SIZE(struct regnode_1),           /* IFMATCH      */
1346         EXTRA_SIZE(struct regnode_1),           /* UNLESSM      */
1347         EXTRA_SIZE(struct regnode_1),           /* SUSPEND      */
1348         EXTRA_SIZE(struct regnode_1),           /* IFTHEN       */
1349         EXTRA_SIZE(struct regnode_1),           /* GROUPP       */
1350         EXTRA_SIZE(struct regnode_2L),          /* EVAL         */
1351         0,                                      /* MINMOD       */
1352         0,                                      /* LOGICAL      */
1353         EXTRA_SIZE(struct regnode_1),           /* RENUM        */
1354         EXTRA_SIZE(struct regnode_2L),          /* GOSUB        */
1355         EXTRA_SIZE(struct regnode_1),           /* GROUPPN      */
1356         EXTRA_SIZE(struct regnode_1),           /* INSUBP       */
1357         EXTRA_SIZE(struct regnode_1),           /* DEFINEP      */
1358         0,                                      /* ENDLIKE      */
1359         EXTRA_SIZE(struct regnode_1),           /* OPFAIL       */
1360         EXTRA_SIZE(struct regnode_2L),          /* ACCEPT       */
1361         EXTRA_SIZE(struct regnode_1),           /* VERB         */
1362         EXTRA_SIZE(struct regnode_1),           /* PRUNE        */
1363         EXTRA_SIZE(struct regnode_1),           /* MARKPOINT    */
1364         EXTRA_SIZE(struct regnode_1),           /* SKIP         */
1365         EXTRA_SIZE(struct regnode_1),           /* COMMIT       */
1366         EXTRA_SIZE(struct regnode_1),           /* CUTGROUP     */
1367         0,                                      /* KEEPS        */
1368         0,                                      /* OPTIMIZED    */
1369         0,                                      /* PSEUDO       */
1370         EXTRA_SIZE(struct regnode_p),           /* REGEX_SET    */
1371 };
1372
1373 /* reg_off_by_arg[] - Which argument holds the offset to the next node */
1374
1375 static const char reg_off_by_arg[] = {
1376         0,      /* END          */
1377         0,      /* SUCCEED      */
1378         0,      /* SBOL         */
1379         0,      /* MBOL         */
1380         0,      /* SEOL         */
1381         0,      /* MEOL         */
1382         0,      /* EOS          */
1383         0,      /* GPOS         */
1384         0,      /* BOUND        */
1385         0,      /* BOUNDL       */
1386         0,      /* BOUNDU       */
1387         0,      /* BOUNDA       */
1388         0,      /* NBOUND       */
1389         0,      /* NBOUNDL      */
1390         0,      /* NBOUNDU      */
1391         0,      /* NBOUNDA      */
1392         0,      /* REG_ANY      */
1393         0,      /* SANY         */
1394         0,      /* ANYOF        */
1395         0,      /* ANYOFD       */
1396         0,      /* ANYOFL       */
1397         0,      /* ANYOFPOSIXL  */
1398         0,      /* ANYOFH       */
1399         0,      /* ANYOFHb      */
1400         0,      /* ANYOFHr      */
1401         0,      /* ANYOFHs      */
1402         0,      /* ANYOFR       */
1403         0,      /* ANYOFRb      */
1404         0,      /* ANYOFM       */
1405         0,      /* NANYOFM      */
1406         0,      /* POSIXD       */
1407         0,      /* POSIXL       */
1408         0,      /* POSIXU       */
1409         0,      /* POSIXA       */
1410         0,      /* NPOSIXD      */
1411         0,      /* NPOSIXL      */
1412         0,      /* NPOSIXU      */
1413         0,      /* NPOSIXA      */
1414         0,      /* CLUMP        */
1415         0,      /* BRANCH       */
1416         0,      /* EXACT        */
1417         0,      /* LEXACT       */
1418         0,      /* EXACTL       */
1419         0,      /* EXACTF       */
1420         0,      /* EXACTFL      */
1421         0,      /* EXACTFU      */
1422         0,      /* EXACTFAA     */
1423         0,      /* EXACTFAA_NO_TRIE */
1424         0,      /* EXACTFUP     */
1425         0,      /* EXACTFLU8    */
1426         0,      /* EXACT_REQ8   */
1427         0,      /* LEXACT_REQ8  */
1428         0,      /* EXACTFU_REQ8 */
1429         0,      /* EXACTFU_S_EDGE */
1430         0,      /* LNBREAK      */
1431         0,      /* TRIE         */
1432         0,      /* TRIEC        */
1433         0,      /* AHOCORASICK  */
1434         0,      /* AHOCORASICKC */
1435         0,      /* NOTHING      */
1436         0,      /* TAIL         */
1437         0,      /* STAR         */
1438         0,      /* PLUS         */
1439         0,      /* CURLY        */
1440         0,      /* CURLYN       */
1441         0,      /* CURLYM       */
1442         0,      /* CURLYX       */
1443         0,      /* WHILEM       */
1444         0,      /* OPEN         */
1445         0,      /* CLOSE        */
1446         0,      /* SROPEN       */
1447         0,      /* SRCLOSE      */
1448         0,      /* REF          */
1449         0,      /* REFF         */
1450         0,      /* REFFL        */
1451         0,      /* REFFU        */
1452         0,      /* REFFA        */
1453         0,      /* REFN         */
1454         0,      /* REFFN        */
1455         0,      /* REFFLN       */
1456         0,      /* REFFUN       */
1457         0,      /* REFFAN       */
1458         1,      /* LONGJMP      */
1459         1,      /* BRANCHJ      */
1460         1,      /* IFMATCH      */
1461         1,      /* UNLESSM      */
1462         1,      /* SUSPEND      */
1463         1,      /* IFTHEN       */
1464         0,      /* GROUPP       */
1465         0,      /* EVAL         */
1466         0,      /* MINMOD       */
1467         0,      /* LOGICAL      */
1468         1,      /* RENUM        */
1469         0,      /* GOSUB        */
1470         0,      /* GROUPPN      */
1471         0,      /* INSUBP       */
1472         0,      /* DEFINEP      */
1473         0,      /* ENDLIKE      */
1474         0,      /* OPFAIL       */
1475         0,      /* ACCEPT       */
1476         0,      /* VERB         */
1477         0,      /* PRUNE        */
1478         0,      /* MARKPOINT    */
1479         0,      /* SKIP         */
1480         0,      /* COMMIT       */
1481         0,      /* CUTGROUP     */
1482         0,      /* KEEPS        */
1483         0,      /* OPTIMIZED    */
1484         0,      /* PSEUDO       */
1485         0,      /* REGEX_SET    */
1486 };
1487
1488 #endif /* REG_COMP_C */
1489
1490
1491 /* reg_name[] - Opcode/state names in string form, for debugging */
1492
1493 #ifndef DOINIT
1494 EXTCONST char * PL_reg_name[];
1495 #else
1496 EXTCONST char * const PL_reg_name[] = {
1497         "END",                          /* 0000 */
1498         "SUCCEED",                      /* 0x01 */
1499         "SBOL",                         /* 0x02 */
1500         "MBOL",                         /* 0x03 */
1501         "SEOL",                         /* 0x04 */
1502         "MEOL",                         /* 0x05 */
1503         "EOS",                          /* 0x06 */
1504         "GPOS",                         /* 0x07 */
1505         "BOUND",                        /* 0x08 */
1506         "BOUNDL",                       /* 0x09 */
1507         "BOUNDU",                       /* 0x0a */
1508         "BOUNDA",                       /* 0x0b */
1509         "NBOUND",                       /* 0x0c */
1510         "NBOUNDL",                      /* 0x0d */
1511         "NBOUNDU",                      /* 0x0e */
1512         "NBOUNDA",                      /* 0x0f */
1513         "REG_ANY",                      /* 0x10 */
1514         "SANY",                         /* 0x11 */
1515         "ANYOF",                        /* 0x12 */
1516         "ANYOFD",                       /* 0x13 */
1517         "ANYOFL",                       /* 0x14 */
1518         "ANYOFPOSIXL",                  /* 0x15 */
1519         "ANYOFH",                       /* 0x16 */
1520         "ANYOFHb",                      /* 0x17 */
1521         "ANYOFHr",                      /* 0x18 */
1522         "ANYOFHs",                      /* 0x19 */
1523         "ANYOFR",                       /* 0x1a */
1524         "ANYOFRb",                      /* 0x1b */
1525         "ANYOFM",                       /* 0x1c */
1526         "NANYOFM",                      /* 0x1d */
1527         "POSIXD",                       /* 0x1e */
1528         "POSIXL",                       /* 0x1f */
1529         "POSIXU",                       /* 0x20 */
1530         "POSIXA",                       /* 0x21 */
1531         "NPOSIXD",                      /* 0x22 */
1532         "NPOSIXL",                      /* 0x23 */
1533         "NPOSIXU",                      /* 0x24 */
1534         "NPOSIXA",                      /* 0x25 */
1535         "CLUMP",                        /* 0x26 */
1536         "BRANCH",                       /* 0x27 */
1537         "EXACT",                        /* 0x28 */
1538         "LEXACT",                       /* 0x29 */
1539         "EXACTL",                       /* 0x2a */
1540         "EXACTF",                       /* 0x2b */
1541         "EXACTFL",                      /* 0x2c */
1542         "EXACTFU",                      /* 0x2d */
1543         "EXACTFAA",                     /* 0x2e */
1544         "EXACTFAA_NO_TRIE",             /* 0x2f */
1545         "EXACTFUP",                     /* 0x30 */
1546         "EXACTFLU8",                    /* 0x31 */
1547         "EXACT_REQ8",                   /* 0x32 */
1548         "LEXACT_REQ8",                  /* 0x33 */
1549         "EXACTFU_REQ8",                 /* 0x34 */
1550         "EXACTFU_S_EDGE",               /* 0x35 */
1551         "LNBREAK",                      /* 0x36 */
1552         "TRIE",                         /* 0x37 */
1553         "TRIEC",                        /* 0x38 */
1554         "AHOCORASICK",                  /* 0x39 */
1555         "AHOCORASICKC",                 /* 0x3a */
1556         "NOTHING",                      /* 0x3b */
1557         "TAIL",                         /* 0x3c */
1558         "STAR",                         /* 0x3d */
1559         "PLUS",                         /* 0x3e */
1560         "CURLY",                        /* 0x3f */
1561         "CURLYN",                       /* 0x40 */
1562         "CURLYM",                       /* 0x41 */
1563         "CURLYX",                       /* 0x42 */
1564         "WHILEM",                       /* 0x43 */
1565         "OPEN",                         /* 0x44 */
1566         "CLOSE",                        /* 0x45 */
1567         "SROPEN",                       /* 0x46 */
1568         "SRCLOSE",                      /* 0x47 */
1569         "REF",                          /* 0x48 */
1570         "REFF",                         /* 0x49 */
1571         "REFFL",                        /* 0x4a */
1572         "REFFU",                        /* 0x4b */
1573         "REFFA",                        /* 0x4c */
1574         "REFN",                         /* 0x4d */
1575         "REFFN",                        /* 0x4e */
1576         "REFFLN",                       /* 0x4f */
1577         "REFFUN",                       /* 0x50 */
1578         "REFFAN",                       /* 0x51 */
1579         "LONGJMP",                      /* 0x52 */
1580         "BRANCHJ",                      /* 0x53 */
1581         "IFMATCH",                      /* 0x54 */
1582         "UNLESSM",                      /* 0x55 */
1583         "SUSPEND",                      /* 0x56 */
1584         "IFTHEN",                       /* 0x57 */
1585         "GROUPP",                       /* 0x58 */
1586         "EVAL",                         /* 0x59 */
1587         "MINMOD",                       /* 0x5a */
1588         "LOGICAL",                      /* 0x5b */
1589         "RENUM",                        /* 0x5c */
1590         "GOSUB",                        /* 0x5d */
1591         "GROUPPN",                      /* 0x5e */
1592         "INSUBP",                       /* 0x5f */
1593         "DEFINEP",                      /* 0x60 */
1594         "ENDLIKE",                      /* 0x61 */
1595         "OPFAIL",                       /* 0x62 */
1596         "ACCEPT",                       /* 0x63 */
1597         "VERB",                         /* 0x64 */
1598         "PRUNE",                        /* 0x65 */
1599         "MARKPOINT",                    /* 0x66 */
1600         "SKIP",                         /* 0x67 */
1601         "COMMIT",                       /* 0x68 */
1602         "CUTGROUP",                     /* 0x69 */
1603         "KEEPS",                        /* 0x6a */
1604         "OPTIMIZED",                    /* 0x6b */
1605         "PSEUDO",                       /* 0x6c */
1606         "REGEX_SET",                    /* 0x6d */
1607         /* ------------ States ------------- */
1608         "TRIE_next",                    /* REGNODE_MAX +0x01 */
1609         "TRIE_next_fail",               /* REGNODE_MAX +0x02 */
1610         "EVAL_B",                       /* REGNODE_MAX +0x03 */
1611         "EVAL_B_fail",                  /* REGNODE_MAX +0x04 */
1612         "EVAL_postponed_AB",            /* REGNODE_MAX +0x05 */
1613         "EVAL_postponed_AB_fail",       /* REGNODE_MAX +0x06 */
1614         "CURLYX_end",                   /* REGNODE_MAX +0x07 */
1615         "CURLYX_end_fail",              /* REGNODE_MAX +0x08 */
1616         "WHILEM_A_pre",                 /* REGNODE_MAX +0x09 */
1617         "WHILEM_A_pre_fail",            /* REGNODE_MAX +0x0a */
1618         "WHILEM_A_min",                 /* REGNODE_MAX +0x0b */
1619         "WHILEM_A_min_fail",            /* REGNODE_MAX +0x0c */
1620         "WHILEM_A_max",                 /* REGNODE_MAX +0x0d */
1621         "WHILEM_A_max_fail",            /* REGNODE_MAX +0x0e */
1622         "WHILEM_B_min",                 /* REGNODE_MAX +0x0f */
1623         "WHILEM_B_min_fail",            /* REGNODE_MAX +0x10 */
1624         "WHILEM_B_max",                 /* REGNODE_MAX +0x11 */
1625         "WHILEM_B_max_fail",            /* REGNODE_MAX +0x12 */
1626         "BRANCH_next",                  /* REGNODE_MAX +0x13 */
1627         "BRANCH_next_fail",             /* REGNODE_MAX +0x14 */
1628         "CURLYM_A",                     /* REGNODE_MAX +0x15 */
1629         "CURLYM_A_fail",                /* REGNODE_MAX +0x16 */
1630         "CURLYM_B",                     /* REGNODE_MAX +0x17 */
1631         "CURLYM_B_fail",                /* REGNODE_MAX +0x18 */
1632         "IFMATCH_A",                    /* REGNODE_MAX +0x19 */
1633         "IFMATCH_A_fail",               /* REGNODE_MAX +0x1a */
1634         "CURLY_B_min",                  /* REGNODE_MAX +0x1b */
1635         "CURLY_B_min_fail",             /* REGNODE_MAX +0x1c */
1636         "CURLY_B_max",                  /* REGNODE_MAX +0x1d */
1637         "CURLY_B_max_fail",             /* REGNODE_MAX +0x1e */
1638         "COMMIT_next",                  /* REGNODE_MAX +0x1f */
1639         "COMMIT_next_fail",             /* REGNODE_MAX +0x20 */
1640         "MARKPOINT_next",               /* REGNODE_MAX +0x21 */
1641         "MARKPOINT_next_fail",          /* REGNODE_MAX +0x22 */
1642         "SKIP_next",                    /* REGNODE_MAX +0x23 */
1643         "SKIP_next_fail",               /* REGNODE_MAX +0x24 */
1644         "CUTGROUP_next",                /* REGNODE_MAX +0x25 */
1645         "CUTGROUP_next_fail",           /* REGNODE_MAX +0x26 */
1646         "KEEPS_next",                   /* REGNODE_MAX +0x27 */
1647         "KEEPS_next_fail",              /* REGNODE_MAX +0x28 */
1648 };
1649 #endif /* DOINIT */
1650
1651 /* PL_reg_extflags_name[] - Opcode/state names in string form, for debugging */
1652
1653 #ifndef DOINIT
1654 EXTCONST char * PL_reg_extflags_name[];
1655 #else
1656 EXTCONST char * const PL_reg_extflags_name[] = {
1657         /* Bits in extflags defined: 11111111111111110000111111111111 */
1658         "MULTILINE",        /* 0x00000001 */
1659         "SINGLELINE",       /* 0x00000002 */
1660         "FOLD",             /* 0x00000004 */
1661         "EXTENDED",         /* 0x00000008 */
1662         "EXTENDED_MORE",    /* 0x00000010 */
1663         "NOCAPTURE",        /* 0x00000020 */
1664         "KEEPCOPY",         /* 0x00000040 */
1665         "CHARSET0",         /* 0x00000080 : "CHARSET" - 0x00000380 */
1666         "CHARSET1",         /* 0x00000100 : "CHARSET" - 0x00000380 */
1667         "CHARSET2",         /* 0x00000200 : "CHARSET" - 0x00000380 */
1668         "STRICT",           /* 0x00000400 */
1669         "SPLIT",            /* 0x00000800 */
1670         "UNUSED_BIT_12",    /* 0x00001000 */
1671         "UNUSED_BIT_13",    /* 0x00002000 */
1672         "UNUSED_BIT_14",    /* 0x00004000 */
1673         "UNUSED_BIT_15",    /* 0x00008000 */
1674         "NO_INPLACE_SUBST", /* 0x00010000 */
1675         "EVAL_SEEN",        /* 0x00020000 */
1676         "UNBOUNDED_QUANTIFIER_SEEN",/* 0x00040000 */
1677         "CHECK_ALL",        /* 0x00080000 */
1678         "MATCH_UTF8",       /* 0x00100000 */
1679         "USE_INTUIT_NOML",  /* 0x00200000 */
1680         "USE_INTUIT_ML",    /* 0x00400000 */
1681         "INTUIT_TAIL",      /* 0x00800000 */
1682         "IS_ANCHORED",      /* 0x01000000 */
1683         "COPY_DONE",        /* 0x02000000 */
1684         "TAINTED_SEEN",     /* 0x04000000 */
1685         "TAINTED",          /* 0x08000000 */
1686         "START_ONLY",       /* 0x10000000 */
1687         "SKIPWHITE",        /* 0x20000000 */
1688         "WHITE",            /* 0x40000000 */
1689         "NULL",             /* 0x80000000 */
1690 };
1691 #endif /* DOINIT */
1692
1693 #ifdef DEBUGGING
1694 #  define REG_EXTFLAGS_NAME_SIZE 32
1695 #endif
1696
1697 /* PL_reg_intflags_name[] - Opcode/state names in string form, for debugging */
1698
1699 #ifndef DOINIT
1700 EXTCONST char * PL_reg_intflags_name[];
1701 #else
1702 EXTCONST char * const PL_reg_intflags_name[] = {
1703         "SKIP",                       /* 0x00000001 - PREGf_SKIP */
1704         "IMPLICIT",                   /* 0x00000002 - PREGf_IMPLICIT -  Converted .* to ^.*  */
1705         "NAUGHTY",                    /* 0x00000004 - PREGf_NAUGHTY -  how exponential is this pattern?  */
1706         "VERBARG_SEEN",               /* 0x00000008 - PREGf_VERBARG_SEEN */
1707         "CUTGROUP_SEEN",              /* 0x00000010 - PREGf_CUTGROUP_SEEN */
1708         "USE_RE_EVAL",                /* 0x00000020 - PREGf_USE_RE_EVAL -  compiled with "use re 'eval'"  */
1709         "NOSCAN",                     /* 0x00000040 - PREGf_NOSCAN */
1710         "GPOS_SEEN",                  /* 0x00000100 - PREGf_GPOS_SEEN */
1711         "GPOS_FLOAT",                 /* 0x00000200 - PREGf_GPOS_FLOAT */
1712         "ANCH_MBOL",                  /* 0x00000400 - PREGf_ANCH_MBOL */
1713         "ANCH_SBOL",                  /* 0x00000800 - PREGf_ANCH_SBOL */
1714         "ANCH_GPOS",                  /* 0x00001000 - PREGf_ANCH_GPOS */
1715         "RECURSE_SEEN",               /* 0x00002000 - PREGf_RECURSE_SEEN */
1716 };
1717 #endif /* DOINIT */
1718
1719 #ifdef DEBUGGING
1720 #  define REG_INTFLAGS_NAME_SIZE 13
1721 #endif
1722
1723 /* The following have no fixed length. U8 so we can do strchr() on it. */
1724 #define REGNODE_VARIES(node) (PL_varies_bitmask[(node) >> 3] & (1 << ((node) & 7)))
1725
1726 #ifndef DOINIT
1727 EXTCONST U8 PL_varies[] __attribute__deprecated__;
1728 #else
1729 EXTCONST U8 PL_varies[] __attribute__deprecated__ = {
1730     CLUMP, BRANCH, STAR, PLUS, CURLY, CURLYN, CURLYM, CURLYX, WHILEM, REF,
1731     REFF, REFFL, REFFU, REFFA, REFN, REFFN, REFFLN, REFFUN, REFFAN,
1732     BRANCHJ, SUSPEND, IFTHEN,
1733     0
1734 };
1735 #endif /* DOINIT */
1736
1737 #ifndef DOINIT
1738 EXTCONST U8 PL_varies_bitmask[];
1739 #else
1740 EXTCONST U8 PL_varies_bitmask[] = {
1741     0x00, 0x00, 0x00, 0x00, 0xC0, 0x00, 0x00, 0xE0, 0x0F, 0xFF, 0xCB, 0x00, 0x00, 0x00
1742 };
1743 #endif /* DOINIT */
1744
1745 /* The following always have a length of 1. U8 we can do strchr() on it. */
1746 /* (Note that length 1 means "one character" under UTF8, not "one octet".) */
1747 #define REGNODE_SIMPLE(node) (PL_simple_bitmask[(node) >> 3] & (1 << ((node) & 7)))
1748
1749 #ifndef DOINIT
1750 EXTCONST U8 PL_simple[] __attribute__deprecated__;
1751 #else
1752 EXTCONST U8 PL_simple[] __attribute__deprecated__ = {
1753     REG_ANY, SANY, ANYOF, ANYOFD, ANYOFL, ANYOFPOSIXL, ANYOFH, ANYOFHb,
1754     ANYOFHr, ANYOFHs, ANYOFR, ANYOFRb, ANYOFM, NANYOFM, POSIXD, POSIXL,
1755     POSIXU, POSIXA, NPOSIXD, NPOSIXL, NPOSIXU, NPOSIXA, REGEX_SET,
1756     0
1757 };
1758 #endif /* DOINIT */
1759
1760 #ifndef DOINIT
1761 EXTCONST U8 PL_simple_bitmask[];
1762 #else
1763 EXTCONST U8 PL_simple_bitmask[] = {
1764     0x00, 0x00, 0xFF, 0xFF, 0x3F, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x20
1765 };
1766 #endif /* DOINIT */
1767
1768 /* Is 'op', known to be of type EXACT, folding? */
1769 #define isEXACTFish(op) (__ASSERT_(PL_regkind[op] == EXACT) (PL_EXACTFish_bitmask & (1U << (op - EXACT))))
1770
1771 /* Do only UTF-8 target strings match 'op', known to be of type EXACT? */
1772 #define isEXACT_REQ8(op) (__ASSERT_(PL_regkind[op] == EXACT) (PL_EXACT_REQ8_bitmask & (1U << (op - EXACT))))
1773
1774 #ifndef DOINIT
1775 EXTCONST U32 PL_EXACTFish_bitmask;
1776 EXTCONST U32 PL_EXACT_REQ8_bitmask;
1777 #else
1778 EXTCONST U32 PL_EXACTFish_bitmask = 0x33F8;
1779 EXTCONST U32 PL_EXACT_REQ8_bitmask = 0x1E00;
1780 #endif /* DOINIT */
1781
1782 #endif /* defined(PERL_CORE) || defined(PERL_EXT_RE_BUILD) */
1783
1784 /* ex: set ro: */