Searched refs:SVf_ROK (Results 1 – 15 of 15) sorted by relevance
417 #define SVf_ROK 0x00000800 /* has a valid reference pointer */ macro473 #define SVf_THINKFIRST (SVf_READONLY|SVf_PROTECT|SVf_ROK|SVf_FAKE \476 #define SVf_OK (SVf_IOK|SVf_NOK|SVf_POK|SVf_ROK| \1117 #define SvROK(sv) (SvFLAGS(sv) & SVf_ROK)1118 #define SvROK_on(sv) (SvFLAGS(sv) |= SVf_ROK)1119 #define SvROK_off(sv) (SvFLAGS(sv) &= ~(SVf_ROK))1213 #define SvWEAKREF(sv) ((SvFLAGS(sv) & (SVf_ROK|SVprv_WEAKREF)) \1214 == (SVf_ROK|SVprv_WEAKREF))1215 #define SvWEAKREF_on(sv) (SvFLAGS(sv) |= (SVf_ROK|SVprv_WEAKREF))1219 == (SVf_ROK|SVprv_PCS_IMPORTED))[all …]
668 if ( UNLIKELY((SvFLAGS(TOPs) & (SVf_ROK|SVs_GMG))) \673 if ( UNLIKELY(((SvFLAGS(TOPm1s)|SvFLAGS(TOPs)) & (SVf_ROK|SVs_GMG))) \
785 if (LIKELY((SvFLAGS(sv) & (SVs_GMG|SVf_ROK|SVf_POK)) == SVf_POK)) { in PP()805 else if (UNLIKELY(SvFLAGS(sv) & (SVs_GMG|SVf_ROK))) in PP()848 if (UNLIKELY(SvFLAGS(targ) & (SVs_GMG|SVf_ROK))) in PP()1370 if ((SvFLAGS(left)|SvFLAGS(right)) & (SVf_ROK|SVs_GMG)) { in PP()1705 SVf_IOK|SVf_NOK|SVf_POK|SVp_NOK|SVp_POK|SVf_ROK)) in PP()1726 SVf_IOK|SVf_NOK|SVf_POK|SVp_NOK|SVp_POK|SVf_ROK)) in PP()6008 if (srcflags & (SVf_IOK|SVf_ROK)) { in Perl_leave_adjust_stacks()6011 if (srcflags & SVf_ROK) { in Perl_leave_adjust_stacks()6014 dstflags = (SVt_IV|SVf_ROK|SVs_TEMP); in Perl_leave_adjust_stacks()6196 if (LIKELY( (SvFLAGS(sv) & (SVf_ROK|SVs_GMG)) == SVf_ROK)) { in PP()
486 if (!(SvFLAGS(sv) & (SVf_ROK|SVf_OOK|SVs_OBJECT| in Perl_sv_peek()496 if (!(SvFLAGS(sv) & (SVf_ROK|SVf_OOK|SVs_OBJECT| in Perl_sv_peek()507 if (!(SvFLAGS(sv) & (SVf_ROK|SVf_OOK|SVs_OBJECT| in Perl_sv_peek()1924 if (flags & SVf_ROK) { in Perl_do_sv_dump()1966 if (SvIsUV(sv) && !(flags & SVf_ROK)) sv_catpvs(d, "IsUV,"); in Perl_do_sv_dump()
1101 return UNLIKELY((SvFLAGS(*PL_stack_sp) & (SVf_ROK|SVs_GMG))) in Perl_rpp_try_AMAGIC_1()1109 & (SVf_ROK|SVs_GMG))) in Perl_rpp_try_AMAGIC_2()
545 visit(do_clean_objs, SVf_ROK, SVf_ROK); in Perl_sv_clean_objs()4235 if (sflags & (SVf_IOK|SVf_ROK)) {4239 if (sflags & SVf_ROK) {4241 new_dflags |= SVf_ROK;4460 } else if (sflags & SVf_ROK) {4490 SvFLAGS(dsv) |= sflags & SVf_ROK;
1097 SVf_IOK|SVf_NOK|SVf_POK|SVp_NOK|SVp_POK|SVf_ROK)) in PP()1122 SVf_IOK|SVf_NOK|SVf_POK|SVp_NOK|SVp_POK|SVf_ROK)) in PP()6022 SvFLAGS(rv) = (SVt_IV | SVf_ROK); in PP()
4380 SvFLAGS(gv) = SVt_IV|SVf_ROK|SVprv_PCS_IMPORTED * imported; in Perl_gv_try_downgrade()
3356 && (SvFLAGS(*PL_stack_sp) & (SVf_ROK|SVs_GMG))) \
8456 & (SVs_TEMP | SVs_GMG | SVf_ROK)) in S_regmatch()
334 if ($gv->FLAGS & SVf_ROK) { # sub ref
719 while (class($sv) eq "IV" && $sv->FLAGS & SVf_ROK) {
689 if ($flags & SVf_ROK) {1831 my $cv = $gv->FLAGS & SVf_ROK ? $gv->RV : 0;5218 || $gv->FLAGS & SVf_ROK && class($cv = $gv->RV) eq 'CV') {5636 } elsif ($sv->FLAGS & SVf_ROK && $sv->can("RV")) {
1411 ROK = SVf_ROK
1380 SVf_ROK # Z added by devel/scanprov