Home
last modified time | relevance | path

Searched refs:SvRV (Results 1 – 25 of 85) sorted by relevance

1234

/openbsd/src/gnu/usr.bin/perl/ext/Hash-Util/
DUtil.xs113 if (SvROK(rhv) && SvTYPE(SvRV(rhv))==SVt_PVHV && !SvMAGICAL(SvRV(rhv))) { in hash_traversal_mask()
114 HV *hv = (HV *)SvRV(rhv); in hash_traversal_mask()
154 if (SvROK(rhv) && SvTYPE(SvRV(rhv))==SVt_PVHV && !SvMAGICAL(SvRV(rhv))) { in bucket_info()
155 hv = (const HV *) SvRV(rhv); in bucket_info()
214 if (SvROK(rhv) && SvTYPE(SvRV(rhv))==SVt_PVHV && !SvMAGICAL(SvRV(rhv))) { in bucket_array()
215 hv = (const HV *) SvRV(rhv); in bucket_array()
285 rhv= SvRV(rhv);
306 rhv= SvRV(rhv);
321 rhv= SvRV(rhv);
/openbsd/src/gnu/usr.bin/perl/ext/Hash-Util-FieldHash/
DFieldHash.xs34 if (items == 1 && TOPs && SvROK(TOPs) && SvTYPE(SvRV(TOPs)) == SVt_PVHV) in HUF_get_ob_reg()
35 ob_reg = (HV*)SvRV(POPs); in HUF_get_ob_reg()
71 SV *item = SvRV(obj); in HUF_obj_id()
139 SV* field = SvRV(field_ref); in HUF_destroy_obj()
161 SV* trigger = sv_rvweaken(newRV_inc(SvRV(obj))); in HUF_new_trigger()
295 HV* field = (HV*)SvRV(field_ref); in HUF_fix_trigger()
325 SV* obj = SvRV(trigger); in HUF_fix_objects()
369 (field = (HV*)SvRV(href)) &&
375 SvRV(href),
402 RETVAL = newRV_inc(SvRV(obj));
[all …]
/openbsd/src/gnu/usr.bin/perl/ext/B/
Dtypemap47 IV tmp = SvIV((SV*)SvRV($arg));
55 IV tmp = SvIV((SV*)SvRV($arg));
63 IV tmp = SvIV((SV*)SvRV($arg));
71 IV tmp = SvIV((SV*)SvRV($arg));
79 IV tmp = SvIV((SV*)SvRV($arg));
87 IV tmp = SvIV((SV*)SvRV($arg));
95 IV tmp = SvIV((SV*)SvRV($arg));
103 IV tmp = SvIV((SV*)SvRV($arg));
/openbsd/src/gnu/usr.bin/perl/dist/threads-shared/
Dshared.xs392 #define SHAREDSV_FROM_OBJ(sv) ((SvROK(sv)) ? INT2PTR(SV *, SvIV(SvRV(sv))) : NULL)
736 ((obj = SvRV(sv))) && in S_get_RV()
742 SvREFCNT_dec(SvRV(sv)); in S_get_RV()
773 SvROK_on(SvRV(sv)); \
774 S_get_RV(aTHX_ SvRV(sv), SvRV(sobj)); \
790 get_RV(sv, SvRV(ssv)); in sharedsv_scalar_mg_get()
809 if (!PL_dirty && SvROK(ssv) && SvREFCNT(SvRV(ssv)) == 1) { in sharedsv_scalar_store()
812 get_RV(sv, SvRV(ssv)); in sharedsv_scalar_store()
815 SV *obj = SvRV(sv); in sharedsv_scalar_store()
890 && SvROK((SV *)mg->mg_ptr) && SvREFCNT(SvRV((SV *)mg->mg_ptr)) == 1) { in sharedsv_scalar_mg_free()
[all …]
/openbsd/src/gnu/usr.bin/perl/dist/Time-HiRes/
Dtypemap63 $var = (SV*)SvRV($arg);
67 if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVAV)
68 $var = (AV*)SvRV($arg);
72 if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVHV)
73 $var = (HV*)SvRV($arg);
77 if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVCV)
78 $var = (CV*)SvRV($arg);
119 IV tmp = SvIV((SV*)SvRV($arg));
126 IV tmp = SvIV((SV*)SvRV($arg));
133 IV tmp = SvIV((SV*)SvRV($arg));
[all …]
/openbsd/src/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/t/
Dtypemap62 $var = (SV*)SvRV($arg);
68 if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVAV)
69 $var = (AV*)SvRV($arg);
75 if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVHV)
76 $var = (HV*)SvRV($arg);
82 if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVCV)
83 $var = (CV*)SvRV($arg);
126 IV tmp = SvIV((SV*)SvRV($arg));
135 IV tmp = SvIV((SV*)SvRV($arg));
144 IV tmp = SvIV((SV*)SvRV($arg));
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/Math-BigInt-FastCalc/
DFastCalc.xs114 a = (AV*)SvRV(x); /* ref to aray, don't check ref */
151 a = (AV*)SvRV(x); /* ref to aray, don't check ref */
197 a = (AV*)SvRV(x); /* ref to aray, don't check ref */
241 a = (AV*)SvRV(x); /* ref to aray, don't check ref */
293 a = (AV*)SvRV(x); /* ref to aray, don't check ref */
310 a = (AV*)SvRV(x); /* ref to aray, don't check ref */
334 a = (AV*)SvRV(x); /* ref to aray, don't check ref */
359 array_x = (AV*)SvRV(cx); /* ref to aray, don't check ref */
360 array_y = (AV*)SvRV(cy); /* ref to aray, don't check ref */
/openbsd/src/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/t/data/
Dperl.typemap65 $var = SvRV(xsub_tmp_sv);
77 if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVAV){
78 $var = (AV*)SvRV(xsub_tmp_sv);
90 if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVHV){
91 $var = (HV*)SvRV(xsub_tmp_sv);
103 if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVCV){
104 $var = (CV*)SvRV(xsub_tmp_sv);
150 IV tmp = SvIV((SV*)SvRV($arg));
159 IV tmp = SvIV((SV*)SvRV($arg));
168 IV tmp = SvIV((SV*)SvRV($arg));
[all …]
Db.typemap42 IV tmp = SvIV((SV*)SvRV($arg));
50 IV tmp = SvIV((SV*)SvRV($arg));
58 IV tmp = SvIV((SV*)SvRV($arg));
66 IV tmp = SvIV((SV*)SvRV($arg));
74 IV tmp = SvIV((SV*)SvRV($arg));
/openbsd/src/gnu/usr.bin/perl/lib/ExtUtils/
Dtypemap71 $var = SvRV(xsub_tmp_sv);
84 $var = SvRV(xsub_tmp_sv);
96 if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVAV){
97 $var = (AV*)SvRV(xsub_tmp_sv);
109 if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVAV){
110 $var = (AV*)SvRV(xsub_tmp_sv);
122 if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVHV){
123 $var = (HV*)SvRV(xsub_tmp_sv);
135 if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVHV){
136 $var = (HV*)SvRV(xsub_tmp_sv);
[all …]
/openbsd/src/gnu/usr.bin/perl/ext/Devel-Peek/
DPeek.xs238 if (SvOK(*svp) && !(SvROK(*svp) && SvTYPE(SvRV(*svp)) == SVt_PVAV)) in _mstats_to_hv()
244 av = (AV*)SvRV(*svp); in _mstats_to_hv()
278 if (!(SvROK(sv) && SvTYPE(SvRV(sv)) == SVt_PVHV)) in mstats_fillhash()
281 _mstats_to_hv((HV *)SvRV(sv), &buf, level); in mstats_fillhash()
287 if (!(SvROK(rv) && SvTYPE(SvRV(rv)) == SVt_PVHV)) in mstats2hash()
293 _mstats_to_hv((HV *)SvRV(rv), (struct mstats_buffer*)SvPVX(sv), level); in mstats2hash()
323 (SvROK(cv) && (SvTYPE(SvRV(cv))==SVt_PVCV) \
324 ? SvREFCNT_inc(CvGV((CV*)SvRV(cv))) : &PL_sv_undef)
488 RETVAL = SvREFCNT(SvRV(sv)) - 1; /* -1 because our ref doesn't count */
/openbsd/src/gnu/usr.bin/perl/
Duniversal.c100 sv = SvRV(sv); in S_sv_derived_from_svpvn()
238 if(!SvROK(sv) || !SvOBJECT(SvRV(sv))) in Perl_sv_isa_sv()
241 isagv = gv_fetchmeth_pvn(SvSTASH(SvRV(sv)), "isa", 3, -1, GV_NOUNIVERSAL); in Perl_sv_isa_sv()
309 if (SvROK(sv) && SvOBJECT(SvRV(sv))) { in Perl_sv_does_sv()
310 classname = sv_ref(NULL,SvRV(sv),TRUE); in Perl_sv_does_sv()
511 sv = MUTABLE_SV(SvRV(sv)); in XS()
698 sv = SvRV(svz); in XS()
732 sv = SvRV(svz); in XS()
759 sv = SvRV(svz); in XS()
779 HV * const hv = MUTABLE_HV(SvRV(ST(0))); in XS()
[all …]
Dpp_ctl.c3181 if (SvROK(sv) && SvTYPE(SvRV(sv)) == SVt_PVCV) { in PP()
3185 CV *cv = MUTABLE_CV(SvRV(sv)); in PP()
4398 SV * const req = SvRV(sv); in S_require_version()
4402 lav = MUTABLE_AV(SvRV(*hv_fetchs(MUTABLE_HV(req), "version", FALSE))); in S_require_version()
4490 && SvTYPE(SvRV(PL_hook__require__before)) == SVt_PVCV in S_require_file()
4501 if (SvOK(rsv) && SvROK(rsv) && SvTYPE(SvRV(rsv)) == SVt_PVCV) { in S_require_file()
4527 && SvTYPE(SvRV(PL_hook__require__after)) == SVt_PVCV in S_require_file()
4718 UV diruv = PTR2UV(SvRV(dirsv)); in S_require_file()
4720 if (SvTYPE(SvRV(loader)) == SVt_PVAV in S_require_file()
4721 && !SvOBJECT(SvRV(loader))) in S_require_file()
[all …]
Dvutil.c513 ver = SvRV(ver); in Perl_new_version2()
533 sav = MUTABLE_AV(SvRV(*hv_fetchs(MUTABLE_HV(ver), "version", FALSE))); in Perl_new_version2()
943 vs = SvRV(vs); in Perl_vverify2()
948 && (sv = SvRV(*svp)) in Perl_vverify2()
1001 if ( !(av = MUTABLE_AV(SvRV(*hv_fetchs(MUTABLE_HV(vs), "version", FALSE))) ) ) { in Perl_vnumify2()
1063 av = MUTABLE_AV(SvRV(*hv_fetchs(MUTABLE_HV(vs), "version", FALSE))); in Perl_vnormal2()
1168 lav = MUTABLE_AV(SvRV(*hv_fetchs(MUTABLE_HV(lhv), "version", FALSE))); in Perl_vcmp2()
1171 rav = MUTABLE_AV(SvRV(*hv_fetchs(MUTABLE_HV(rhv), "version", FALSE))); in Perl_vcmp2()
Dvxs.inc108 sv = (SV*)SvRV(sv);
161 if ( hv_exists(MUTABLE_HV(SvRV(req)), "qv", 2 ) ) {
228 const HV * stash = SvSTASH(SvRV(svarg0));
252 (var) = SvRV(sv_vtc); \
318 rvs = SvRV(robj);
414 const HV * stash = SvSTASH(SvRV(sv0));
/openbsd/src/gnu/usr.bin/perl/ext/XS-Typemap/
DTypemap.xs94 if (SvROK(tmp) && SvTYPE(SvRV(tmp)) == SVt_PVHV) in XS_unpack_anotherstructPtr()
95 inhash = (HV*)SvRV(tmp); in XS_unpack_anotherstructPtr()
155 if (SvROK(tmp) && SvTYPE(SvRV(tmp)) == SVt_PVAV) in XS_unpack_anotherstructPtrPtr()
156 inary = (AV*)SvRV(tmp); in XS_unpack_anotherstructPtrPtr()
176 if (SvROK(tmp) && SvTYPE(SvRV(tmp)) == SVt_PVHV) in XS_unpack_anotherstructPtrPtr()
177 inhash = (HV*)SvRV(tmp); in XS_unpack_anotherstructPtrPtr()
/openbsd/src/gnu/usr.bin/perl/ext/attributes/
Dattributes.xs148 sv = SvRV(rv);
169 sv = SvRV(rv);
201 sv = SvRV(rv);
249 sv = SvRV(rv);
/openbsd/src/gnu/usr.bin/perl/dist/Devel-PPPort/
Dtypemap27 if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVHV)
28 $var = (HV*)SvRV($arg);
/openbsd/src/gnu/usr.bin/perl/cpan/IPC-SysV/
DSysV.xs132 AV *list = (AV*) SvRV(obj); in pack()
161 AV *list = (AV*) SvRV(obj); in unpack()
195 AV *list = (AV*) SvRV(obj); in pack()
220 AV *list = (AV*) SvRV(obj); in unpack()
250 AV *list = (AV*) SvRV(obj); in pack()
279 AV *list = (AV*) SvRV(obj); in unpack()
/openbsd/src/gnu/usr.bin/perl/cpan/Scalar-List-Utils/
DListUtil.xs868 if(SvTYPE(SvRV(pair)) != SVt_PVAV) in unpairs()
872 pairav = (AV *)SvRV(pair); in unpairs()
1256 CV * const randcv = randsv && SvROK(randsv) && SvTYPE(SvRV(randsv)) == SVt_PVCV ? in shuffle()
1257 (CV *)SvRV(randsv) : NULL; in shuffle()
1282 CV * const randcv = randsv && SvROK(randsv) && SvTYPE(SvRV(randsv)) == SVt_PVCV ? in sample()
1283 (CV *)SvRV(randsv) : NULL; in sample()
1607 if(!SvROK(arg) || SvTYPE(SvRV(arg)) != SVt_PVAV)
1609 av = lists[i] = (AV *)SvRV(arg);
1728 if(!(SvROK(sv) && SvOBJECT(SvRV(sv)))) in blessed()
1731 RETVAL = newSVsv(sv_ref(NULL, SvRV(sv), TRUE)); in blessed()
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/Unicode-Collate/
DCollate.xs477 if (SvROK(self) && SvTYPE(SvRV(self)) == SVt_PVHV)
478 selfHV = (HV*)SvRV(self);
482 if (SvROK(buf) && SvTYPE(SvRV(buf)) == SVt_PVAV)
483 bufAV = (AV*)SvRV(buf);
628 if (SvROK(self) && SvTYPE(SvRV(self)) == SVt_PVHV)
629 selfHV = (HV*)SvRV(self);
707 if (SvROK(self) && SvTYPE(SvRV(self)) == SVt_PVHV)
708 selfHV = (HV*)SvRV(self);
/openbsd/src/gnu/usr.bin/perl/dist/threads/
Dthreads.xs656 thread->err_class = HvNAME(SvSTASH(SvRV(thread->err))); in S_ithread_run()
746 return (INT2PTR(ithread *, SvIV(SvRV(sv)))); in S_SV_to_ithread()
1089 if ((items >= 2) && SvROK(ST(1)) && SvTYPE(SvRV(ST(1)))==SVt_PVHV) {
1093 specs = (HV*)SvRV(ST(1));
1105 classname = HvNAME(SvSTASH(SvRV(ST(0))));
1106 thread = INT2PTR(ithread *, SvIV(SvRV(ST(0))));
1551 sv_unmagic(SvRV(ST(0)), PERL_MAGIC_shared_scalar);
1563 ithread *thr1 = INT2PTR(ithread *, SvIV(SvRV(ST(0))));
1564 ithread *thr2 = INT2PTR(ithread *, SvIV(SvRV(ST(1))));
1669 ithread *thread = INT2PTR(ithread *, SvIV(SvRV(ST(0))));
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/Encode/Unicode/
DUnicode.xs123 #define attr(k) (hv_exists((HV *)SvRV(obj),"" k "",sizeof(k)-1) ? \
124 *hv_fetch((HV *)SvRV(obj),"" k "",sizeof(k)-1,0) : &PL_sv_undef)
212 (void)hv_store((HV *)SvRV(obj),"endian",6,newSVpv((char *)&endian,1),0);
430 (void)hv_store((HV *)SvRV(obj),"endian",6,newSVpv((char *)&endian,1),0);
444 HV *hv = (HV *)SvRV(sv);
/openbsd/src/gnu/usr.bin/perl/dist/Data-Dumper/
DDumper.xs693 if (SvOBJECT(SvRV(val)) && style->freezer && in DD_dump()
695 gv_fetchmeth(SvSTASH(SvRV(val)), SvPVX_const(style->freezer), in DD_dump()
707 ival = SvRV(val); in DD_dump()
721 && (sv = *svp) && SvROK(sv) && (seenentry = (AV*)SvRV(sv))) in DD_dump()
1026 if (SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVAV)) in DD_dump()
1027 keys = (AV*)SvREFCNT_inc(SvRV(sv)); in DD_dump()
1250 (seenentry = (AV*)SvRV(sv))) in DD_dump()
1508 && (hv = (HV*)SvRV((SV*)href))
1512 seenhv = (HV*)SvRV(*svp);
1518 todumpav = (AV*)SvRV(*svp);
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/Time-Piece/
DPiece.xs917 AV* alt_names = (AV *) SvRV( *hv_fetch(locales, "alt_month", 9, 0) ); in _populate_C_time_locale()
918 AV* long_names = (AV *) SvRV( *hv_fetch(locales, "month", 5, 0) ); in _populate_C_time_locale()
919 AV* short_names = (AV *) SvRV( *hv_fetch(locales, "mon", 3, 0) ); in _populate_C_time_locale()
928 long_names = (AV *) SvRV( *hv_fetch(locales, "weekday", 7, 0) ); in _populate_C_time_locale()
929 short_names = (AV *) SvRV( *hv_fetch(locales, "wday", 4, 0) ); in _populate_C_time_locale()
1036 if( SvTYPE(SvRV( localization )) == SVt_PVHV ){
1037 locales = (HV *)SvRV(localization);

1234