Change 32939 by [EMAIL PROTECTED] on 2008/01/10 22:06:53
It seems that you don't need to reference count PL_reg_curpm without
ithreads, so don't waste time doing it there.
Affected files ...
... //depot/perl/regexec.c#568 edit
Differences ...
==== //depot/perl/regexec.c#568 (text) ====
Index: perl/regexec.c
--- perl/regexec.c#567~32938~ 2008-01-10 13:16:01.000000000 -0800
+++ perl/regexec.c 2008-01-10 14:06:53.000000000 -0800
@@ -2264,10 +2264,15 @@
}
#endif
}
+#ifdef USE_ITHREADS
+ /* It seems that non-ithreads works both with and without this code.
+ So for efficiency reasons it seems best not to have the code
+ compiled when it is not needed. */
/* This is safe against NULLs: */
ReREFCNT_dec(PM_GETRE(PL_reg_curpm));
/* PM_reg_curpm owns a reference to this regexp. */
ReREFCNT_inc(rx);
+#endif
PM_SETRE(PL_reg_curpm, rx);
PL_reg_oldcurpm = PL_curpm;
PL_curpm = PL_reg_curpm;
End of Patch.
