| /openbsd-current/gnu/usr.bin/perl/dist/threads-shared/ |
| H A D | shared.xs | 113 * In this file, any variable name prefixed with 's' (e.g., ssv, stmp or sobj)
399 S_get_userlock(pTHX_ SV* ssv, bool create)
404 assert(ssv);
410 for (mg = SvMAGIC(ssv); mg; mg = mg->mg_moremagic) {
426 mg = sv_magicext(ssv, NULL, PERL_MAGIC_ext, &sharedsv_userlock_vtbl,
478 Perl_sharedsv_associate(pTHX_ SV *sv, SV *ssv)
493 || (SV*) mg->mg_ptr != ssv)
496 sv_setref_iv(obj, "threads::shared::tie", PTR2IV(ssv));
501 (char *)ssv, 0);
503 SvREFCNT_inc_void(ssv);
[all...] |
| /openbsd-current/gnu/usr.bin/perl/ |
| H A D | sv.c | 3188 Perl_sv_copypv_flags(pTHX_ SV *const dsv, SV *const ssv, const I32 flags) argument
3195 s = SvPV_flags_const(ssv,len,(flags & SV_GMAGIC));
3197 if (SvUTF8(ssv))
3694 These copy the contents of the source SV C<ssv> into the destination SV C<dsv>.
3695 C<ssv> may be destroyed if it is mortal, so don't use these functions if
3702 C<sv_setsv> calls 'get' magic on C<ssv>, but skips 'set' magic on C<dsv>.
3704 C<sv_setsv_mg> calls both 'get' magic on C<ssv> and 'set' magic on C<dsv>.
3725 S_glob_assign_glob(pTHX_ SV *const dsv, SV *const ssv, const int dtype) argument
3733 const char * const name = GvNAME(ssv);
3734 const STRLEN len = GvNAMELEN(ssv);
3864 Perl_gv_setref(pTHX_ SV *const dsv, SV *const ssv) argument
4123 Perl_sv_setsv_flags(pTHX_ SV *dsv, SV* ssv, const I32 flags) argument
4830 Perl_sv_setsv_mg(pTHX_ SV *const dsv, SV *const ssv) argument
4841 Perl_sv_setsv_cow(pTHX_ SV *dsv, SV *ssv) argument
14378 Perl_rvpv_dup(pTHX_ SV *const dsv, const SV *const ssv, CLONE_PARAMS *const param) argument
14443 S_sv_dup_hvaux(pTHX_ const SV *const ssv, SV *dsv, CLONE_PARAMS *const param) argument
14524 S_sv_dup_common(pTHX_ const SV *const ssv, CLONE_PARAMS *const param) argument
14906 Perl_sv_dup_inc(pTHX_ const SV *const ssv, CLONE_PARAMS *const param) argument
14913 Perl_sv_dup(pTHX_ const SV *const ssv, CLONE_PARAMS *const param) argument
16575 Perl_sv_cat_decode(pTHX_ SV *dsv, SV *encoding, SV *ssv, int *offset, char *tstr, int tlen) argument
[all...] |
| H A D | mathoms.c | 255 Perl_sv_setsv(pTHX_ SV *dsv, SV *ssv) argument
259 sv_setsv_flags(dsv, ssv, SV_GMAGIC);
800 Perl_sv_copypv(pTHX_ SV *const dsv, SV *const ssv) argument
804 sv_copypv_flags(dsv, ssv, SV_GMAGIC);
|
| H A D | sv.h | 2212 #define sv_setsv(dsv, ssv) \
2213 sv_setsv_flags(dsv, ssv, SV_GMAGIC|SV_DO_COW_SVSETSV)
2214 #define sv_setsv_nomg(dsv, ssv) sv_setsv_flags(dsv, ssv, SV_DO_COW_SVSETSV)
2215 #define sv_catsv(dsv, ssv) sv_catsv_flags(dsv, ssv, SV_GMAGIC)
2216 #define sv_catsv_nomg(dsv, ssv) sv_catsv_flags(dsv, ssv, 0)
2217 #define sv_catsv_mg(dsv, ssv) sv_catsv_flags(dsv, ssv, SV_GMAGI
[all...] |
| H A D | utf8.c | 4271 Perl_sv_uni_display(pTHX_ SV *dsv, SV *ssv, STRLEN pvlim, UV flags)
4274 isREGEXP(ssv) ? RX_WRAPPED((REGEXP*)ssv) : SvPVX_const(ssv);
4279 SvCUR(ssv), pvlim, flags);
|
| H A D | proto.h | 1517 Perl_gv_setref(pTHX_ SV * const dsv, SV * const ssv)
1520 assert(dsv); assert(ssv)
3750 Perl_reg_temp_copy(pTHX_ REGEXP *dsv, REGEXP *ssv);
3752 assert(ssv)
4338 Perl_sv_cat_decode(pTHX_ SV *dsv, SV *encoding, SV *ssv, int *offset, char *tstr, int tlen);
4340 assert(dsv); assert(encoding); assert(ssv); assert(offset); assert(tstr)
4416 Perl_sv_copypv_flags(pTHX_ SV * const dsv, SV * const ssv, const I32 flags);
4418 assert(dsv); assert(ssv)
4421 sv_copypv_nomg(pTHX_ SV * const dsv, SV * const ssv); */
4843 Perl_sv_setsv_flags(pTHX_ SV *dsv, SV *ssv, cons
[all...] |
| H A D | pp.c | 546 SV * const ssv = POPs; local
550 if (!ssv) goto curstash;
551 SvGETMAGIC(ssv);
552 if (SvROK(ssv)) {
553 if (!SvAMAGIC(ssv)) {
559 ptr = SvPV_nomg_const(ssv,len);
561 if (!SvAMAGIC(ssv)) goto frog;
563 else ptr = SvPV_nomg_const(ssv,len);
567 stash = gv_stashpvn(ptr, len, GV_ADD|SvUTF8(ssv));
|
| H A D | regcomp.c | 13152 Copy ssv to dsv, both of which should of type SVt_REGEXP or SVt_PVLV,
13175 Perl_reg_temp_copy(pTHX_ REGEXP *dsv, REGEXP *ssv) argument
13178 struct regexp *const srx = ReANY(ssv);
13225 SvCUR_set(dsv, SvCUR(ssv));
13233 SvFLAGS(dsv) |= SvFLAGS(ssv) & (SVf_POK|SVp_POK|SVf_UTF8);
13234 SvPV_set(dsv, RX_WRAPPED(ssv));
13282 drx->mother_re = ReREFCNT_inc(srx->mother_re ? srx->mother_re : ssv);
|
| /openbsd-current/gnu/usr.bin/perl/cpan/Scalar-List-Utils/ |
| H A D | ListUtil.xs | 119 my_sv_copypv(pTHX_ SV *const dsv, SV *const ssv)
122 const char * const s = SvPV_const(ssv,len);
124 if(SvUTF8(ssv))
|
| /openbsd-current/gnu/usr.bin/perl/cpan/Term-ReadKey/ |
| H A D | ppport.h | 16205 # define sv_catsv_mg(dsv, ssv) \
16208 sv_catsv(TeMpSv,ssv); \
16250 # define sv_setsv_mg(dsv, ssv) \
16253 sv_setsv(TeMpSv,ssv); \
|