Home
last modified time | relevance | path

Searched refs:tmpsv (Results 1 – 19 of 19) sorted by relevance

/openbsd/src/gnu/usr.bin/perl/
Dpp_sort.c1355 SV * const tmpsv = tryCALL_AMAGICbin(a,b,ncmp_amg); in S_amagic_ncmp() local
1359 if (tmpsv) { in S_amagic_ncmp()
1360 if (SvIOK(tmpsv)) { in S_amagic_ncmp()
1361 const I32 i = SvIVX(tmpsv); in S_amagic_ncmp()
1365 const NV d = SvNV(tmpsv); in S_amagic_ncmp()
1383 SV * const tmpsv = tryCALL_AMAGICbin(a,b,ncmp_amg); in S_amagic_i_ncmp() local
1387 if (tmpsv) { in S_amagic_i_ncmp()
1388 if (SvIOK(tmpsv)) { in S_amagic_i_ncmp()
1389 const I32 i = SvIVX(tmpsv); in S_amagic_i_ncmp()
1393 const NV d = SvNV(tmpsv); in S_amagic_i_ncmp()
[all …]
Ddump.c921 SV * const tmpsv = pm_description(pm); in S_do_pmop_dump_bar() local
923 SvCUR(tmpsv) ? SvPVX_const(tmpsv) + 1 : ""); in S_do_pmop_dump_bar()
924 SvREFCNT_dec_NN(tmpsv); in S_do_pmop_dump_bar()
1154 SV * const tmpsv = newSVpvs(""); in S_do_op_dump_bar() local
1157 sv_catpvs(tmpsv, ",VOID"); in S_do_op_dump_bar()
1160 sv_catpvs(tmpsv, ",SCALAR"); in S_do_op_dump_bar()
1163 sv_catpvs(tmpsv, ",LIST"); in S_do_op_dump_bar()
1166 sv_catpvs(tmpsv, ",UNKNOWN"); in S_do_op_dump_bar()
1169 append_flags(tmpsv, o->op_flags, op_flags_names); in S_do_op_dump_bar()
1170 if (o->op_slabbed) sv_catpvs(tmpsv, ",SLABBED"); in S_do_op_dump_bar()
[all …]
Dgv.c1408 SV * const tmpsv = newSVpvn_flags(name, len, is_utf8); in Perl_gv_autoload_pvn() local
1413 sv_utf8_upgrade_flags_grow(tmpsv, 0, CvPROTOLEN(cv) + 2); in Perl_gv_autoload_pvn()
1414 ulen = SvCUR(tmpsv); in Perl_gv_autoload_pvn()
1415 SvCUR_set(tmpsv, SvCUR(tmpsv) + 1); /* include null in string */ in Perl_gv_autoload_pvn()
1417 tmpsv, proto, CvPROTOLEN(cv), SV_CATBYTES*!SvUTF8(cv) in Perl_gv_autoload_pvn()
1419 SvTEMP_on(tmpsv); /* Allow theft */ in Perl_gv_autoload_pvn()
1420 sv_setsv_nomg((SV *)cv, tmpsv); in Perl_gv_autoload_pvn()
1421 SvTEMP_off(tmpsv); in Perl_gv_autoload_pvn()
1422 SvREFCNT_dec_NN(tmpsv); in Perl_gv_autoload_pvn()
3374 SV* tmpsv; in Perl_try_amagic_un() local
[all …]
Dpp_sys.c397 SV *tmpsv; in PP() local
400 (tmpsv = amagic_call(arg, &PL_sv_undef, iter_amg, in PP()
410 assert(SvTYPE(tmpsv) == SVt_PVAV); in PP()
411 len = av_count((AV *)tmpsv); in PP()
419 rpp_push_1(av_shift((AV *)tmpsv)); in PP()
423 sv_setsv(targ, tmpsv); in PP()
1699 SV * const tmpsv = sv_newmortal(); in PP() local
1700 gv_efullname4(tmpsv, fgv, NULL, FALSE); in PP()
1701 DIE(aTHX_ "Undefined format \"%" SVf "\" called", SVfARG(tmpsv)); in PP()
3373 SV * const tmpsv = amagic_call(arg, in S_try_amagic_ftest() local
[all …]
Dclass.c440 SV *tmpsv = newSVpvn(start, p - start); in S_split_package_ver() local
441 SAVEFREESV(tmpsv); in S_split_package_ver()
443 scan_version(SvPVX(tmpsv), pkgversion, FALSE); in S_split_package_ver()
Dinline.h287 SV * tmpsv; in S_strip_spaces() local
289 tmpsv = newSVpvn_flags(orig, *len, SVs_TEMP); in S_strip_spaces()
290 tmps = SvPVX(tmpsv); in S_strip_spaces()
297 *len = tmps - SvPVX(tmpsv); in S_strip_spaces()
298 return SvPVX(tmpsv); in S_strip_spaces()
Dpp_hot.c1383 SV * const tmpsv = amagic_call(left, right, concat_amg, in PP() local
1385 if (tmpsv) { in PP()
1391 sv_setsv(left, tmpsv); in PP()
1395 left = tmpsv; in PP()
1597 SV *tmpsv; in PP() local
1600 (tmpsv = amagic_call(arg, &PL_sv_undef, iter_amg, in PP()
1610 assert(SvTYPE(tmpsv) == SVt_PVAV); in PP()
1611 len = av_count((AV *)tmpsv); in PP()
1621 rpp_push_1(av_shift((AV *)tmpsv)); in PP()
1629 sv_setsv(targ, tmpsv); in PP()
Dpp.c5688 SV *tmpsv; variable
5701 tmpsv = POPs;
5704 if (hv_exists_ent(hv, tmpsv, 0))
5709 if (av_exists(MUTABLE_AV(hv), SvIV(tmpsv)))
7668 SV *tmpsv; variable
7671 tmpsv = newSV_type(SVt_NULL);
7672 sv_setsv(tmpsv, val);
7673 av_store((AV*)targ, i++, tmpsv);
7703 SV *tmpsv; variable
7716 tmpsv = newSV_type(SVt_NULL);
[all …]
Dutil.c3373 SV * const tmpsv = sv_newmortal(); in Perl_same_dirent() local
3388 sv_setpvs(tmpsv, "."); in Perl_same_dirent()
3390 sv_setpvn(tmpsv, a, fa - a); in Perl_same_dirent()
3391 if (PerlLIO_stat(SvPVX_const(tmpsv), &tmpstatbuf1) < 0) in Perl_same_dirent()
3394 sv_setpvs(tmpsv, "."); in Perl_same_dirent()
3396 sv_setpvn(tmpsv, b, fb - b); in Perl_same_dirent()
3397 if (PerlLIO_stat(SvPVX_const(tmpsv), &tmpstatbuf2) < 0) in Perl_same_dirent()
Dpp_ctl.c5824 SV * tmpsv; in S_do_smartmatch() local
5828 tmpsv = amagic_call(d, e, smart_amg, AMGf_noleft); in S_do_smartmatch()
5829 if (tmpsv) { in S_do_smartmatch()
5830 rpp_replace_2_1_NN(tmpsv); in S_do_smartmatch()
6201 SV *tmpsv; in S_do_smartmatch() local
6204 tmpsv = amagic_call(d, e, smart_amg, AMGf_noright); in S_do_smartmatch()
6205 if (tmpsv) { in S_do_smartmatch()
6206 rpp_replace_2_1_NN(tmpsv); in S_do_smartmatch()
Dsv.c2767 SV * const tmpsv = AMG_CALLunary(sv, numer_amg); in Perl_sv_2num() local
2768 TAINT_IF(tmpsv && SvTAINTED(tmpsv)); in Perl_sv_2num()
2769 if (tmpsv && (!SvROK(tmpsv) || (SvRV(tmpsv) != SvRV(sv)))) in Perl_sv_2num()
2770 return sv_2num(tmpsv); in Perl_sv_2num()
3368 SV * const tmpsv = AMG_CALLunary(sv, bool__amg); in Perl_sv_2bool_flags() local
3369 if (tmpsv && (!SvROK(tmpsv) || (SvRV(tmpsv) != SvRV(sv)))) { in Perl_sv_2bool_flags()
3371 sv = tmpsv; in Perl_sv_2bool_flags()
Dtoke.c1838 SV *tmpsv = newSVpvs_flags("", SVs_TEMP); in Perl_validate_proto() local
1841 ? sv_uni_display(tmpsv, newSVpvn_flags(p, origlen, SVs_TEMP | SVf_UTF8), in Perl_validate_proto()
1843 : pv_pretty(tmpsv, p, origlen, 60, NULL, NULL, PERL_PV_ESCAPE_NONASCII); in Perl_validate_proto()
Dop.c3985 SV * const tmpsv = newSVpvn_flags(pv + 10, pvlen - 11, SvUTF8(cSVOPo_sv)); in S_move_proto_attr() local
3988 *tmpo = tmpsv; in S_move_proto_attr()
4001 SV * const tmpsv = newSVpvn_flags(pv + 10, pvlen - 11, SvUTF8(cSVOPo_sv)); in S_move_proto_attr() local
4004 *tmpo = tmpsv; in S_move_proto_attr()
/openbsd/src/gnu/usr.bin/perl/cpan/Scalar-List-Utils/
DListUtil.xs294 SV *tmpsv; in min() local
296 if((magic || SvAMAGIC(stacksv)) && (tmpsv = amagic_call(retsv, stacksv, gt_amg, 0))) { in min()
297 if(SvTRUE(tmpsv) ? !ix : ix) { in min()
339 SV *tmpsv; in sum() local
374 tmpsv = amagic_call(retsv, sv, in sum()
377 if(tmpsv) { in sum()
378 switch((accum = accum_type(tmpsv))) { in sum()
380 retsv = tmpsv; in sum()
383 retiv = SvIV(tmpsv); in sum()
386 retnv = slu_sv_value(tmpsv); in sum()
/openbsd/src/gnu/usr.bin/perl/dist/IO/
DIO.xs263 SV *tmpsv = sv_2mortal(NEWSV(999,nfd * sizeof(struct pollfd))); local
267 struct pollfd *fds = nfd ? (struct pollfd *)SvPVX(tmpsv) : (struct pollfd *)tmpsv;
/openbsd/src/gnu/usr.bin/perl/dist/Unicode-Normalize/
DNormalize.xs199 SV* tmpsv = sv_2mortal(newSVpvn(s, len)); in sv_2pvunicode() local
200 if (!SvPOK(tmpsv)) in sv_2pvunicode()
201 s = SvPV_force(tmpsv,len); in sv_2pvunicode()
202 sv_utf8_upgrade(tmpsv); in sv_2pvunicode()
203 s = SvPV(tmpsv,len); in sv_2pvunicode()
/openbsd/src/gnu/usr.bin/perl/dist/Data-Dumper/
DDumper.xs1632 SV * const tmpsv = sv_x(aTHX_ NULL, " ", 1, name_len + 3); variable
1634 sv_catsv(newapad, tmpsv);
1635 SvREFCNT_dec(tmpsv);
/openbsd/src/gnu/usr.bin/perl/ext/B/
DB.xs252 SV *tmpsv = sv_newmortal(); /* Temporary SV to feed sv_uni_display */ in cstring() local
254 const char *s = sv_uni_display(tmpsv, sv, 8*len, UNI_DISPLAY_QQ); in cstring()
/openbsd/src/gnu/usr.bin/perl/vms/
Dvms.c1077 SV *tmpsv; in Perl_my_getenv() local
1084 tmpsv = sv_2mortal(newSVpv("",(LNM$C_NAMLENGTH*midx)+1)); in Perl_my_getenv()
1085 if (!tmpsv) return NULL; in Perl_my_getenv()
1086 eqv = SvPVX(tmpsv); in Perl_my_getenv()
1173 SV *tmpsv; in Perl_my_getenv_len() local
1180 tmpsv = sv_2mortal(newSVpv("",(LNM$C_NAMLENGTH*midx)+1)); in Perl_my_getenv_len()
1181 if (!tmpsv) return NULL; in Perl_my_getenv_len()
1182 buf = SvPVX(tmpsv); in Perl_my_getenv_len()