/openbsd/gnu/usr.bin/perl/ |
H A D | sv.h | 373 #define SvANY(sv) (sv)->sv_any argument 980 #define assert_not_ROK(sv) assert_(!SvROK(sv) || !SvRV(sv)) argument 1329 #define SvRVx(sv) SvRV(sv) argument 1457 #define SvIVXx(sv) SvIVX(sv) argument 1458 #define SvUVXx(sv) SvUVX(sv) argument 1459 #define SvNVXx(sv) SvNVX(sv) argument 1460 #define SvPVXx(sv) SvPVX(sv) argument 1461 #define SvLENx(sv) SvLEN(sv) argument 2052 # define SvIVx(sv) SvIV(sv) argument 2494 (SvIsCOW(sv) || SvLEN(sv) < (len) ? sv_grow(sv,len) : SvPVX(sv)) [all …]
|
H A D | sv_inline.h | 35 # define SvARENA_CHAIN(sv) ((sv)->sv_u.svu_rv) argument 44 # define SvARENA_CHAIN(sv) SvANY(sv) argument 45 # define SvARENA_CHAIN_SET(sv,val) SvANY(sv) = (void *)(val) argument 77 SV* sv; in S_new_SV() local 103 return sv; in S_new_SV() 372 SV *sv; in Perl_newSV_type() local 515 return sv; in Perl_newSV_type() 544 return sv; in Perl_newSV_type_mortal() 651 if (SvROK(sv) && !(SvOBJECT(SvRV(sv)) && HvAMAGIC(SvSTASH(SvRV(sv))))) in Perl_SvTRUE_common() 665 return sv; in Perl_SvREFCNT_inc() [all …]
|
H A D | mg.c | 420 sv = LvTARG(sv); in Perl_mg_find_mglob() 422 if (SvTYPE(sv) >= SVt_PVMG && SvMAGIC(sv)) in Perl_mg_find_mglob() 1817 if (sv && (isGV_with_GP(sv) || SvROK(sv))) { in Perl_magic_setsig() 1825 if (sv && SvOK(sv)) { in Perl_magic_setsig() 1923 if (sv && SvOK(sv) && (!SvROK(sv) || SvTYPE(SvRV(sv))!= SVt_PVCV)) in Perl_magic_sethook() 2617 sv_setuv(sv, errflags ? 0 : do_vecget(lsv, LvTARGOFF(sv), LvTARGLEN(sv))); in Perl_magic_getvec() 2677 sv_setsv(sv, defelem_target(sv, mg)); in Perl_magic_getdefelem() 2689 sv_setsv(LvTARG(sv), sv); in Perl_magic_setdefelem() 3149 PL_basetime = (Time_t)(SvNOK(sv) ? SvNVX(sv) : sv_2nv(sv)); in Perl_magic_set() 3347 SETERRNO(win32_get_errno(SvIOK(sv) ? SvIVX(sv) : SvOK(sv) ? sv_2iv(sv) : 0), in Perl_magic_set() [all …]
|
H A D | sv.c | 389 for (sv = sva + 1; sv < svend; ++sv) { in S_visit() 2375 return SvIsUV(sv) ? (IV)SvUVX(sv) : SvIVX(sv); in Perl_sv_2iv_flags() 2460 return SvIsUV(sv) ? SvUVX(sv) : (UV)SvIVX(sv); in Perl_sv_2uv_flags() 2480 if (SvGMAGICAL(sv) || SvVALID(sv) || isREGEXP(sv)) { in Perl_sv_2nv_flags() 2549 SvNV_set(sv, SvIsUV(sv) ? (NV)SvUVX(sv) : (NV)SvIVX(sv)); in Perl_sv_2nv_flags() 2559 SvIsUV(sv) ? ((SvUVX(sv) != UV_MAX)&&(SvUVX(sv) == U_V(SvNVX(sv)))) in Perl_sv_2nv_flags() 3395 if (SvREADONLY(sv) && (SvPOKp(sv) || SvIOKp(sv) || SvNOKp(sv))) { in Perl_sv_utf8_upgrade_flags_grow() 5456 max_delta = SvLEN(sv) ? SvLEN(sv) : SvCUR(sv); 5845 sv = LvTARG(sv); 10552 sv = SvRV(sv); [all …]
|
H A D | cv.h | 47 #define CvGV(sv) Perl_CvGV(aTHX_ (CV *)(sv)) argument 53 (CvFILE(sv) = savepv(CopFILE(cop)), CvDYNFILE_on(sv)) 56 (CvFILE(sv) = CopFILE(cop), CvDYNFILE_off(sv)) 58 #define CvFILEGV(sv) (gv_fetchfile(CvFILE(sv))) argument 59 #define CvDEPTH(sv) (*Perl_CvDEPTH((const CV *)sv)) argument 65 #define CvPADLIST(sv) (*(assert_(!CvISXSUB((CV*)(sv))) \ argument 73 #define CvHSCXT(sv) *(assert_(CvISXSUB((CV*)(sv))) \ argument 97 ? SvTYPE(sv) == SVt_PVCV && CvAUTOLOAD(sv) \ 98 ? SvEND(sv)+1 : SvPVX_const(sv) \ 104 ? SvTYPE(sv) == SVt_PVCV && CvAUTOLOAD(sv) \ [all …]
|
H A D | dump.c | 474 else if ( sv == &PL_sv_undef || sv == &PL_sv_no || sv == &PL_sv_yes in Perl_sv_peek() 559 sv = SvRV(sv); in Perl_sv_peek() 617 if (TAINTING_get && sv && SvTAINTED(sv)) in Perl_sv_peek() 1688 if (sv && (hvname = HvNAME_get(sv))) in Perl_do_hv_dump() 1916 PTR2UV(SvANY(sv)), PTR2UV(sv), in Perl_do_sv_dump() 1954 if (isGV_with_GP(sv) && GvIMPORTED(sv)) { in Perl_do_sv_dump() 2096 if (SvIsCOW(sv) && SvLEN(sv)) in Perl_do_sv_dump() 2123 if (AvARRAY(sv) != AvALLOC(sv)) { in Perl_do_sv_dump() 2248 if (HvRAND_get(sv) != HvLASTRAND_get(sv) && HvRITER_get(sv) != -1 ) { in Perl_do_sv_dump() 2785 if (sv && SvROK(sv)) in Perl_sv_dump() [all …]
|
H A D | universal.c | 100 sv = SvRV(sv); in S_sv_derived_from_svpvn() 238 if(!SvROK(sv) || !SvOBJECT(SvRV(sv))) in Perl_sv_isa_sv() 304 if (!SvOK(sv) || !(SvROK(sv) || (SvPOK(sv) && SvCUR(sv)))) { in Perl_sv_does_sv() 309 if (SvROK(sv) && SvOBJECT(SvRV(sv))) { in Perl_sv_does_sv() 449 if (!SvOK(sv) || !(SvROK(sv) || (SvPOK(sv) && SvCUR(sv)))) in XS() 476 if (!SvOK(sv) || (SvPOK(sv) && !SvCUR(sv))) in XS() 482 sv = MUTABLE_SV(SvRV(sv)); in XS() 485 else if (isGV_with_GP(sv) && GvIO(sv)) in XS() 488 else if (isGV_with_GP(sv) && GvIO(sv)) in XS() 663 SV * sv; in XS() local [all …]
|
H A D | doop.c | 55 if (!SvUTF8(sv)) { in S_do_trans_simple() 64 SvSETMAGIC(sv); in S_do_trans_simple() 105 SvUTF8_on(sv); in S_do_trans_simple() 315 SvSETMAGIC(sv); in S_do_trans_complex() 572 SvSETMAGIC(sv); in S_do_trans_invmap() 604 if (!SvPOKp(sv) || SvTHINKFIRST(sv)) in Perl_do_trans() 690 SvPVCLEAR(sv); in Perl_do_join() 992 if (sv != left || (optype != OP_BIT_AND && !SvOK(sv))) in Perl_do_vop() 1059 if (SvOK(sv) || SvTYPE(sv) > SVt_PVMG) { in Perl_do_vop() 1063 (void)memzero(dc + SvCUR(sv), len - SvCUR(sv) + 1); in Perl_do_vop() [all …]
|
H A D | mathoms.c | 107 sv_unref_flags(sv, 0); in Perl_sv_unref() 132 Perl_sv_2iv(pTHX_ SV *sv) in Perl_sv_2iv() argument 144 Perl_sv_2uv(pTHX_ SV *sv) in Perl_sv_2uv() argument 156 Perl_sv_2nv(pTHX_ SV *sv) in Perl_sv_2nv() argument 316 Perl_sv_pv(pTHX_ SV *sv) in Perl_sv_pv() argument 320 if (SvPOK(sv)) in Perl_sv_pv() 348 return sv_pv(sv); in Perl_sv_pvbyte() 375 sv_utf8_upgrade(sv); in Perl_sv_pvutf8() 376 return sv_pv(sv); in Perl_sv_pvutf8() 502 PERL_UNUSED_ARG(sv); in Perl_sv_nolocking() [all …]
|
H A D | pp_hot.c | 1392 SvIV_set(sv, SvIVX(sv) + 1); in PP() 1413 SvIV_set(sv, SvIVX(sv) - 1); in PP() 1474 if (CvROOT(sv) || CvXSUB(sv)) in PP() 2059 sv = SvRV(sv); in PP() 3667 sv = (SV*)GvAVn((GV*)sv); in PP() 3681 sv = GvSVn((GV*)sv); in PP() 3703 sv = SvRV(sv); in PP() 3860 sv = (SV*)GvHVn((GV*)sv); in PP() 3874 sv = GvSVn((GV*)sv); in PP() 3897 sv = SvRV(sv); in PP() [all …]
|
H A D | regcomp_debug.c | 247 SV * const sv = sv_newmortal(); in Perl_regdump() local 396 SvPVCLEAR(sv); in Perl_regprop() 418 sv_catpvs(sv, " "); in Perl_regprop() 445 Perl_sv_catpvf(aTHX_ sv, in Perl_regprop() 457 sv_catpvs(sv, "["); in Perl_regprop() 468 sv_catpvs(sv, "]"); in Perl_regprop() 481 sv_catpvs(sv, "INFTY"); in Perl_regprop() 484 sv_catpvs(sv, "}"); in Perl_regprop() 902 PERL_UNUSED_ARG(sv); in Perl_regprop() 926 sv_catpvs(sv, "\\"); in S_put_code_point() [all …]
|
/openbsd/gnu/usr.bin/perl/dist/Devel-PPPort/parts/inc/ |
H A D | SvREFCNT | 32 # define SvREFCNT_inc(sv) \ 47 ((sv) ? (SvREFCNT(sv)++,(SV*)(sv)) : NULL) 60 # define SvREFCNT_inc_NN(sv) \ 74 # define SvREFCNT_inc_void(sv) \ 79 __UNDEFINED__ SvREFCNT_inc_simple_void(sv) STMT_START { if (sv) SvREFCNT(sv)++; } STMT_END 80 __UNDEFINED__ SvREFCNT_inc_simple_NN(sv) (++SvREFCNT(sv), (SV*)(sv)) 81 __UNDEFINED__ SvREFCNT_inc_void_NN(sv) (void)(++SvREFCNT((SV*)(sv))) 82 __UNDEFINED__ SvREFCNT_inc_simple_void_NN(sv) (void)(++SvREFCNT((SV*)(sv))) 89 SV *sv, *svr; 91 sv = newSV(0); [all …]
|
H A D | SvPV | 26 __UNDEFINED__ sv_2pv_nolen(sv) SvPV_nolen(sv) 37 __UNDEFINED__ sv_2pvbyte(sv, lp) (sv_utf8_downgrade((sv), 0), SvPV((sv), *(lp))) 49 ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_2pvbyte(sv, &lp)) 60 __UNDEFINED__ sv_2pvbyte_nolen(sv) sv_2pv_nolen(sv) 104 ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_2pv_flags(sv, &lp, flags)) 108 ? ((lp = SvCUR(sv)), SvPVX_const(sv)) : \ 129 ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_pvn_force_flags(sv, &lp, flags)) 137 ? ((lp = SvCUR(sv)), SvPVX_mutable(sv)) \ 153 __UNDEFINED__ SvPV_nomg(sv, lp) SvPV_flags(sv, lp, 0) 164 __UNDEFINED__ SvPVCLEAR(sv) sv_setpvs((sv), "") [all …]
|
H A D | Sv_set | 126 __UNDEFINED__ newSVsv_nomg(sv) newSVsv_flags((sv), SV_NOSTEAL) 141 __UNDEFINED__ SvPVX_mutable(sv) (0 + SvPVX(sv)) 150 __UNDEFINED__ SvPVX_mutable(sv) ((sv)->sv_u.svu_pv) 180 SV *sv 190 SV *sv 198 SV *sv 206 SV *sv 209 sv = SvRV(sv); 226 newSVsv_nomg(sv) 227 SV *sv [all …]
|
H A D | magic | 39 …nomg(sv) (!SvGMAGICAL((sv)) ? SvIV((sv)) : ({ SV *_sviv = sv_mortalcopy_flags((sv), SV_NOSTEAL); I… 40 …nomg(sv) (!SvGMAGICAL((sv)) ? SvUV((sv)) : ({ SV *_svuv = sv_mortalcopy_flags((sv), SV_NOSTEAL); U… 46 __UNDEFINED__ SvIV_nomg(sv) (!SvGMAGICAL((sv)) ? SvIV((sv)) : SvIVx(sv_mortalcopy_flags((sv), SV_NO… 47 __UNDEFINED__ SvUV_nomg(sv) (!SvGMAGICAL((sv)) ? SvUV((sv)) : SvUVx(sv_mortalcopy_flags((sv), SV_NO… 50 __UNDEFINED__ SvNV_nomg(sv) (!SvGMAGICAL((sv)) ? SvNV((sv)) : SvNVx(sv_mortalcopy_flags((sv), SV_NO… 51 __UNDEFINED__ SvTRUE_nomg(sv) (!SvGMAGICAL((sv)) ? SvTRUE((sv)) : SvTRUEx(sv_mortalcopy_flags((sv),… 143 __UNDEFINED__ SvVSTRING_mg(sv) (SvMAGICAL(sv) ? mg_find(sv, PERL_MAGIC_vstring) : NULL) 191 if (sv) { 219 if (SvTYPE(sv) < SVt_PVMG || !SvMAGIC(sv)) 483 SV *sv [all …]
|
H A D | sv_xpvf | 159 SV *sv; 168 return sv; 205 sv_vcatpvf(sv) 206 SV *sv 214 sv_vsetpvf(sv) 215 SV *sv 224 SV *sv 232 SV *sv 240 SV *sv 252 SV *sv [all …]
|
H A D | uv | 37 __UNDEFINED__ SvUVX(sv) ((UV)SvIVX(sv)) 38 __UNDEFINED__ SvUVXx(sv) SvUVX(sv) 39 __UNDEFINED__ SvUV(sv) (SvIOK(sv) ? SvUVX(sv) : sv_2uv(sv)) 42 __UNDEFINED__ SvUVx(sv) ({ SV *_sv = (sv)); SvUV(_sv); }) 44 __UNDEFINED__ SvUVx(sv) ((PL_Sv = (sv)), SvUV(PL_Sv)) 51 __UNDEFINED__ sv_uv(sv) SvUVx(sv) 54 # define SvUOK(sv) SvIOK_UV(sv) 104 sv_2uv(sv) 105 SV *sv 112 SvUVx(sv) [all …]
|
H A D | newRV | 19 __UNDEFINED__ newRV_inc(sv) newRV(sv) /* Replace */ 23 # define newRV_noinc(sv) ({ SV *_sv = (SV *)newRV((sv)); SvREFCNT_dec((sv)); _sv; }) 25 # define newRV_noinc(sv) ((PL_Sv = (SV *)newRV((sv))), SvREFCNT_dec((sv)), PL_Sv) 34 SV *sv, *rv; 36 sv = newSViv(42); 37 rv = newRV_inc(sv); 38 SvREFCNT_dec(sv); 39 RETVAL = SvREFCNT(sv); 47 SV *sv, *rv; 49 sv = newSViv(42); [all …]
|
H A D | shared_pv | 32 SV *sv; 37 sv = newSVpvn((char *) s, len); 38 sv_upgrade(sv, SVt_PVIV); 39 SvIVX(sv) = hash; 40 SvREADONLY_on(sv); 41 SvPOK_on(sv); 42 return sv; 49 __UNDEFINED__ SvSHARED_HASH(sv) (0 + SvUVX(sv)) 61 SV *sv; 74 SvREFCNT_dec(sv); [all …]
|
/openbsd/gnu/usr.bin/perl/ext/attributes/ |
H A D | attributes.xs | 53 const bool warn = (!CvANON(sv) || CvCLONED(sv)) in modify_SV_attributes() 119 SvSHARE(sv); in modify_SV_attributes() 137 SV *rv, *sv; variable 148 sv = SvRV(rv); 158 SV *rv, *sv; variable 169 sv = SvRV(rv); 189 SV *rv, *sv; variable 201 sv = SvRV(rv); 213 if (CvGV(sv) && isGV(CvGV(sv)) && GvSTASH(CvGV(sv))) 219 if (isGV_with_GP(sv) && GvGP(sv) && GvESTASH(MUTABLE_GV(sv))) [all …]
|
/openbsd/gnu/usr.bin/perl/haiku/Haiku/ |
H A D | Haiku.xs | 27 if (!sv) in haiku_do_debug_printf() 29 if (SvTYPE(sv) == SVt_IV && SvIOK(sv)) { in haiku_do_debug_printf() 31 if (SvIsUV(sv)) in haiku_do_debug_printf() 43 if (!SvUTF8(sv)) { in haiku_do_debug_printf() 59 SV *sv; in XS() local 64 sv = newSV(0); in XS() 72 SvREFCNT_dec(sv); in XS() 81 SV *sv; in XS() local 86 sv = newSV(0); in XS() 103 SV *sv; in XS() local [all …]
|
/openbsd/gnu/usr.bin/perl/ext/B/t/ |
H A D | bool.t | 23 my $sv = B::svref_2object(\$bool); 24 ok $sv->IsBOOL, "got a boolean"; 26 ok $sv->TRUE, "TRUE is true"; 32 my $sv = B::svref_2object(\$bool); 34 ok $sv->IsBOOL, "got a boolean"; 36 ok !$sv->TRUE, "TRUE is false"; 42 my $sv = B::svref_2object(\$iv); 44 ok !$sv->IsBOOL, "not a boolean"; 46 ok $sv->TRUE, "TRUE is true"; 52 my $sv = B::svref_2object(\$iv); [all …]
|
/openbsd/gnu/usr.bin/perl/dist/threads-shared/ |
H A D | shared.xs | 357 ? ((SvNOK(sv) || SvNOKp(sv)) ? SVf_NOK \ 359 : ((SvIOK(sv) || SvIOKp(sv)) ? SVf_IOK : 0))) \ 364 ? ((SvNOK(sv) || SvNOKp(sv)) ? SVf_NOK \ 365 : ((SvIOK(sv) || SvIOKp(sv)) ? SVf_IOK : 0)) \ 392 #define SHAREDSV_FROM_OBJ(sv) ((SvROK(sv)) ? INT2PTR(SV *, SvIV(SvRV(sv))) : NULL) argument 561 SV *sv; in S_sharedsv_new_private() local 569 return (sv); in S_sharedsv_new_private() 1148 if ( (SvOBJECT(sv) || (SvROK(sv) && (sv = SvRV(sv)))) in sharedsv_array_mg_CLEAR() 1244 sv = SvRV(sv); in Perl_sharedsv_locksv() 1263 sv = SvRV(sv); in Perl_shared_object_destroy() [all …]
|
/openbsd/gnu/usr.bin/perl/dist/Storable/ |
H A D | Storable.xs | 68 # define SvTRULYREADONLY(sv) SvREADONLY(sv) argument 70 # define SvTRULYREADONLY(sv) (SvREADONLY(sv) && !SvIsCOW(sv)) argument 2024 return SvOK(sv) ? sv : (SV *) 0; in pkg_fetchmeth() 2258 if (sv && SvROK(sv)) in cleanup_recursive_rv() 2343 sv = SvRV(sv); in store_ref() 4159 sv_reftype(sv, FALSE), PTR2UV(sv)); in store_other() 4242 if (SvRMAGICAL(sv) && (mg_find(sv, 'P'))) in sv_type() 4246 if (SvRMAGICAL(sv) && (mg_find(sv, 'P'))) in sv_type() 5426 stash = SvTYPE(sv) ? (HV *) SvSTASH (sv) : 0; in retrieve_overloaded() 5694 SAFEREAD(SvPVX(sv), len, sv); in get_lstring() [all …]
|
/openbsd/gnu/usr.bin/perl/cpan/Digest-SHA/src/ |
H A D | sdf.c | 27 SV* sv; local 30 return sv; 50 SV* sv = *svp++; local 71 sv_derived_from(sv, name) in sv_derived_from() argument 72 SV * sv ; in sv_derived_from() 82 if (SvGMAGICAL(sv)) 83 mg_get(sv) ; 85 if (SvROK(sv)) { 86 sv = SvRV(sv); 87 type = sv_reftype(sv,0); [all …]
|