/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
H A D | taint.c | 72 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 D | av.c | 802 SV **svp; local 822 svp = av_fetch(av, key, TRUE); 823 if (svp) { 824 sv = *svp;
|
H A D | universal.c | 62 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 D | pad.c | 494 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 D | gv.c | 257 SV** svp = AvARRAY(av); local 261 SV* sv = *svp++;
|
H A D | pp_hot.c | 497 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 D | pp_sort.c | 1496 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 D | scope.c | 491 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 D | doop.c | 307 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 D | mg.c | 1141 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 D | pp.c | 71 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 D | pp_ctl.c | 1663 SV **svp; local 1674 svp = &THREADSV(PL_op->op_targ); /* per-thread variable */ 1675 SAVEGENERICSV(*svp); 1676 *svp = NEWSV(0,0); 1682 svp = &PAD_SVl(PL_op->op_targ); /* "my" variable */ 1683 SAVESPTR(*svp); 1692 svp = &GvSV(gv); /* symbol table variable */ 1693 SAVEGENERICSV(*svp); 1694 *svp = NEWSV(0,0); 1706 PUSHLOOP(cx, svp, MAR 2961 SV** svp; local [all...] |
H A D | pp_sys.c | 3451 SV **svp; local 3460 if ( (svp = hv_fetch(GvHVn(PL_envgv), "HOME", 4, FALSE)) 3461 || (svp = hv_fetch(GvHVn(PL_envgv), "LOGDIR", 6, FALSE)) 3463 || (svp = hv_fetch(GvHVn(PL_envgv), "SYS$LOGIN", 9, FALSE)) 3469 tmps = SvPV(*svp, n_a);
|
H A D | utf8.c | 1409 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 D | doio.c | 80 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 D | op.c | 218 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 D | util.c | 2371 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 D | sv.c | 4905 SV **svp = AvARRAY(av); local 4908 if (svp[i] == &PL_sv_undef) { 4909 svp[i] = sv; /* reuse the slot */ 4927 SV **svp; local 4934 svp = AvARRAY(av); 4937 if (svp[i] == sv) { 4938 svp[i] = &PL_sv_undef; /* XXX */ 9549 SV **svp; local 9552 svp = AvARRAY(av); 9555 av_push((AV*)nmg->mg_obj,sv_dup(svp[ [all...] |
/osnet-11/usr/src/lib/librdc/common/ |
H A D | netaddrs.c | 525 struct servent *svp; local 532 if ((svp = getservbyname(srvport, proto)) == NULL) 534 port = svp->s_port;
|
H A D | rdcconfig.c | 64 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;
|
/osnet-11/usr/src/lib/libzfs/common/ |
H A D | libzfs_graph.c | 354 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)
|