In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/17d6506dce3aada0275a75480d0883f310e2f96f?hp=372b87083a0858da5b4ebb8cbca41e6b734a4eff>
- Log ----------------------------------------------------------------- commit 17d6506dce3aada0275a75480d0883f310e2f96f Author: Daniel Dragan <[email protected]> Date: Tue Jan 20 01:05:38 2015 -0500 factor out a dXSTARG in B:: VC 2003 -O1 placed 2 copies of dXSTARG/sv_newmortal() in machine code, by moving to before the branch, only 1 copy will now exist ----------------------------------------------------------------------- Summary of changes: ext/B/B.xs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/ext/B/B.xs b/ext/B/B.xs index 735e2c5..703efc0 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -1736,13 +1736,13 @@ REGEX(sv) PUSHs(newSVpvn_flags(RX_PRECOMP(sv), RX_PRELEN(sv), SVs_TEMP)); } else if (ix == 2) { PUSHs(make_sv_object(aTHX_ (SV *)ReANY(sv)->qr_anoncv)); - } else if (ix) { - dXSTARG; - PUSHu(RX_COMPFLAGS(sv)); } else { dXSTARG; + if (ix) + PUSHu(RX_COMPFLAGS(sv)); + else /* FIXME - can we code this method more efficiently? */ - PUSHi(PTR2IV(sv)); + PUSHi(PTR2IV(sv)); } #endif -- Perl5 Master Repository
