Home
last modified time | relevance | path

Searched refs:svp (Results 1 – 25 of 45) sorted by relevance

12

/mirbsd/src/gnu/usr.bin/perl/ext/DB_File/
DDB_File.xs946 SV ** svp; local
978 svp = hv_fetch( (HV*)SvRV(sv), "GOT", 3, FALSE) ;
979 if (svp && SvOK(*svp))
980 action = (HV*) SvRV(*svp) ;
993 svp = hv_fetch(action, "hash", 4, FALSE);
995 if (svp && SvOK(*svp))
998 RETVAL->hash = newSVsv(*svp) ;
1003 svp = hv_fetch(action, "ffactor", 7, FALSE);
1004 info->db_HA_ffactor = svp ? SvIV(*svp) : 0;
1006 svp = hv_fetch(action, "nelem", 5, FALSE);
[all …]
/mirbsd/src/gnu/usr.bin/perl/ext/Devel/Peek/
DPeek.xs36 SV** svp; in DeadCode()
57 svp = AvARRAY(padlist); in DeadCode()
61 pad = AvARRAY((AV*)svp[i]); in DeadCode()
82 for (j = 1; j < AvFILL((AV*)svp[1]); j++) { /* Vars. */ in DeadCode()
180 SV **svp; in _mstats_to_hv() local
183 svp = hv_fetch(hv, "topbucket", 9, 1); in _mstats_to_hv()
184 sv_setiv(*svp, b->buffer.topbucket); in _mstats_to_hv()
186 svp = hv_fetch(hv, "topbucket_ev", 12, 1); in _mstats_to_hv()
187 sv_setiv(*svp, b->buffer.topbucket_ev); in _mstats_to_hv()
189 svp = hv_fetch(hv, "topbucket_odd", 13, 1); in _mstats_to_hv()
[all …]
/mirbsd/src/gnu/usr.bin/perl/
Dtaint.c75 SV** svp; in Perl_taint_env() local
114 svp = hv_fetch(GvHVn(PL_envgv), name, strlen(name), FALSE); in Perl_taint_env()
115 if (!svp || *svp == &PL_sv_undef) in Perl_taint_env()
117 if (SvTAINTED(*svp)) { in Perl_taint_env()
121 if ((mg = mg_find(*svp, PERL_MAGIC_envelem)) && MgTAINTEDDIR(mg)) { in Perl_taint_env()
130 svp = hv_fetch(GvHVn(PL_envgv),"PATH",4,FALSE); in Perl_taint_env()
131 if (svp && *svp) { in Perl_taint_env()
132 if (SvTAINTED(*svp)) { in Perl_taint_env()
136 if ((mg = mg_find(*svp, PERL_MAGIC_envelem)) && MgTAINTEDDIR(mg)) { in Perl_taint_env()
144 svp = hv_fetch(GvHVn(PL_envgv),"TERM",4,FALSE); in Perl_taint_env()
[all …]
Dpad.c500 SV **svp; in Perl_pad_check_dup() local
507 svp = AvARRAY(PL_comppad_name); in Perl_pad_check_dup()
513 SV * const sv = svp[off]; in Perl_pad_check_dup()
534 SV * const sv = svp[off]; in Perl_pad_check_dup()
573 SV **svp = AvARRAY(PL_comppad_name); in Perl_pad_findmy() local
594 sv = svp[off]; in Perl_pad_findmy()
666 SV **svp; in S_pad_findlex() local
678 svp = av_fetch(curlist, 0, FALSE); in S_pad_findlex()
679 if (!svp || *svp == &PL_sv_undef) in S_pad_findlex()
681 curname = (AV*)*svp; in S_pad_findlex()
[all …]
Duniversal.c69 SV** svp = (SV**)hv_fetch(hv, name, len, FALSE); in S_isa_lookup() local
70 if (svp && (sv = *svp) != (SV*)&PL_sv_undef) { in S_isa_lookup()
103 SV** svp = AvARRAY(av); in S_isa_lookup() local
107 SV* sv = *svp++; in S_isa_lookup()
570 SV **svp; in XS() local
572 for (svp = MARK + 2; svp <= SP; svp += 2) { in XS()
573 SV **varp = svp; in XS()
574 SV **valp = svp + 1; in XS()
Dmg.c1164 SV** svp = 0; in Perl_magic_clearsig() local
1166 svp = &PL_diehook; in Perl_magic_clearsig()
1168 svp = &PL_warnhook; in Perl_magic_clearsig()
1171 if (svp && *svp) { in Perl_magic_clearsig()
1172 SV * const to_dec = *svp; in Perl_magic_clearsig()
1173 *svp = 0; in Perl_magic_clearsig()
1298 SV** svp = 0; in Perl_magic_setsig() local
1313 svp = &PL_diehook; in Perl_magic_setsig()
1315 svp = &PL_warnhook; in Perl_magic_setsig()
1319 if (*svp) { in Perl_magic_setsig()
[all …]
Dpp_hot.c511 SV** svp = av_fetch(av, PL_op->op_private, lval); in PP() local
512 SV *sv = (svp ? *svp : &PL_sv_undef); in PP()
762 SV **svp = av_fetch(av, i, FALSE); in PP() local
764 SP[i+1] = svp in PP()
765 ? SvGMAGICAL(*svp) ? sv_mortalcopy(*svp) : *svp in PP()
1706 SV **svp; in PP() local
1736 svp = he ? &HeVAL(he) : 0; in PP()
1741 svp = avhv_fetch_ent((AV*)hv, keysv, lval && !defer, hash); in PP()
1747 if (!svp || *svp == &PL_sv_undef) { in PP()
1764 if (HvNAME_get(hv) && isGV(*svp)) in PP()
[all …]
Ddoio.c81 int rawmode, int rawperm, PerlIO *supplied_fp, SV **svp, in Perl_do_openn() argument
198 svp = &namesv; in Perl_do_openn()
200 fp = PerlIO_openn(aTHX_ type, mode, -1, rawmode, rawperm, NULL, num_svs, svp); in Perl_do_openn()
222 if (SvROK(*svp) && !strchr(name,'&')) { in Perl_do_openn()
230 name = SvOK(*svp) ? savesvpv (*svp) : savepvn ("", 0); in Perl_do_openn()
288 fp = PerlProc_popen_list(mode, num_svs, svp); in Perl_do_openn()
342 if (num_svs && (SvIOK(*svp) || (SvPOK(*svp) && looks_like_number(*svp)))) { in Perl_do_openn()
343 fd = SvUV(*svp); in Perl_do_openn()
352 thatio = sv_2io(*svp); in Perl_do_openn()
409 if (!(fp = PerlIO_openn(aTHX_ type,mode,fd,0,0,NULL,num_svs,svp))) { in Perl_do_openn()
[all …]
Ddoop.c311 SV** svp = hv_fetch(hv, "NONE", 4, FALSE); in S_do_trans_simple_utf8() local
312 const UV none = svp ? SvUV(*svp) : 0x7fffffff; in S_do_trans_simple_utf8()
334 svp = hv_fetch(hv, "FINAL", 5, FALSE); in S_do_trans_simple_utf8()
335 if (svp) in S_do_trans_simple_utf8()
336 final = SvUV(*svp); in S_do_trans_simple_utf8()
405 SV** const svp = hv_fetch(hv, "NONE", 4, FALSE); in S_do_trans_count_utf8() local
406 const UV none = svp ? SvUV(*svp) : 0x7fffffff; in S_do_trans_count_utf8()
447 SV** svp = hv_fetch(hv, "NONE", 4, FALSE); in S_do_trans_complex_utf8() local
448 const UV none = svp ? SvUV(*svp) : 0x7fffffff; in S_do_trans_complex_utf8()
472 svp = hv_fetch(hv, "FINAL", 5, FALSE); in S_do_trans_complex_utf8()
[all …]
Dutf8.c1480 SV **svp; in Perl_to_utf8_case() local
1483 (svp = hv_fetch(hv, (const char*)tmpbuf, UNISKIP(uv1), FALSE)) && in Perl_to_utf8_case()
1484 (*svp)) { in Perl_to_utf8_case()
1487 s = SvPV_const(*svp, len); in Perl_to_utf8_case()
1498 if (SvUTF8(*svp)) { in Perl_to_utf8_case()
1762 SV** svp = hv_fetch(hv, (const char*)ptr, klen, FALSE); in Perl_swash_fetch() local
1765 if (!svp || !SvPOK(*svp) || !(tmps = (const U8*)SvPV_const(*svp, slen))) { in Perl_swash_fetch()
1800 svp = hv_store(hv, (const char *)ptr, klen, retval, 0); in Perl_swash_fetch()
1802 if (!svp || !(tmps = (U8*)SvPV(*svp, slen)) || (slen << 3) < needents) in Perl_swash_fetch()
Dscope.c498 SV **svp = &THREADSV(i); /* XXX Change to save by offset */ in Perl_save_threadsv() local
500 (UV)i, svp, *svp, SvPEEK(*svp))); in Perl_save_threadsv()
501 save_svref(svp); in Perl_save_threadsv()
502 return svp; in Perl_save_threadsv()
569 Perl_save_clearsv(pTHX_ SV **svp) in Perl_save_clearsv() argument
573 SSPUSHLONG((long)(svp-PL_curpad)); in Perl_save_clearsv()
Dpp.c86 SV ** const svp = av_fetch((AV*)TARG, i, FALSE); in PP() local
87 SP[i+1] = (svp) ? *svp : &PL_sv_undef; in PP()
3774 register SV **svp; in PP() local
3776 for (svp = MARK + 1; svp <= SP; svp++) { in PP()
3777 const I32 elem = SvIVx(*svp); in PP()
3785 register SV **svp; in PP() local
3790 svp = av_fetch(av, elem, lval); in PP()
3792 if (!svp || *svp == &PL_sv_undef) in PP()
3795 save_aelem(av, elem, svp); in PP()
3797 *MARK = svp ? *svp : &PL_sv_undef; in PP()
[all …]
Dop.c273 SV **svp; in Perl_find_threadsv() local
280 svp = av_fetch(thr->threadsv, key, FALSE); in Perl_find_threadsv()
281 if (svp) in Perl_find_threadsv()
1579 SV * const * const svp = hv_fetch(GvHVn(PL_incgv), ATTRSMODULE_PM, in S_apply_attrs() local
1581 if (svp && *svp != &PL_sv_undef) in S_apply_attrs()
3501 SV * const * const svp = av_fetch(CopFILEAV(PL_curcop), (I32)CopLINE(cop), FALSE); in Perl_newSTATEOP() local
3502 if (svp && *svp != &PL_sv_undef ) { in Perl_newSTATEOP()
3503 (void)SvIOK_on(*svp); in Perl_newSTATEOP()
3504 SvIV_set(*svp, PTR2IV(cop)); in Perl_newSTATEOP()
5095 SV * const * const svp = hv_fetch(table, "vmsish_exit", 11, FALSE); in Perl_ck_exit() local
[all …]
/mirbsd/src/usr.sbin/eeprom/
Deehandlers.c188 struct strvaltabent *svp; in ee_screensize() local
192 for (svp = scrsizetab; svp->sv_str != NULL; ++svp) in ee_screensize()
193 if (strcmp(svp->sv_str, arg) == 0) in ee_screensize()
195 if (svp->sv_str == NULL) in ee_screensize()
198 scsize = svp->sv_val; in ee_screensize()
205 for (svp = scrsizetab; svp->sv_str != NULL; ++svp) in ee_screensize()
206 if (svp->sv_val == scsize) in ee_screensize()
208 if (svp->sv_str == NULL) { in ee_screensize()
214 printf("%s=%s\n", ktent->kt_keyword, svp->sv_str); in ee_screensize()
227 struct strvaltabent *svp; in ee_truefalse() local
[all …]
/mirbsd/src/gnu/usr.bin/perl/ext/Data/Dumper/
DDumper.xs250 SV **svp; in DD_dump() local
296 if ((svp = hv_fetch(seenhv, id, idlen, FALSE)) in DD_dump()
297 && (sv = *svp) && SvROK(sv) && (seenentry = (AV*)SvRV(sv))) in DD_dump()
300 if ((svp = av_fetch(seenentry, 0, FALSE)) in DD_dump()
301 && (othername = *svp)) in DD_dump()
486 svp = av_fetch((AV*)ival, ix, FALSE); in DD_dump()
487 if (svp) in DD_dump()
488 elem = *svp; in DD_dump()
628 svp = av_fetch(keys, i, FALSE); in DD_dump()
629 keysv = svp ? *svp : sv_mortalcopy(&PL_sv_undef); in DD_dump()
[all …]
/mirbsd/src/gnu/usr.bin/perl/ext/List/Util/
Dmulticall.h39 SV** const svp = AvARRAY(padlist); in multicall_pad_push() local
41 SV** const oldpad = AvARRAY(svp[depth-1]); in multicall_pad_push()
42 I32 ix = AvFILLp((AV*)svp[1]); in multicall_pad_push()
43 const I32 names_fill = AvFILLp((AV*)svp[0]); in multicall_pad_push()
44 SV** const names = AvARRAY(svp[0]); in multicall_pad_push()
/mirbsd/src/gnu/usr.bin/perl/ext/Opcode/
DOpcode.xs79 SV **svp; in put_op_bitspec() local
85 svp = hv_fetch(op_named_bits, optag, len, 1); in put_op_bitspec()
86 if (SvOK(*svp)) in put_op_bitspec()
88 sv_setsv(*svp, mask); in put_op_bitspec()
89 SvREADONLY_on(*svp); in put_op_bitspec()
102 SV **svp; in get_op_bitspec() local
107 svp = hv_fetch(op_named_bits, opname, len, 0); in get_op_bitspec()
108 if (!svp || !SvOK(*svp)) { in get_op_bitspec()
119 return *svp; in get_op_bitspec()
/mirbsd/src/gnu/usr.bin/perl/ext/Thread/
DThread.xs598 SV ** svp; variable
633 svp = AvARRAY(av);
635 SV *sv = (SV*)SvRV(*svp);
641 svp++;
649 for (svp = AvARRAY(av); n > 0; n--, svp++)
650 PUSHs(*svp);
/mirbsd/src/gnu/usr.bin/perl/ext/threads/shared/
Dshared.xs625 SV** svp; in sharedsv_elem_mg_FETCH() local
634 svp = av_fetch((AV*) SHAREDSvPTR(shared), mg->mg_len, 0); in sharedsv_elem_mg_FETCH()
644 svp = hv_fetch((HV*) SHAREDSvPTR(shared), key, len, 0); in sharedsv_elem_mg_FETCH()
647 if (svp) { in sharedsv_elem_mg_FETCH()
649 if (SvROK(*svp)) { in sharedsv_elem_mg_FETCH()
651 Perl_sharedsv_associate(aTHX_ &obj, SvRV(*svp), NULL); in sharedsv_elem_mg_FETCH()
658 target = Perl_sharedsv_associate(aTHX_ &sv, *svp, target); in sharedsv_elem_mg_FETCH()
659 sv_setsv(sv, *svp); in sharedsv_elem_mg_FETCH()
676 SV **svp; in sharedsv_elem_mg_STORE() local
687 svp = av_fetch((AV*) SHAREDSvPTR(shared), mg->mg_len, 1); in sharedsv_elem_mg_STORE()
[all …]
/mirbsd/src/gnu/usr.bin/perl/ext/Unicode/Normalize/
DNormalize.xs689 SV *svp;
706 svp = sv_2mortal(newSVpvn((char*)s, p - s));
707 SvUTF8_on(svp);
708 XPUSHs(svp);
710 svp = sv_2mortal(newSVpvn((char*)p, e - p));
711 SvUTF8_on(svp);
712 XPUSHs(svp);
/mirbsd/src/usr.sbin/procmap/
Dprocmap.c854 struct kbit svp; in search_cache() local
860 P(&svp) = P(vp); in search_cache()
861 S(&svp) = sizeof(struct vnode); in search_cache()
868 if (ce->ce_vp == P(&svp) && ce->ce_cid == cid) in search_cache()
870 if (ce && ce->ce_vp == P(&svp) && ce->ce_cid == cid) { in search_cache()
877 P(&svp) = ce->ce_pvp; in search_cache()
888 KDEREF(kd, &svp); in search_cache()
889 return (D(&svp, vnode)->v_flag & VROOT); in search_cache()
/mirbsd/src/libexec/login_radius/
Draddauth.c154 struct servent *svp; in raddauth() local
211 svp = getservbyname ("radius", "udp"); in raddauth()
212 if (svp == NULL) { in raddauth()
231 sin.sin_port = svp->s_port; in raddauth()
/mirbsd/src/gnu/usr.bin/perl/ext/POSIX/
DPOSIX.xs1371 if(SvPOK(*svp)) {
1372 const char *s=SvPVX_const(*svp);
1382 svp = hv_fetch(action, "MASK", 4, FALSE);
1383 if (svp && sv_isa(*svp, "POSIX::SigSet")) {
1384 IV tmp = SvIV((SV*)SvRV(*svp));
1392 svp = hv_fetch(action, "FLAGS", 5, FALSE);
1393 act.sa_flags = svp ? SvIV(*svp) : 0;
/mirbsd/src/gnu/usr.bin/perl/ext/Devel/DProf/
DDProf.xs364 SV **svp; in prof_mark() local
376 svp = hv_fetch(g_cv_hash, SvPVX_const(g_key_hash), SvCUR(g_key_hash), TRUE); in prof_mark()
377 if (!SvOK(*svp)) { in prof_mark()
378 sv_setiv(*svp, id = ++g_lastid); in prof_mark()
399 id = SvIV(*svp); in prof_mark()
/mirbsd/src/gnu/usr.bin/perl/wince/
Dwince.c132 get_regstr_from(HKEY hkey, const char *valuename, SV **svp) in get_regstr_from() argument
147 if (!*svp) in get_regstr_from()
148 *svp = sv_2mortal(newSVpvn("",0)); in get_regstr_from()
149 SvGROW(*svp, datalen); in get_regstr_from()
151 (PBYTE)SvPVX(*svp), &datalen); in get_regstr_from()
153 str = SvPVX(*svp); in get_regstr_from()
154 SvCUR_set(*svp,datalen-1); in get_regstr_from()
164 get_regstr(const char *valuename, SV **svp) in get_regstr() argument
166 char *str = get_regstr_from(HKEY_CURRENT_USER, valuename, svp); in get_regstr()
168 str = get_regstr_from(HKEY_LOCAL_MACHINE, valuename, svp); in get_regstr()

12