diff options
author | Hugo van der Sanden <hv@crypt.org> | 2010-04-15 13:05:38 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2010-04-15 13:05:38 +0100 |
commit | 339aac22c2768aa840858c042e33fbf04d4f51ed (patch) | |
tree | dda1cd464cb11bcdc83fa42e717958fdc03b4765 /run.c | |
parent | f410a2119920dd04690025a349e79575cfb9c972 (diff) | |
download | perl-339aac22c2768aa840858c042e33fbf04d4f51ed.tar.gz |
Avoid redundant reload of PL_op in the runloop.
(gcc, at least, generates suboptimal code without this dirty great hint)
Diffstat (limited to 'run.c')
-rw-r--r-- | run.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -37,7 +37,8 @@ int Perl_runops_standard(pTHX) { dVAR; - while ((PL_op = CALL_FPTR(PL_op->op_ppaddr)(aTHX))) { + register OP *op = PL_op; + while ((PL_op = op = CALL_FPTR(op->op_ppaddr)(aTHX))) { } TAINT_NOT; |