summaryrefslogtreecommitdiff
path: root/run.c
diff options
context:
space:
mode:
authorHugo van der Sanden <hv@crypt.org>2010-04-15 13:05:38 +0100
committerNicholas Clark <nick@ccl4.org>2010-04-15 13:05:38 +0100
commit339aac22c2768aa840858c042e33fbf04d4f51ed (patch)
treedda1cd464cb11bcdc83fa42e717958fdc03b4765 /run.c
parentf410a2119920dd04690025a349e79575cfb9c972 (diff)
downloadperl-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.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/run.c b/run.c
index 20c711ae3a..eb465da57c 100644
--- a/run.c
+++ b/run.c
@@ -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;