summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorSteffen Mueller <smueller@cpan.org>2013-07-02 07:25:45 +0200
committerSteffen Mueller <smueller@cpan.org>2013-07-02 07:26:21 +0200
commitc7e88ff3e854ab874fbb980fa25d39d829f717c2 (patch)
treec1d24715f43c70fd5c2e194895e23165a57754e2 /pp.c
parent5b67adb87165fc2a1a93bd8079f144d6390c23c3 (diff)
downloadperl-c7e88ff3e854ab874fbb980fa25d39d829f717c2.tar.gz
Branch predictor hints: exists is mostly run on hashes
Diffstat (limited to 'pp.c')
-rw-r--r--pp.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/pp.c b/pp.c
index 4dc8f20719..dce5ccb418 100644
--- a/pp.c
+++ b/pp.c
@@ -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;
}