diff options
author | Steffen Mueller <smueller@cpan.org> | 2013-07-02 07:25:45 +0200 |
---|---|---|
committer | Steffen Mueller <smueller@cpan.org> | 2013-07-02 07:26:21 +0200 |
commit | c7e88ff3e854ab874fbb980fa25d39d829f717c2 (patch) | |
tree | c1d24715f43c70fd5c2e194895e23165a57754e2 /pp.c | |
parent | 5b67adb87165fc2a1a93bd8079f144d6390c23c3 (diff) | |
download | perl-c7e88ff3e854ab874fbb980fa25d39d829f717c2.tar.gz |
Branch predictor hints: exists is mostly run on hashes
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -4666,7 +4666,7 @@ PP(pp_exists) SV *tmpsv; HV *hv; - if (PL_op->op_private & OPpEXISTS_SUB) { + if (UNLIKELY( PL_op->op_private & OPpEXISTS_SUB )) { GV *gv; SV * const sv = POPs; CV * const cv = sv_2cv(sv, &hv, &gv, 0); @@ -4678,7 +4678,7 @@ PP(pp_exists) } tmpsv = POPs; hv = MUTABLE_HV(POPs); - if (SvTYPE(hv) == SVt_PVHV) { + if (LIKELY( SvTYPE(hv) == SVt_PVHV )) { if (hv_exists_ent(hv, tmpsv, 0)) RETPUSHYES; } |