Change 11437 by jhi@alpha on 2001/07/22 14:39:07
Subject: regexec.c #define cleanup
From: Mark-Jason Dominus <[EMAIL PROTECTED]>
Date: Sat, 21 Jul 2001 18:33:25 -0400
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/regexec.c#175 edit
Differences ...
==== //depot/perl/regexec.c#175 (text) ====
Index: perl/regexec.c
--- perl/regexec.c.~1~ Sun Jul 22 08:45:06 2001
+++ perl/regexec.c Sun Jul 22 08:45:06 2001
@@ -1957,6 +1957,16 @@
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 @@
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];
End of Patch.
