/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 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | 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 | av.c | 802 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 D | Peek.xs | 36 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 D | Dumper.xs | 246 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 D | Exacct.xs | 162 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 D | Opcode.xs | 80 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 D | Object.xs | 80 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 D | Normalize.xs | 716 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 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)
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Devel/DProf/ |
H A D | DProf.xs | 367 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 D | POSIX.xs | 1239 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 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;
|