Change 34464 by [EMAIL PROTECTED] on 2008/10/05 21:51:54
Avoid allocating 1 extra regnode when duplicating a regexp.
Affected files ...
... //depot/perl/regcomp.c#659 edit
Differences ...
==== //depot/perl/regcomp.c#659 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c#658~34381~ 2008-09-20 04:38:46.000000000 -0700
+++ perl/regcomp.c 2008-10-05 14:51:54.000000000 -0700
@@ -9625,7 +9625,7 @@
npar = r->nparens+1;
len = ProgLen(ri);
- Newxc(reti, sizeof(regexp_internal) + (len+1)*sizeof(regnode), char,
regexp_internal);
+ Newxc(reti, sizeof(regexp_internal) + len*sizeof(regnode), char,
regexp_internal);
Copy(ri->program, reti->program, len+1, regnode);
End of Patch.
