Searched refs:svp (Results 1 - 25 of 31) sorted by relevance

12

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dtaint.c72 SV** svp; local
94 svp = hv_fetch(GvHVn(PL_envgv), name, strlen(name), FALSE);
95 if (!svp || *svp == &PL_sv_undef)
97 if (SvTAINTED(*svp)) {
101 if ((mg = mg_find(*svp, PERL_MAGIC_envelem)) && MgTAINTEDDIR(mg)) {
110 svp = hv_fetch(GvHVn(PL_envgv),"PATH",4,FALSE);
111 if (svp && *svp) {
112 if (SvTAINTED(*svp)) {
[all...]
H A Dpad.c494 SV **svp, *sv; local
501 svp = AvARRAY(PL_comppad_name);
507 if ((sv = svp[off])
527 if ((sv = svp[off])
565 SV **svp = AvARRAY(PL_comppad_name); local
586 sv = svp[off];
658 SV **svp; local
670 svp = av_fetch(curlist, 0, FALSE);
671 if (!svp || *svp
910 SV **svp; local
953 SV **svp = AvARRAY(PL_comppad_name); local
1498 SV** svp = AvARRAY(padlist); local
[all...]
H A Duniversal.c62 SV** svp = (SV**)hv_fetch(hv, name, len, FALSE); local
63 if (svp && (sv = *svp) != (SV*)&PL_sv_undef) {
96 SV** svp = AvARRAY(av); local
100 SV* sv = *svp++;
574 SV **svp; local
576 for (svp = MARK + 2; svp <= SP; svp += 2) {
577 SV **varp = svp;
[all...]
H A Dmg.c1141 SV** svp; local
1143 svp = &PL_diehook;
1145 svp = &PL_warnhook;
1148 if (*svp) {
1149 to_dec = *svp;
1150 *svp = 0;
1277 SV** svp = 0; local
1292 svp = &PL_diehook;
1294 svp = &PL_warnhook;
1298 if (*svp) {
1623 SV** svp; local
1865 SV **svp = avhv_fetch_ent((AV*)ahv, mg->mg_obj, FALSE, 0); local
1920 SV **svp = avhv_fetch_ent((AV*)ahv, mg->mg_obj, TRUE, 0); local
1932 SV** svp = av_fetch(av, LvTARGOFF(sv), TRUE); local
1950 SV **svp = AvARRAY(av); local
[all...]
H A Ddoop.c307 SV** svp = hv_fetch(hv, "NONE", 4, FALSE); local
308 UV none = svp ? SvUV(*svp) : 0x7fffffff;
330 svp = hv_fetch(hv, "FINAL", 5, FALSE);
331 if (svp)
332 final = SvUV(*svp);
402 SV** svp = hv_fetch(hv, "NONE", 4, FALSE); local
403 UV none = svp ? SvUV(*svp) : 0x7fffffff;
444 SV** svp local
[all...]
H A Dpp_hot.c497 SV** svp = av_fetch(av, PL_op->op_private, lval); local
498 SV *sv = (svp ? *svp : &PL_sv_undef);
748 SV **svp = av_fetch(av, i, FALSE); local
750 SP[i+1] = svp
751 ? SvGMAGICAL(*svp) ? sv_mortalcopy(*svp) : *svp
1700 SV **svp; local
1730 svp
1915 SV **svp = av_fetch(av, ++cx->blk_loop.iterix, FALSE); local
2524 S_get_db_sub(pTHX_ SV **svp, CV *cv) argument
2738 SV **svp; local
2980 SV** svp; local
[all...]
H A Ddoio.c80 int rawmode, int rawperm, PerlIO *supplied_fp, SV **svp,
198 svp = &namesv;
200 fp = PerlIO_openn(aTHX_ type, mode, -1, rawmode, rawperm, NULL, num_svs, svp);
224 if (SvROK(*svp) && !strchr(name,'&')) {
232 name = SvOK(*svp) ? SvPV(*svp, l) : "";
286 fp = PerlProc_popen_list(mode, num_svs, svp);
335 if (num_svs && (SvIOK(*svp) || (SvPOK(*svp) && looks_like_number(*svp)))) {
79 Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV **svp, I32 num_svs) argument
[all...]
H A Dscope.c491 SV **svp = &THREADSV(i); /* XXX Change to save by offset */ local
493 (UV)i, svp, *svp, SvPEEK(*svp)));
494 save_svref(svp);
495 return svp;
561 Perl_save_clearsv(pTHX_ SV **svp) argument
565 SSPUSHLONG((long)(svp-PL_curpad));
H A Dutf8.c1409 SV **svp; local
1412 (svp = hv_fetch(hv, (const char*)tmpbuf, UNISKIP(uv1), FALSE)) &&
1413 (*svp)) {
1416 s = SvPV(*svp, len);
1427 if (SvUTF8(*svp)) {
1691 SV** svp = hv_fetch(hv, (char*)ptr, klen, FALSE); local
1694 if (!svp || !SvPOK(*svp) || !(tmps = (U8*)SvPV(*svp, slen))) {
1729 svp
[all...]
H A Dpp.c71 SV **svp = av_fetch((AV*)TARG, i, FALSE); local
72 SP[i+1] = (svp) ? *svp : &PL_sv_undef;
3673 register SV** svp; local
3682 for (svp = MARK + 1; svp <= SP; svp++) {
3683 elem = SvIVx(*svp);
3695 svp = av_fetch(av, elem, lval);
3697 if (!svp || *sv
3891 SV **svp; local
4687 SV **svp = av_fetch(ary, i, FALSE); local
[all...]
H A Dop.c218 SV **svp; local
225 svp = av_fetch(thr->threadsv, key, FALSE);
226 if (svp)
1502 SV **svp; local
1504 svp = hv_fetch(GvHVn(PL_incgv), ATTRSMODULE_PM,
1506 if (svp && *svp != &PL_sv_undef)
3406 SV **svp = av_fetch(CopFILEAV(PL_curcop), (I32)CopLINE(cop), FALSE); local
3407 if (svp && *svp !
4971 SV **svp = hv_fetch(table, "vmsish_exit", 11, FALSE); local
5720 SV **svp; local
6594 SV **svp, **indsvp, *sv; local
6655 SV **svp, **indsvp, *sv; local
[all...]
H A Dpp_sort.c1496 SV **svp = av_fetch(av, i, FALSE); local
1497 *SP++ = (svp) ? *svp : Nullsv;
1744 #define tryCALL_AMAGICbin(left,right,meth,svp) STMT_START { \
1745 *svp = Nullsv; \
1748 *svp = amagic_call(left, \
H A Dutil.c2371 SV **svp; local
2384 svp = av_fetch(PL_fdpid,PerlIO_fileno(ptr),TRUE);
2386 pid = (SvTYPE(*svp) == SVt_IV) ? SvIVX(*svp) : -1;
2387 SvREFCNT_dec(*svp);
2388 *svp = &PL_sv_undef;
2437 SV** svp; local
2442 svp = hv_fetch(PL_pidstatus,spid,strlen(spid),FALSE);
2443 if (svp && *svp !
3030 SV **svp; local
[all...]
H A Dav.c802 SV **svp; local
822 svp = av_fetch(av, key, TRUE);
823 if (svp) {
824 sv = *svp;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Devel/Peek/
H A DPeek.xs36 SV** svp;
57 svp = AvARRAY(padlist);
61 pad = AvARRAY((AV*)svp[i]);
82 for (j = 1; j < AvFILL((AV*)svp[1]); j++) { /* Vars. */
180 SV **svp;
183 svp = hv_fetch(hv, "topbucket", 9, 1);
184 sv_setiv(*svp, b->buffer.topbucket);
186 svp = hv_fetch(hv, "topbucket_ev", 12, 1);
187 sv_setiv(*svp, b->buffer.topbucket_ev);
189 svp
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Data/Dumper/
H A DDumper.xs246 SV **svp;
292 if ((svp = hv_fetch(seenhv, id, idlen, FALSE))
293 && (sv = *svp) && SvROK(sv) && (seenentry = (AV*)SvRV(sv)))
296 if ((svp = av_fetch(seenentry, 0, FALSE))
297 && (othername = *svp))
482 svp = av_fetch((AV*)ival, ix, FALSE);
483 if (svp)
484 elem = *svp;
622 svp = av_fetch(keys, i, FALSE);
623 keysv = svp
[all...]
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/
H A DExacct.xs162 SV **svp;
171 svp = hv_fetch(IdValueHash, key, strlen(key), FALSE);
172 if (svp == NULL) {
179 hv = (HV *)SvRV(*svp);
181 svp = hv_fetch(hv, "value", 5, FALSE);
182 PERL_ASSERT(svp != NULL);
183 cat_hash = (HV *)SvRV(*svp);
195 svp = hv_fetch(cat_hash, key, strlen(key), TRUE);
196 if (svp == NULL) {
199 return (SvPVX(*svp));
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Opcode/
H A DOpcode.xs80 SV **svp;
86 svp = hv_fetch(op_named_bits, optag, len, 1);
87 if (SvOK(*svp))
89 sv_setsv(*svp, mask);
90 SvREADONLY_on(*svp);
103 SV **svp;
108 svp = hv_fetch(op_named_bits, opname, len, 0);
109 if (!svp || !SvOK(*svp)) {
120 return *svp;
[all...]
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/Object/
H A DObject.xs80 SV **svp;
83 if ((svp = av_fetch(src_av, i, FALSE)) != NULL) {
84 sv = copy_xs_ea_object(*svp);
315 SV **svp;
317 if ((svp = av_fetch(av, i, FALSE)) == NULL) {
320 PERL_ASSERT(*svp != NULL);
321 PUSHs(sv_2mortal(SvREFCNT_inc(*svp)));
551 SV **svp, *val;
556 if ((svp = av_fetch(av, i, FALSE)) == NULL) {
559 PERL_ASSERT(*svp !
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Unicode/Normalize/
H A DNormalize.xs716 SV *src, *svp;
739 svp = sv_2mortal(newSVpvn((char*)s, p - s));
740 SvUTF8_on(svp);
741 XPUSHs(svp);
743 svp = sv_2mortal(newSVpvn((char*)p, e - p));
744 SvUTF8_on(svp);
745 XPUSHs(svp);
/osnet-11/usr/src/lib/libzfs/common/
H A Dlibzfs_graph.c354 zfs_vertex_t *svp, *dvp; local
356 if ((svp = zfs_graph_lookup(hdl, zgp, source, 0)) == NULL)
358 svp->zv_visited = VISIT_SEEN;
363 if (zfs_vertex_add_edge(hdl, svp, dvp) != 0)
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Devel/DProf/
H A DDProf.xs367 SV **svp;
380 svp = hv_fetch(g_cv_hash, SvPVX(g_key_hash), SvCUR(g_key_hash), TRUE);
381 if (!SvOK(*svp)) {
382 sv_setiv(*svp, id = ++g_lastid);
403 id = SvIV(*svp);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/POSIX/
H A DPOSIX.xs1239 SV** svp;
1291 svp = hv_fetch(oldaction, "HANDLER", 7, TRUE);
1292 if(!svp)
1295 sv_setsv(*svp, *sigsvp);
1298 sv_setpv(*svp, "DEFAULT");
1304 svp = hv_fetch(oldaction, "MASK", 4, TRUE);
1305 if (sv_isa(*svp, "POSIX::SigSet")) {
1306 IV tmp = SvIV((SV*)SvRV(*svp));
1311 sv_setptrobj(*svp, sigset, "POSIX::SigSet");
1316 svp
[all...]
/osnet-11/usr/src/lib/librdc/common/
H A Dnetaddrs.c525 struct servent *svp; local
532 if ((svp = getservbyname(srvport, proto)) == NULL)
534 port = svp->s_port;
H A Drdcconfig.c64 struct netbuf svaddr, *svp; variable in typeref:struct:
259 svp = get_addr(toname, RDC_PROGRAM, RDC_VERS_MIN,
261 if (svp == NULL)
263 svaddr = *svp;
273 svp = get_addr(fromname, RDC_PROGRAM, RDC_VERS_MIN,
275 if (svp == NULL)
277 svaddr = *svp;

Completed in 75 milliseconds

12