Skip to content

Commit b6d9446

Browse files
committed
Create new PUSHSTACKi for regcomp.c
See previous commit.
1 parent ec834f4 commit b6d9446

File tree

2 files changed

+4
-3
lines changed

2 files changed

+4
-3
lines changed

cop.h

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1032,6 +1032,7 @@ L<perlcall>.
10321032
#define PERLSI_DIEHOOK 8
10331033
#define PERLSI_REQUIRE 9
10341034
#define PERLSI_MULTICALL 10
1035+
#define PERLSI_REGCOMP 11
10351036

10361037
struct stackinfo {
10371038
AV * si_stack; /* stack for current runlevel */

regcomp.c

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -23933,7 +23933,7 @@ S_parse_uniprop_string(pTHX_
2393323933
"panic: Can't find '_charnames::_loose_regcomp_lookup");
2393423934
}
2393523935

23936-
PUSHSTACKi(PERLSI_OVERLOAD);
23936+
PUSHSTACKi(PERLSI_REGCOMP);
2393723937
ENTER ;
2393823938
SAVETMPS;
2393923939
save_re_context();
@@ -24373,7 +24373,7 @@ S_parse_uniprop_string(pTHX_
2437324373
* for this property in the hash. So we have the go ahead to
2437424374
* expand the definition ourselves. */
2437524375

24376-
PUSHSTACKi(PERLSI_MAGIC);
24376+
PUSHSTACKi(PERLSI_REGCOMP);
2437724377
ENTER;
2437824378

2437924379
/* Create a temporary placeholder in the hash to detect recursion
@@ -24923,7 +24923,7 @@ S_handle_names_wildcard(pTHX_ const char * wname, /* wildcard name to match */
2492324923
}
2492424924

2492524925
/* Get the charnames data */
24926-
PUSHSTACKi(PERLSI_OVERLOAD);
24926+
PUSHSTACKi(PERLSI_REGCOMP);
2492724927
ENTER ;
2492824928
SAVETMPS;
2492924929
save_re_context();

0 commit comments

Comments
 (0)