diff options
| author | Mark-Jason Dominus <mjd@plover.com> | 2001-07-21 14:33:25 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-22 14:39:07 +0000 |
| commit | 8ba1375edf08754c30bc57687bddebe6fbbb21fa (patch) | |
| tree | 03a50286b1ec3be99829e9c9bcec5defd94a754f /regexec.c | |
| parent | 7054c437fe115078675d7707454dda4600a840da (diff) | |
| download | perl-8ba1375edf08754c30bc57687bddebe6fbbb21fa.tar.gz | |
regexec.c #define cleanup
Message-ID: <20010721223325.3069.qmail@plover.com>
p4raw-id: //depot/perl@11437
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 30 |
1 files changed, 11 insertions, 19 deletions
@@ -1957,6 +1957,16 @@ typedef union re_unwind_t { re_unwind_branch_t branch; } re_unwind_t; +#define sayYES goto yes +#define sayNO goto no +#define sayYES_FINAL goto yes_final +#define sayYES_LOUD goto yes_loud +#define sayNO_FINAL goto no_final +#define sayNO_SILENT goto do_no +#define saySAME(x) if (x) goto yes; else goto no + +#define REPORT_CODE_OFF 24 + /* - regmatch - main matching routine * @@ -1999,25 +2009,7 @@ S_regmatch(pTHX_ regnode *prog) nextchr = UCHARAT(locinput); scan = prog; while (scan != NULL) { -#define sayNO_L (logical ? (logical = 0, sw = 0, goto cont) : sayNO) -#if 1 -# define sayYES goto yes -# define sayNO goto no -# define sayYES_FINAL goto yes_final -# define sayYES_LOUD goto yes_loud -# define sayNO_FINAL goto no_final -# define sayNO_SILENT goto do_no -# define saySAME(x) if (x) goto yes; else goto no -# define REPORT_CODE_OFF 24 -#else -# define sayYES return 1 -# define sayNO return 0 -# define sayYES_FINAL return 1 -# define sayYES_LOUD return 1 -# define sayNO_FINAL return 0 -# define sayNO_SILENT return 0 -# define saySAME(x) return x -#endif + DEBUG_r( { SV *prop = sv_newmortal(); int docolor = *PL_colors[0]; |