[perl #130643] run loop optimization

On Wed, 25 Jan 2017 06:23:26 -0800, hv wrote:
> So I'm not sure what the best state for the runloop would be right
> now,
> but I suspect we should just remove the extra variable:
> 
> --- a/run.c
> +++ b/run.c
> @@ -36,10 +36,9 @@
>  int
>  Perl_runops_standard(pTHX)
>  {
> -    OP *op = PL_op;
> -    PERL_DTRACE_PROBE_OP(op);
> -    while ((PL_op = op = op->op_ppaddr(aTHX))) {
> -        PERL_DTRACE_PROBE_OP(op);
> +    PERL_DTRACE_PROBE_OP(PL_op);
> +    while ((PL_op = PL_op->op_ppaddr(aTHX))) {
> +        PERL_DTRACE_PROBE_OP(PL_op);
>      }
>      PERL_ASYNC_CHECK();

I've made a branch hv/runloop with this to make it easier for people to experiment with.

Hugo

---
via perlbug:  queue: perl5 status: new
https://rt.perl.org/Ticket/Display.html?id=130643

• [perl #130643] run loop optimization by Hugo van der Sanden via RT
• [perl #130643] run loop optimization by Hugo van der Sanden