diff options
| author | David Mitchell <davem@iabyn.com> | 2013-05-31 22:24:54 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2013-06-02 22:28:54 +0100 |
| commit | 6d59b6464a160af2e5775a8f6abef1dcad33d7f1 (patch) | |
| tree | 72ff86d473f76dc4d21725c7acd40f355f1a6365 /regexec.c | |
| parent | f65e70f560c80556143956eb9980619a9dfbe2f4 (diff) | |
| download | perl-6d59b6464a160af2e5775a8f6abef1dcad33d7f1.tar.gz | |
Eliminate PL_reg_starttry
Its only used for printing debugging messages, and its value is already
available as the startpos local var in S_regmatch().
Whoo hoo! This var was the last field within the PL_reg_state global state
struct.
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 9 |
1 files changed, 3 insertions, 6 deletions
@@ -1351,7 +1351,7 @@ if ((reginfo->intuit || regtry(reginfo, &s))) \ #define DUMP_EXEC_POS(li,s,doutf8) \ dump_exec_pos(li,s,(reginfo->strend),(reginfo->strbeg), \ - (PL_reg_starttry),doutf8) + startpos, doutf8) #define UTF8_NOLOAD(TEST_NON_UTF8, IF_SUCCESS, IF_FAIL) \ @@ -2849,9 +2849,6 @@ S_regtry(pTHX_ regmatch_info *reginfo, char **startposp) reginfo->cutpoint=NULL; -#ifdef DEBUGGING - PL_reg_starttry = *startposp; -#endif prog->offs[0].start = *startposp - reginfo->strbeg; prog->lastparen = 0; prog->lastcloseparen = 0; @@ -6249,8 +6246,8 @@ NULL DEBUG_EXECUTE_r(PerlIO_printf(Perl_debug_log, "%sMatch possible, but length=%ld is smaller than requested=%ld, failing!%s\n", PL_colors[4], - (long)(locinput - PL_reg_starttry), - (long)(reginfo->till - PL_reg_starttry), + (long)(locinput - startpos), + (long)(reginfo->till - startpos), PL_colors[5])); sayNO_SILENT; /* Cannot match: too short. */ |