This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
win32 symlink: treats paths that look like directories as directories
[perl5.git] / regnodes.h
CommitLineData
37442d52
RGS
1/* -*- buffer-read-only: t -*-
2 !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
eb2624c9 3 This file is built by regen/regcomp.pl from regcomp.sym.
d09b2d29 4 Any changes made here will be lost!
78102347 5 */
d09b2d29 6
33b57041
KW
7#if defined(PERL_CORE) || defined(PERL_EXT_RE_BUILD)
8
6bda09f9
YO
9/* Regops and State definitions */
10
86451f01
KW
11#define REGNODE_MAX 109
12#define REGMATCH_STATE_MAX 149
03363afd 13
ce553cf5
KW
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
c1ec4bdd
KW
105#define BOUNDU 10 /* 0x0a Match "" at any boundary
106 of a given type using /u rules.
107 */
ce553cf5
KW
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
c1ec4bdd
KW
128#define NBOUNDL 13 /* 0x0d Like NBOUND/NBOUNDU, but
129 \w and \W are defined by
130 current locale */
ce553cf5
KW
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
c1ec4bdd
KW
159#define SANY 17 /* 0x11 Match any one character.
160 */
ce553cf5
KW
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
c1ec4bdd
KW
197 bitmap; the flags field
198 contains the lowest matchable
199 UTF-8 start byte */
ce553cf5
KW
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
c1ec4bdd
KW
215 field contains packed bounds
216 for all matchable UTF-8 start
217 bytes. */
ce553cf5
KW
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
c1ec4bdd
KW
327#define CLUMP 38 /* 0x26 Match any extended
328 grapheme cluster sequence */
ce553cf5
KW
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
c1ec4bdd
KW
364#define EXACTF 43 /* 0x2b Like EXACT, but match
365 using /id rules; (string not
366 UTF-8, ASCII folded; non-ASCII
367 not) */
ce553cf5
KW
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
c1ec4bdd
KW
373#define EXACTFL 44 /* 0x2c Like EXACT, but match
374 using /il rules; (string not
375 likely to be folded) */
ce553cf5
KW
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
c1ec4bdd
KW
381#define EXACTFU 45 /* 0x2d Like EXACT, but match
382 using /iu rules; (string
383 folded) */
ce553cf5
KW
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
c1ec4bdd
KW
389#define EXACTFAA 46 /* 0x2e Like EXACT, but match
390 using /iaa rules; (string
391 folded except MICRO in non-UTF8
5f162c35 392 patterns; doesn't contain SHARP
c1ec4bdd
KW
393 S unless UTF-8; folded length
394 <= unfolded) */
ce553cf5
KW
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
f97d9711
KW
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
c1ec4bdd
KW
410#define EXACTFUP 48 /* 0x30 Like EXACT, but match
411 using /iu rules; (string not
412 UTF-8, folded except MICRO:
413 hence Problematic) */
f97d9711
KW
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 */
ce553cf5 418
f97d9711 419#define EXACTFLU8 49 /* 0x31 Like EXACTFU, but use /il,
ce553cf5 420 UTF-8, (string is folded, and
c1ec4bdd
KW
421 everything in it is above 255
422 */
f97d9711
KW
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 */
ce553cf5
KW
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
c1ec4bdd
KW
435#define LEXACT_REQ8 51 /* 0x33 Like LEXACT, but only
436 UTF-8 encoded targets can match
437 */
ce553cf5
KW
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
c1ec4bdd
KW
454 not UTF-8; compile-time only)
455 */
ce553cf5
KW
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
c1ec4bdd
KW
508#define STAR 61 /* 0x3d Match this (simple) thing
509 0 or more times. */
ce553cf5
KW
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
c1ec4bdd
KW
515#define PLUS 62 /* 0x3e Match this (simple) thing
516 1 or more times. */
ce553cf5
KW
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
c1ec4bdd
KW
536#define CURLYM 65 /* 0x41 Capture this
537 medium-complex thing {n,m}
538 times. */
ce553cf5
KW
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
c1ec4bdd
KW
551#define WHILEM 67 /* 0x43 Do curly processing and
552 see if rest matches. */
ce553cf5
KW
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
c1ec4bdd
KW
558#define OPEN 68 /* 0x44 Mark this point in input
559 as start of #n. */
ce553cf5
KW
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
c1ec4bdd
KW
565#define CLOSE 69 /* 0x45 Close corresponding OPEN
566 of #n. */
ce553cf5
KW
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
c1ec4bdd
KW
661#define BRANCHJ 83 /* 0x53 BRANCH with long offset.
662 */
ce553cf5
KW
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
c1ec4bdd
KW
769#define OPFAIL 98 /* 0x62 Same as (?!), but with
770 verb arg */
ce553cf5
KW
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
c1ec4bdd
KW
776#define ACCEPT 99 /* 0x63 Accepts the current
777 matched string, with verbar */
ce553cf5
KW
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
c1ec4bdd
KW
805#define SKIP 103 /* 0x67 On failure skip forward
806 (to the mark) before retrying
807 */
ce553cf5
KW
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
03363afd 854 /* ------------ States ------------- */
ce553cf5
KW
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
03363afd 1095
6bda09f9 1096/* PL_regkind[] What type of regop or state is this. */
d09b2d29
IZ
1097
1098#ifndef DOINIT
22c35a8c 1099EXTCONST U8 PL_regkind[];
d09b2d29 1100#else
22c35a8c 1101EXTCONST U8 PL_regkind[] = {
e2e6a0f1
YO
1102 END, /* END */
1103 END, /* SUCCEED */
e2e6a0f1 1104 BOL, /* SBOL */
d3d47aac 1105 BOL, /* MBOL */
e2e6a0f1 1106 EOL, /* SEOL */
d3d47aac
YO
1107 EOL, /* MEOL */
1108 EOL, /* EOS */
1109 GPOS, /* GPOS */
e2e6a0f1
YO
1110 BOUND, /* BOUND */
1111 BOUND, /* BOUNDL */
1e355c70 1112 BOUND, /* BOUNDU */
0c6e81eb 1113 BOUND, /* BOUNDA */
e2e6a0f1
YO
1114 NBOUND, /* NBOUND */
1115 NBOUND, /* NBOUNDL */
1e355c70 1116 NBOUND, /* NBOUNDU */
0c6e81eb 1117 NBOUND, /* NBOUNDA */
e2e6a0f1
YO
1118 REG_ANY, /* REG_ANY */
1119 REG_ANY, /* SANY */
e2e6a0f1 1120 ANYOF, /* ANYOF */
ac44c12e 1121 ANYOF, /* ANYOFD */
a4525e78 1122 ANYOF, /* ANYOFL */
3edce4f5 1123 ANYOF, /* ANYOFPOSIXL */
c316b824 1124 ANYOF, /* ANYOFH */
6966a05b 1125 ANYOF, /* ANYOFHb */
3146c00a 1126 ANYOF, /* ANYOFHr */
34924db0 1127 ANYOF, /* ANYOFHs */
13fcf652 1128 ANYOFR, /* ANYOFR */
2d5613be 1129 ANYOFR, /* ANYOFRb */
67a1b5f9 1130 ANYOFM, /* ANYOFM */
3db0bccc 1131 ANYOFM, /* NANYOFM */
3615ea58
KW
1132 POSIXD, /* POSIXD */
1133 POSIXD, /* POSIXL */
1134 POSIXD, /* POSIXU */
1135 POSIXD, /* POSIXA */
9e84774b
KW
1136 NPOSIXD, /* NPOSIXD */
1137 NPOSIXD, /* NPOSIXL */
1138 NPOSIXD, /* NPOSIXU */
1139 NPOSIXD, /* NPOSIXA */
e2e6a0f1
YO
1140 CLUMP, /* CLUMP */
1141 BRANCH, /* BRANCH */
e2e6a0f1 1142 EXACT, /* EXACT */
ae06e581 1143 EXACT, /* LEXACT */
a4525e78 1144 EXACT, /* EXACTL */
e2e6a0f1
YO
1145 EXACT, /* EXACTF */
1146 EXACT, /* EXACTFL */
01f98ec2 1147 EXACT, /* EXACTFU */
89829bb5 1148 EXACT, /* EXACTFAA */
f97d9711 1149 EXACT, /* EXACTFAA_NO_TRIE */
627a7895 1150 EXACT, /* EXACTFUP */
a4525e78 1151 EXACT, /* EXACTFLU8 */
3f2416ae
KW
1152 EXACT, /* EXACT_REQ8 */
1153 EXACT, /* LEXACT_REQ8 */
1154 EXACT, /* EXACTFU_REQ8 */
95fb0a6e 1155 EXACT, /* EXACTFU_S_EDGE */
7af55186
KW
1156 LNBREAK, /* LNBREAK */
1157 TRIE, /* TRIE */
1158 TRIE, /* TRIEC */
1159 TRIE, /* AHOCORASICK */
1160 TRIE, /* AHOCORASICKC */
e2e6a0f1
YO
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 */
07093db4
KW
1172 SROPEN, /* SROPEN */
1173 SRCLOSE, /* SRCLOSE */
e2e6a0f1
YO
1174 REF, /* REF */
1175 REF, /* REFF */
1176 REF, /* REFFL */
01f98ec2 1177 REF, /* REFFU */
781aab5c 1178 REF, /* REFFA */
016b7209
KW
1179 REF, /* REFN */
1180 REF, /* REFFN */
1181 REF, /* REFFLN */
1182 REF, /* REFFUN */
1183 REF, /* REFFAN */
d3d47aac
YO
1184 LONGJMP, /* LONGJMP */
1185 BRANCHJ, /* BRANCHJ */
e2e6a0f1
YO
1186 BRANCHJ, /* IFMATCH */
1187 BRANCHJ, /* UNLESSM */
1188 BRANCHJ, /* SUSPEND */
1189 BRANCHJ, /* IFTHEN */
1190 GROUPP, /* GROUPP */
e2e6a0f1
YO
1191 EVAL, /* EVAL */
1192 MINMOD, /* MINMOD */
1193 LOGICAL, /* LOGICAL */
1194 BRANCHJ, /* RENUM */
e2e6a0f1 1195 GOSUB, /* GOSUB */
016b7209 1196 GROUPPN, /* GROUPPN */
e2e6a0f1
YO
1197 INSUBP, /* INSUBP */
1198 DEFINEP, /* DEFINEP */
1199 ENDLIKE, /* ENDLIKE */
1200 ENDLIKE, /* OPFAIL */
1201 ENDLIKE, /* ACCEPT */
1202 VERB, /* VERB */
5d458dd8 1203 VERB, /* PRUNE */
e2e6a0f1 1204 VERB, /* MARKPOINT */
5d458dd8 1205 VERB, /* SKIP */
e2e6a0f1 1206 VERB, /* COMMIT */
5d458dd8 1207 VERB, /* CUTGROUP */
ee9b8eae 1208 KEEPS, /* KEEPS */
e2e6a0f1
YO
1209 NOTHING, /* OPTIMIZED */
1210 PSEUDO, /* PSEUDO */
86451f01 1211 REGEX_SET, /* REGEX_SET */
03363afd 1212 /* ------------ States ------------- */
e2e6a0f1
YO
1213 TRIE, /* TRIE_next */
1214 TRIE, /* TRIE_next_fail */
4ee16520
DM
1215 EVAL, /* EVAL_B */
1216 EVAL, /* EVAL_B_fail */
1217 EVAL, /* EVAL_postponed_AB */
1218 EVAL, /* EVAL_postponed_AB_fail */
e2e6a0f1
YO
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 */
e2e6a0f1
YO
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 */
5d458dd8
YO
1247 SKIP, /* SKIP_next */
1248 SKIP, /* SKIP_next_fail */
1249 CUTGROUP, /* CUTGROUP_next */
1250 CUTGROUP, /* CUTGROUP_next_fail */
ee9b8eae
YO
1251 KEEPS, /* KEEPS_next */
1252 KEEPS, /* KEEPS_next_fail */
d09b2d29
IZ
1253};
1254#endif
1255
f83e001e
YO
1256#ifdef REG_COMP_C
1257
6bda09f9 1258/* regarglen[] - How large is the argument part of the node (in regnodes) */
d09b2d29 1259
29de9391 1260static const U8 regarglen[] = {
03363afd
YO
1261 0, /* END */
1262 0, /* SUCCEED */
03363afd 1263 0, /* SBOL */
d3d47aac 1264 0, /* MBOL */
03363afd 1265 0, /* SEOL */
d3d47aac
YO
1266 0, /* MEOL */
1267 0, /* EOS */
1268 0, /* GPOS */
03363afd
YO
1269 0, /* BOUND */
1270 0, /* BOUNDL */
1e355c70 1271 0, /* BOUNDU */
0c6e81eb 1272 0, /* BOUNDA */
03363afd
YO
1273 0, /* NBOUND */
1274 0, /* NBOUNDL */
1e355c70 1275 0, /* NBOUNDU */
0c6e81eb 1276 0, /* NBOUNDA */
03363afd
YO
1277 0, /* REG_ANY */
1278 0, /* SANY */
46fc0c43
KW
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 */
c316b824 1283 EXTRA_SIZE(struct regnode_1), /* ANYOFH */
6966a05b 1284 EXTRA_SIZE(struct regnode_1), /* ANYOFHb */
3146c00a 1285 EXTRA_SIZE(struct regnode_1), /* ANYOFHr */
53d42e43 1286 EXTRA_SIZE(struct regnode_1), /* ANYOFHs */
13fcf652 1287 EXTRA_SIZE(struct regnode_1), /* ANYOFR */
2d5613be 1288 EXTRA_SIZE(struct regnode_1), /* ANYOFRb */
67a1b5f9 1289 EXTRA_SIZE(struct regnode_1), /* ANYOFM */
3db0bccc 1290 EXTRA_SIZE(struct regnode_1), /* NANYOFM */
3615ea58
KW
1291 0, /* POSIXD */
1292 0, /* POSIXL */
1293 0, /* POSIXU */
1294 0, /* POSIXA */
1295 0, /* NPOSIXD */
1296 0, /* NPOSIXL */
1297 0, /* NPOSIXU */
1298 0, /* NPOSIXA */
03363afd
YO
1299 0, /* CLUMP */
1300 0, /* BRANCH */
03363afd 1301 0, /* EXACT */
ae06e581 1302 EXTRA_SIZE(struct regnode_1), /* LEXACT */
a4525e78 1303 0, /* EXACTL */
03363afd
YO
1304 0, /* EXACTF */
1305 0, /* EXACTFL */
01f98ec2 1306 0, /* EXACTFU */
89829bb5 1307 0, /* EXACTFAA */
f97d9711 1308 0, /* EXACTFAA_NO_TRIE */
627a7895 1309 0, /* EXACTFUP */
a4525e78 1310 0, /* EXACTFLU8 */
3f2416ae
KW
1311 0, /* EXACT_REQ8 */
1312 EXTRA_SIZE(struct regnode_1), /* LEXACT_REQ8 */
1313 0, /* EXACTFU_REQ8 */
95fb0a6e 1314 0, /* EXACTFU_S_EDGE */
7af55186
KW
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 */
03363afd
YO
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 */
07093db4
KW
1331 0, /* SROPEN */
1332 0, /* SRCLOSE */
03363afd
YO
1333 EXTRA_SIZE(struct regnode_1), /* REF */
1334 EXTRA_SIZE(struct regnode_1), /* REFF */
1335 EXTRA_SIZE(struct regnode_1), /* REFFL */
01f98ec2 1336 EXTRA_SIZE(struct regnode_1), /* REFFU */
781aab5c 1337 EXTRA_SIZE(struct regnode_1), /* REFFA */
016b7209
KW
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 */
d3d47aac
YO
1343 EXTRA_SIZE(struct regnode_1), /* LONGJMP */
1344 EXTRA_SIZE(struct regnode_1), /* BRANCHJ */
03363afd
YO
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 */
13f27704 1350 EXTRA_SIZE(struct regnode_2L), /* EVAL */
03363afd
YO
1351 0, /* MINMOD */
1352 0, /* LOGICAL */
1353 EXTRA_SIZE(struct regnode_1), /* RENUM */
1a147d38 1354 EXTRA_SIZE(struct regnode_2L), /* GOSUB */
016b7209 1355 EXTRA_SIZE(struct regnode_1), /* GROUPPN */
1a147d38 1356 EXTRA_SIZE(struct regnode_1), /* INSUBP */
0a4db386 1357 EXTRA_SIZE(struct regnode_1), /* DEFINEP */
e2e6a0f1 1358 0, /* ENDLIKE */
fee50582
YO
1359 EXTRA_SIZE(struct regnode_1), /* OPFAIL */
1360 EXTRA_SIZE(struct regnode_2L), /* ACCEPT */
20832bc5 1361 EXTRA_SIZE(struct regnode_1), /* VERB */
5d458dd8 1362 EXTRA_SIZE(struct regnode_1), /* PRUNE */
e2e6a0f1 1363 EXTRA_SIZE(struct regnode_1), /* MARKPOINT */
5d458dd8 1364 EXTRA_SIZE(struct regnode_1), /* SKIP */
e2e6a0f1 1365 EXTRA_SIZE(struct regnode_1), /* COMMIT */
5d458dd8 1366 EXTRA_SIZE(struct regnode_1), /* CUTGROUP */
ee9b8eae 1367 0, /* KEEPS */
03363afd
YO
1368 0, /* OPTIMIZED */
1369 0, /* PSEUDO */
86451f01 1370 EXTRA_SIZE(struct regnode_p), /* REGEX_SET */
d09b2d29
IZ
1371};
1372
6bda09f9
YO
1373/* reg_off_by_arg[] - Which argument holds the offset to the next node */
1374
29de9391 1375static const char reg_off_by_arg[] = {
03363afd
YO
1376 0, /* END */
1377 0, /* SUCCEED */
03363afd 1378 0, /* SBOL */
d3d47aac 1379 0, /* MBOL */
03363afd 1380 0, /* SEOL */
d3d47aac
YO
1381 0, /* MEOL */
1382 0, /* EOS */
1383 0, /* GPOS */
03363afd
YO
1384 0, /* BOUND */
1385 0, /* BOUNDL */
1e355c70 1386 0, /* BOUNDU */
0c6e81eb 1387 0, /* BOUNDA */
03363afd
YO
1388 0, /* NBOUND */
1389 0, /* NBOUNDL */
1e355c70 1390 0, /* NBOUNDU */
0c6e81eb 1391 0, /* NBOUNDA */
03363afd
YO
1392 0, /* REG_ANY */
1393 0, /* SANY */
03363afd 1394 0, /* ANYOF */
ac44c12e 1395 0, /* ANYOFD */
a4525e78 1396 0, /* ANYOFL */
3edce4f5 1397 0, /* ANYOFPOSIXL */
c316b824 1398 0, /* ANYOFH */
6966a05b 1399 0, /* ANYOFHb */
3146c00a 1400 0, /* ANYOFHr */
34924db0 1401 0, /* ANYOFHs */
13fcf652 1402 0, /* ANYOFR */
2d5613be 1403 0, /* ANYOFRb */
67a1b5f9 1404 0, /* ANYOFM */
3db0bccc 1405 0, /* NANYOFM */
3615ea58
KW
1406 0, /* POSIXD */
1407 0, /* POSIXL */
1408 0, /* POSIXU */
1409 0, /* POSIXA */
1410 0, /* NPOSIXD */
1411 0, /* NPOSIXL */
1412 0, /* NPOSIXU */
1413 0, /* NPOSIXA */
03363afd
YO
1414 0, /* CLUMP */
1415 0, /* BRANCH */
03363afd 1416 0, /* EXACT */
ae06e581 1417 0, /* LEXACT */
a4525e78 1418 0, /* EXACTL */
03363afd
YO
1419 0, /* EXACTF */
1420 0, /* EXACTFL */
01f98ec2 1421 0, /* EXACTFU */
89829bb5 1422 0, /* EXACTFAA */
f97d9711 1423 0, /* EXACTFAA_NO_TRIE */
627a7895 1424 0, /* EXACTFUP */
a4525e78 1425 0, /* EXACTFLU8 */
3f2416ae
KW
1426 0, /* EXACT_REQ8 */
1427 0, /* LEXACT_REQ8 */
1428 0, /* EXACTFU_REQ8 */
95fb0a6e 1429 0, /* EXACTFU_S_EDGE */
7af55186
KW
1430 0, /* LNBREAK */
1431 0, /* TRIE */
1432 0, /* TRIEC */
1433 0, /* AHOCORASICK */
1434 0, /* AHOCORASICKC */
03363afd
YO
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 */
07093db4
KW
1446 0, /* SROPEN */
1447 0, /* SRCLOSE */
03363afd
YO
1448 0, /* REF */
1449 0, /* REFF */
1450 0, /* REFFL */
01f98ec2 1451 0, /* REFFU */
781aab5c 1452 0, /* REFFA */
016b7209
KW
1453 0, /* REFN */
1454 0, /* REFFN */
1455 0, /* REFFLN */
1456 0, /* REFFUN */
1457 0, /* REFFAN */
d3d47aac
YO
1458 1, /* LONGJMP */
1459 1, /* BRANCHJ */
46167d76
KW
1460 1, /* IFMATCH */
1461 1, /* UNLESSM */
03363afd
YO
1462 1, /* SUSPEND */
1463 1, /* IFTHEN */
1464 0, /* GROUPP */
03363afd
YO
1465 0, /* EVAL */
1466 0, /* MINMOD */
1467 0, /* LOGICAL */
1468 1, /* RENUM */
1a147d38 1469 0, /* GOSUB */
016b7209 1470 0, /* GROUPPN */
1a147d38 1471 0, /* INSUBP */
0a4db386 1472 0, /* DEFINEP */
e2e6a0f1 1473 0, /* ENDLIKE */
7f69552c 1474 0, /* OPFAIL */
e2e6a0f1
YO
1475 0, /* ACCEPT */
1476 0, /* VERB */
5d458dd8 1477 0, /* PRUNE */
e2e6a0f1 1478 0, /* MARKPOINT */
5d458dd8 1479 0, /* SKIP */
e2e6a0f1 1480 0, /* COMMIT */
5d458dd8 1481 0, /* CUTGROUP */
ee9b8eae 1482 0, /* KEEPS */
03363afd
YO
1483 0, /* OPTIMIZED */
1484 0, /* PSEUDO */
86451f01 1485 0, /* REGEX_SET */
d09b2d29 1486};
885f9e59 1487
13d6edb4
NC
1488#endif /* REG_COMP_C */
1489
f83e001e 1490
6bda09f9
YO
1491/* reg_name[] - Opcode/state names in string form, for debugging */
1492
22429478 1493#ifndef DOINIT
13d6edb4 1494EXTCONST char * PL_reg_name[];
22429478 1495#else
4764e399 1496EXTCONST char * const PL_reg_name[] = {
03363afd
YO
1497 "END", /* 0000 */
1498 "SUCCEED", /* 0x01 */
d3d47aac 1499 "SBOL", /* 0x02 */
03363afd 1500 "MBOL", /* 0x03 */
d3d47aac
YO
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 */
33c28ab2 1515 "ANYOF", /* 0x12 */
ac44c12e
KW
1516 "ANYOFD", /* 0x13 */
1517 "ANYOFL", /* 0x14 */
3edce4f5 1518 "ANYOFPOSIXL", /* 0x15 */
c316b824 1519 "ANYOFH", /* 0x16 */
6966a05b 1520 "ANYOFHb", /* 0x17 */
3146c00a 1521 "ANYOFHr", /* 0x18 */
34924db0
KW
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 */
f97d9711
KW
1544 "EXACTFAA_NO_TRIE", /* 0x2f */
1545 "EXACTFUP", /* 0x30 */
1546 "EXACTFLU8", /* 0x31 */
34924db0
KW
1547 "EXACT_REQ8", /* 0x32 */
1548 "LEXACT_REQ8", /* 0x33 */
1549 "EXACTFU_REQ8", /* 0x34 */
1550 "EXACTFU_S_EDGE", /* 0x35 */
7af55186
KW
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 */
34924db0
KW
1604 "OPTIMIZED", /* 0x6b */
1605 "PSEUDO", /* 0x6c */
86451f01 1606 "REGEX_SET", /* 0x6d */
03363afd 1607 /* ------------ States ------------- */
24b23f37
YO
1608 "TRIE_next", /* REGNODE_MAX +0x01 */
1609 "TRIE_next_fail", /* REGNODE_MAX +0x02 */
4ee16520
DM
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 */
21cbe009
DM
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 */
885f9e59 1648};
22429478 1649#endif /* DOINIT */
d09b2d29 1650
f7819f85
A
1651/* PL_reg_extflags_name[] - Opcode/state names in string form, for debugging */
1652
1653#ifndef DOINIT
1654EXTCONST char * PL_reg_extflags_name[];
1655#else
1656EXTCONST char * const PL_reg_extflags_name[] = {
d262c0c7 1657 /* Bits in extflags defined: 11111111111111110000111111111111 */
52d81aa8
NC
1658 "MULTILINE", /* 0x00000001 */
1659 "SINGLELINE", /* 0x00000002 */
1660 "FOLD", /* 0x00000004 */
1661 "EXTENDED", /* 0x00000008 */
334afb3e 1662 "EXTENDED_MORE", /* 0x00000010 */
e3b64d84
KW
1663 "NOCAPTURE", /* 0x00000020 */
1664 "KEEPCOPY", /* 0x00000040 */
1665 "CHARSET0", /* 0x00000080 : "CHARSET" - 0x00000380 */
1666 "CHARSET1", /* 0x00000100 : "CHARSET" - 0x00000380 */
1667 "CHARSET2", /* 0x00000200 : "CHARSET" - 0x00000380 */
d262c0c7
KW
1668 "STRICT", /* 0x00000400 */
1669 "SPLIT", /* 0x00000800 */
1d32d911
KW
1670 "UNUSED_BIT_12", /* 0x00001000 */
1671 "UNUSED_BIT_13", /* 0x00002000 */
1672 "UNUSED_BIT_14", /* 0x00004000 */
a3b51d37
KW
1673 "UNUSED_BIT_15", /* 0x00008000 */
1674 "NO_INPLACE_SUBST", /* 0x00010000 */
1675 "EVAL_SEEN", /* 0x00020000 */
ee273784 1676 "UNBOUNDED_QUANTIFIER_SEEN",/* 0x00040000 */
e795e964 1677 "CHECK_ALL", /* 0x00080000 */
52d81aa8
NC
1678 "MATCH_UTF8", /* 0x00100000 */
1679 "USE_INTUIT_NOML", /* 0x00200000 */
1680 "USE_INTUIT_ML", /* 0x00400000 */
1681 "INTUIT_TAIL", /* 0x00800000 */
a3b51d37 1682 "IS_ANCHORED", /* 0x01000000 */
52d81aa8
NC
1683 "COPY_DONE", /* 0x02000000 */
1684 "TAINTED_SEEN", /* 0x04000000 */
1685 "TAINTED", /* 0x08000000 */
1686 "START_ONLY", /* 0x10000000 */
dbc200c5 1687 "SKIPWHITE", /* 0x20000000 */
52d81aa8
NC
1688 "WHITE", /* 0x40000000 */
1689 "NULL", /* 0x80000000 */
f7819f85
A
1690};
1691#endif /* DOINIT */
1692
adc2d0c9
JH
1693#ifdef DEBUGGING
1694# define REG_EXTFLAGS_NAME_SIZE 32
1695#endif
1696
337ff307
YO
1697/* PL_reg_intflags_name[] - Opcode/state names in string form, for debugging */
1698
1699#ifndef DOINIT
1700EXTCONST char * PL_reg_intflags_name[];
1701#else
1702EXTCONST char * const PL_reg_intflags_name[] = {
b8f6efdd
YO
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'" */
58430ea8 1709 "NOSCAN", /* 0x00000040 - PREGf_NOSCAN */
58430ea8
YO
1710 "GPOS_SEEN", /* 0x00000100 - PREGf_GPOS_SEEN */
1711 "GPOS_FLOAT", /* 0x00000200 - PREGf_GPOS_FLOAT */
d3d47aac
YO
1712 "ANCH_MBOL", /* 0x00000400 - PREGf_ANCH_MBOL */
1713 "ANCH_SBOL", /* 0x00000800 - PREGf_ANCH_SBOL */
1714 "ANCH_GPOS", /* 0x00001000 - PREGf_ANCH_GPOS */
d5a00e4a 1715 "RECURSE_SEEN", /* 0x00002000 - PREGf_RECURSE_SEEN */
337ff307
YO
1716};
1717#endif /* DOINIT */
1718
adc2d0c9 1719#ifdef DEBUGGING
d5a00e4a 1720# define REG_INTFLAGS_NAME_SIZE 13
adc2d0c9
JH
1721#endif
1722
f9ef50a7 1723/* The following have no fixed length. U8 so we can do strchr() on it. */
ded4dd2a 1724#define REGNODE_VARIES(node) (PL_varies_bitmask[(node) >> 3] & (1 << ((node) & 7)))
e52fc539 1725
f9ef50a7 1726#ifndef DOINIT
ded4dd2a 1727EXTCONST U8 PL_varies[] __attribute__deprecated__;
f9ef50a7 1728#else
ded4dd2a 1729EXTCONST U8 PL_varies[] __attribute__deprecated__ = {
62e6ef33 1730 CLUMP, BRANCH, STAR, PLUS, CURLY, CURLYN, CURLYM, CURLYX, WHILEM, REF,
016b7209 1731 REFF, REFFL, REFFU, REFFA, REFN, REFFN, REFFLN, REFFUN, REFFAN,
d3d47aac 1732 BRANCHJ, SUSPEND, IFTHEN,
f9ef50a7
NC
1733 0
1734};
1735#endif /* DOINIT */
1736
ded4dd2a
NC
1737#ifndef DOINIT
1738EXTCONST U8 PL_varies_bitmask[];
1739#else
1740EXTCONST U8 PL_varies_bitmask[] = {
7af55186 1741 0x00, 0x00, 0x00, 0x00, 0xC0, 0x00, 0x00, 0xE0, 0x0F, 0xFF, 0xCB, 0x00, 0x00, 0x00
ded4dd2a
NC
1742};
1743#endif /* DOINIT */
1744
f9ef50a7
NC
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".) */
ded4dd2a 1747#define REGNODE_SIMPLE(node) (PL_simple_bitmask[(node) >> 3] & (1 << ((node) & 7)))
e52fc539 1748
f9ef50a7 1749#ifndef DOINIT
ded4dd2a 1750EXTCONST U8 PL_simple[] __attribute__deprecated__;
f9ef50a7 1751#else
ded4dd2a 1752EXTCONST U8 PL_simple[] __attribute__deprecated__ = {
6966a05b 1753 REG_ANY, SANY, ANYOF, ANYOFD, ANYOFL, ANYOFPOSIXL, ANYOFH, ANYOFHb,
34924db0 1754 ANYOFHr, ANYOFHs, ANYOFR, ANYOFRb, ANYOFM, NANYOFM, POSIXD, POSIXL,
86451f01 1755 POSIXU, POSIXA, NPOSIXD, NPOSIXL, NPOSIXU, NPOSIXA, REGEX_SET,
f9ef50a7
NC
1756 0
1757};
1758#endif /* DOINIT */
1759
ded4dd2a
NC
1760#ifndef DOINIT
1761EXTCONST U8 PL_simple_bitmask[];
1762#else
1763EXTCONST U8 PL_simple_bitmask[] = {
86451f01 1764 0x00, 0x00, 0xFF, 0xFF, 0x3F, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x20
ded4dd2a
NC
1765};
1766#endif /* DOINIT */
1767
938090ac
KW
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
1775EXTCONST U32 PL_EXACTFish_bitmask;
1776EXTCONST U32 PL_EXACT_REQ8_bitmask;
1777#else
1778EXTCONST U32 PL_EXACTFish_bitmask = 0x33F8;
1779EXTCONST U32 PL_EXACT_REQ8_bitmask = 0x1E00;
1780#endif /* DOINIT */
1781
33b57041
KW
1782#endif /* defined(PERL_CORE) || defined(PERL_EXT_RE_BUILD) */
1783
37442d52 1784/* ex: set ro: */