Change 27700 by rgs@stencil on 2006/04/03 09:07:20
Subject: [PATCH] Removed unused code in regexec.c
From: andy (AT) petdance (DOT) com (Andy Lester)
Date: Mon, 3 Apr 2006 00:00:50 -0500
Message-ID: <20060403050050.GA19055 (AT) petdance (DOT) com>
Affected files
//depot/perl/regexec.c#392 edit
Differences
//depot/perl/regexec.c#392 (text)
Index: perl/regexec.c
perl/regexec.c#391~27694~2006-04-02 18:31:12.000000000 -0700
perl/regexec.c2006-04-03 02:07:20.000000000 -0700
@@ -4556,10 +4556,9 @@
/* free all slabs above current one */
if (orig_slab->next) {
-regmatch_slab *osl, *sl = orig_slab->next;
+regmatch_slab *sl = orig_slab->next;
orig_slab->next = NULL;
while (sl) {
- osl = sl;
sl = sl->next;
}
}
@@ -4590,7 +4589,7 @@
if (max == REG_INFTY)
max = I32_MAX;
else if (max < loceol - scan)
- loceol = scan + max;
+loceol = scan + max;
switch (P(p)) {
case REG_ANY:
if (do_utf8) {
End of Patch.