Home
last modified time | relevance | path

Searched refs:sv (Results 1 – 25 of 415) sorted by relevance

12345678910>>...17

/openbsd/gnu/usr.bin/perl/
H A Dsv.h373 #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 Dsv_inline.h35 # 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 Dmg.c420 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 Dsv.c389 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 Dcv.h47 #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 Ddump.c474 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 Duniversal.c100 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 Ddoop.c55 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 Dmathoms.c107 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 Dpp_hot.c1392 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 Dregcomp_debug.c247 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 DSvREFCNT32 # 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 DSvPV26 __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 DSv_set126 __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 Dmagic39 …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 Dsv_xpvf159 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 Duv37 __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 DnewRV19 __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 Dshared_pv32 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 Dattributes.xs53 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 DHaiku.xs27 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 Dbool.t23 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 Dshared.xs357 ? ((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 DStorable.xs68 # 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 Dsdf.c27 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 …]

12345678910>>...17