Home
last modified time | relevance | path

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

/openbsd/gnu/usr.bin/perl/
H A Dpp_sort.c1359 if (tmpsv) { in S_amagic_ncmp()
1360 if (SvIOK(tmpsv)) { in S_amagic_ncmp()
1365 const NV d = SvNV(tmpsv); in S_amagic_ncmp()
1387 if (tmpsv) { in S_amagic_i_ncmp()
1388 if (SvIOK(tmpsv)) { in S_amagic_i_ncmp()
1393 const NV d = SvNV(tmpsv); in S_amagic_i_ncmp()
1415 if (tmpsv) { in S_amagic_cmp()
1416 if (SvIOK(tmpsv)) { in S_amagic_cmp()
1421 const NV d = SvNV(tmpsv); in S_amagic_cmp()
1453 if (tmpsv) { in S_amagic_cmp_locale()
[all …]
H A Ddump.c923 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()
1176 SvCUR(tmpsv) ? SvPVX_const(tmpsv) + 1 : ""); in S_do_op_dump_bar()
1182 SV * tmpsv = NULL; in S_do_op_dump_bar() local
1186 tmpsv = newSVpvs(""); in S_do_op_dump_bar()
1254 sv_catpvs(tmpsv, ","); in S_do_op_dump_bar()
[all …]
H A Dgv.c1415 SvCUR_set(tmpsv, SvCUR(tmpsv) + 1); /* include null in string */ in Perl_gv_autoload_pvn()
3374 SV* tmpsv; in Perl_try_amagic_un() local
3389 SV *targ = tmpsv; in Perl_try_amagic_un()
3587 SV * tmpsv; in Perl_try_amagic_bin() local
3594 if (tmpsv) { in Perl_try_amagic_bin()
3646 SV *tmpsv; in Perl_try_amagic_bin() local
3681 SV *tmpsv = NULL; in Perl_amagic_deref_call() local
3698 if (tmpsv == ref || SvRV(tmpsv) == SvRV(ref)) { in Perl_amagic_deref_call()
3700 return tmpsv; in Perl_amagic_deref_call()
3702 ref = tmpsv; in Perl_amagic_deref_call()
[all …]
H A Dpp_sys.c397 SV *tmpsv; in PP() local
411 len = av_count((AV *)tmpsv); in PP()
423 sv_setsv(targ, tmpsv); in PP()
1699 SV * const tmpsv = sv_newmortal(); in PP() local
3377 if (!tmpsv) in S_try_amagic_ftest()
3380 return SvTRUE(tmpsv) in S_try_amagic_ftest()
3381 ? S_ft_return_true(aTHX_ tmpsv) : S_ft_return_false(aTHX_ tmpsv); in S_try_amagic_ftest()
3680 SV *tmpsv = *PL_stack_sp; in PP() local
3682 name = SvPV_nomg(tmpsv, namelen); in PP()
4150 SV * const tmpsv = sv_newmortal(); in S_dooneliner() local
[all …]
H A 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()
H A 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()
H A 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()
H A Dpp.c5688 SV *tmpsv; variable
5701 tmpsv = POPs;
5704 if (hv_exists_ent(hv, tmpsv, 0))
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);
7717 sv_setsv(tmpsv, val);
[all …]
H A 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()
H A 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()
H A 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()
H A 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()
H A 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/gnu/usr.bin/perl/cpan/Scalar-List-Utils/
H A 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/gnu/usr.bin/perl/dist/IO/
H A 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/gnu/usr.bin/perl/dist/Unicode-Normalize/
H A 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/gnu/usr.bin/perl/dist/Data-Dumper/
H A DDumper.xs1632 SV * const tmpsv = sv_x(aTHX_ NULL, " ", 1, name_len + 3); variable
1634 sv_catsv(newapad, tmpsv);
1635 SvREFCNT_dec(tmpsv);
/openbsd/gnu/usr.bin/perl/ext/B/
H A 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/gnu/usr.bin/perl/vms/
H A 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()