mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

regcomp.h - get rid of EXTRA_STEP defines

Browse Source 
They are unused these days.
This commit is contained in:
Yves Orton 2023-01-09 22:10:42 +01:00
parent 0b5fb5dd68
commit b1ad323637
2 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
regcomp.c
View File

@ -12712,7 +12712,6 @@ S_reginsert(pTHX_ RExC_state_t *pRExC_state, const U8 op,
PERL_ARGS_ASSERT_REGINSERT;
PERL_UNUSED_CONTEXT;
PERL_UNUSED_ARG(depth);
/* (REGNODE_TYPE((U8)op) == CURLY ? EXTRA_STEP_2ARGS : 0); */
DEBUG_PARSE_FMT("inst"," - %s", REGNODE_NAME(op));
assert(!RExC_study_started); /* I believe we should never use reginsert once we have started
studying. If this is wrong then we need to adjust RExC_recurse

1
regcomp.h
View File

@ -442,7 +442,6 @@ struct regnode_ssc {
/* These should no longer be used directly in most cases. Please use
* the REGNODE_AFTER() macros instead. */
#define NODE_STEP_REGNODE 1 /* sizeof(regnode)/sizeof(regnode) */
#define EXTRA_STEP_2ARGS EXTRA_SIZE(struct regnode_2)
/* Core macros for computing "the regnode after this one". See also
* Perl_regnode_after() in reginline.h