/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
H A D | scope.c | 185 SV* sv = PL_tmps_stack[PL_tmps_ix]; local 187 if (sv && sv != &PL_sv_undef) { 188 SvTEMP_off(sv); 189 SvREFCNT_dec(sv); /* note, can modify tmps_ix!!! */ 197 register SV *sv; local 200 sv = *sptr = NEWSV(0,0); 202 sv_upgrade(sv, SvTYPE(osv)); 216 SvMAGIC(sv) = SvMAGIC(osv); 217 SvFLAGS(sv) | 374 register SV *sv = NEWSV(0,0); local 529 Perl_save_freesv(pTHX_ SV *sv) argument 537 Perl_save_mortalizesv(pTHX_ SV *sv) argument 582 register SV *sv; local 616 SV *sv; local 638 SV *sv; local 682 register SV *sv; local [all...] |
H A D | doop.c | 24 S_do_trans_simple(pTHX_ SV *sv) argument 40 s = (U8*)SvPV(sv, len); 44 if (!SvUTF8(sv)) { 53 SvSETMAGIC(sv); 81 sv_setpvn(sv, (char*)dstart, d - dstart); 86 SvCUR_set(sv, d - dstart); 88 SvUTF8_on(sv); 89 SvSETMAGIC(sv); 94 S_do_trans_count(pTHX_ SV *sv) argument 107 s = (U8*)SvPV(sv, le 132 S_do_trans_complex(pTHX_ SV *sv) argument 294 S_do_trans_simple_utf8(pTHX_ SV *sv) argument 393 S_do_trans_count_utf8(pTHX_ SV *sv) argument 433 S_do_trans_complex_utf8(pTHX_ SV *sv) argument 595 Perl_do_trans(pTHX_ SV *sv) argument 643 Perl_do_join(pTHX_ register SV *sv, SV *del, register SV **mark, register SV **sp) argument 700 Perl_do_sprintf(pTHX_ SV *sv, I32 len, SV **sarg) argument 717 Perl_do_vecget(pTHX_ SV *sv, I32 offset, I32 size) argument 855 Perl_do_vecset(pTHX_ SV *sv) argument 936 Perl_do_chop(pTHX_ register SV *astr, register SV *sv) argument 1005 Perl_do_chomp(pTHX_ register SV *sv) argument 1142 Perl_do_vop(pTHX_ I32 optype, SV *sv, SV *left, SV *right) argument 1400 SV* sv = hv_iterkeysv(entry); local [all...] |
H A D | hv.c | 156 SV *sv = sv_newmortal(), *esv = sv_newmortal(); local 158 sv_setpvn(sv, key, klen); 162 /* XXX is this line an error ???: SV *sv = sv_newmortal(); */ 163 sv_usepvn(sv, (char *) key, klen); 166 SvUTF8_on(sv); 169 Perl_croak(aTHX_ SvPVX(esv), sv); local 347 /* note that hent_val will be a mortal sv for MAGICAL hashes */ 380 SV *sv; local 402 sv = sv_newmortal(); 415 mg_copy((SV*)hv, sv, (cha 813 SV *sv; local 881 SV *sv; local 1832 SV *sv; local 1878 SV* sv = sv_newmortal(); local [all...] |
H A D | mg.c | 79 S_save_magic(pTHX_ I32 mgs_ix, SV *sv) argument 82 assert(SvMAGICAL(sv)); 87 mgs->mgs_sv = sv; 88 mgs->mgs_flags = SvMAGICAL(sv) | SvREADONLY(sv); 91 SvMAGICAL_off(sv); 92 SvREADONLY_off(sv); 93 SvFLAGS(sv) |= (SvFLAGS(sv) & (SVp_NOK|SVp_POK)) >> PRIVSHIFT; 105 Perl_mg_magical(pTHX_ SV *sv) argument 130 Perl_mg_get(pTHX_ SV *sv) argument 196 Perl_mg_set(pTHX_ SV *sv) argument 229 Perl_mg_length(pTHX_ SV *sv) argument 259 Perl_mg_size(pTHX_ SV *sv) argument 300 Perl_mg_clear(pTHX_ SV *sv) argument 329 Perl_mg_find(pTHX_ SV *sv, int type) argument 350 Perl_mg_copy(pTHX_ SV *sv, SV *nsv, const char *key, I32 klen) argument 380 Perl_mg_free(pTHX_ SV *sv) argument 406 Perl_magic_regdata_cnt(pTHX_ SV *sv, MAGIC *mg) argument 421 Perl_magic_regdatum_get(pTHX_ SV *sv, MAGIC *mg) argument 455 Perl_magic_regdatum_set(pTHX_ SV *sv, MAGIC *mg) argument 463 Perl_magic_len(pTHX_ SV *sv, MAGIC *mg) argument 555 Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) argument 932 Perl_magic_getuvar(pTHX_ SV *sv, MAGIC *mg) argument 937 (*uf->uf_val)(aTHX_ uf->uf_index, sv); local 942 Perl_magic_setenv(pTHX_ SV *sv, MAGIC *mg) argument 1018 Perl_magic_clearenv(pTHX_ SV *sv, MAGIC *mg) argument 1026 Perl_magic_set_all_env(pTHX_ SV *sv, MAGIC *mg) argument 1047 Perl_magic_clear_all_env(pTHX_ SV *sv, MAGIC *mg) argument 1101 Perl_magic_getsig(pTHX_ SV *sv, MAGIC *mg) argument 1131 Perl_magic_clearsig(pTHX_ SV *sv, MAGIC *mg) argument 1273 Perl_magic_setsig(pTHX_ SV *sv, MAGIC *mg) argument 1396 Perl_magic_setisa(pTHX_ SV *sv, MAGIC *mg) argument 1403 Perl_magic_setamagic(pTHX_ SV *sv, MAGIC *mg) argument 1412 Perl_magic_getnkeys(pTHX_ SV *sv, MAGIC *mg) argument 1432 Perl_magic_setnkeys(pTHX_ SV *sv, MAGIC *mg) argument 1442 S_magic_methcall(pTHX_ SV *sv, MAGIC *mg, char *meth, I32 flags, int n, SV *val) argument 1469 S_magic_methpack(pTHX_ SV *sv, MAGIC *mg, char *meth) argument 1488 Perl_magic_getpack(pTHX_ SV *sv, MAGIC *mg) argument 1497 Perl_magic_setpack(pTHX_ SV *sv, MAGIC *mg) argument 1509 Perl_magic_clearpack(pTHX_ SV *sv, MAGIC *mg) argument 1516 Perl_magic_sizepack(pTHX_ SV *sv, MAGIC *mg) argument 1535 Perl_magic_wipepack(pTHX_ SV *sv, MAGIC *mg) argument 1552 Perl_magic_nextpack(pTHX_ SV *sv, MAGIC *mg, SV *key) argument 1577 Perl_magic_existspack(pTHX_ SV *sv, MAGIC *mg) argument 1618 Perl_magic_setdbline(pTHX_ SV *sv, MAGIC *mg) argument 1641 Perl_magic_getarylen(pTHX_ SV *sv, MAGIC *mg) argument 1648 Perl_magic_setarylen(pTHX_ SV *sv, MAGIC *mg) argument 1655 Perl_magic_getpos(pTHX_ SV *sv, MAGIC *mg) argument 1674 Perl_magic_setpos(pTHX_ SV *sv, MAGIC *mg) argument 1726 Perl_magic_getglob(pTHX_ SV *sv, MAGIC *mg) argument 1739 Perl_magic_setglob(pTHX_ SV *sv, MAGIC *mg) argument 1760 Perl_magic_getsubstr(pTHX_ SV *sv, MAGIC *mg) argument 1781 Perl_magic_setsubstr(pTHX_ SV *sv, MAGIC *mg) argument 1808 Perl_magic_gettaint(pTHX_ SV *sv, MAGIC *mg) argument 1816 Perl_magic_settaint(pTHX_ SV *sv, MAGIC *mg) argument 1832 Perl_magic_getvec(pTHX_ SV *sv, MAGIC *mg) argument 1846 Perl_magic_setvec(pTHX_ SV *sv, MAGIC *mg) argument 1853 Perl_magic_getdefelem(pTHX_ SV *sv, MAGIC *mg) argument 1892 Perl_magic_setdefelem(pTHX_ SV *sv, MAGIC *mg) argument 1897 sv_setsv(LvTARG(sv), sv); local 1904 Perl_vivify_defelem(pTHX_ SV *sv) argument 1947 Perl_magic_killbackrefs(pTHX_ SV *sv, MAGIC *mg) argument 1969 Perl_magic_setmglob(pTHX_ SV *sv, MAGIC *mg) argument 1977 Perl_magic_setbm(pTHX_ SV *sv, MAGIC *mg) argument 1985 Perl_magic_setfm(pTHX_ SV *sv, MAGIC *mg) argument 1993 Perl_magic_setuvar(pTHX_ SV *sv, MAGIC *mg) argument 1998 (*uf->uf_set)(aTHX_ uf->uf_index, sv); local 2003 Perl_magic_setregexp(pTHX_ SV *sv, MAGIC *mg) argument 2010 Perl_magic_freeregexp(pTHX_ SV *sv, MAGIC *mg) argument 2019 Perl_magic_setcollxfrm(pTHX_ SV *sv, MAGIC *mg) argument 2036 Perl_magic_setutf8(pTHX_ SV *sv, MAGIC *mg) argument 2045 Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) argument 2509 Perl_magic_mutexfree(pTHX_ SV *sv, MAGIC *mg) argument 2556 SV *sv = Nullsv, *tSv = PL_Sv; local 2667 SV* sv = mgs->mgs_sv; local [all...] |
H A D | perl.c | 552 * destructors and destructees still exist. Some sv's might remain. 955 SV* sv; local 960 for (sv = sva + 1; sv < svend; ++sv) { 961 if (SvTYPE(sv) != SVTYPEMASK) { 962 PerlIO_printf(Perl_debug_log, "leaked: 0x%p\n", sv); 1317 register SV *sv; local 1324 sv = newSVpvn("",0); /* first used for -I flags */ 1325 SAVEFREESV(sv); 1708 SV* sv; local 2112 Perl_call_sv(pTHX_ SV *sv, I32 flags) argument 2300 Perl_eval_sv(pTHX_ SV *sv, I32 flags) argument 2403 SV* sv = newSVpv(p, 0); local 2436 SV* sv; local 2613 SV *sv; local 2725 SV *sv; local 3049 S_open_script(pTHX_ char *scriptname, bool dosearch, SV *sv) argument 4079 SV *sv = newSVpv(argv[0],0); local 4080 av_push(GvAVn(PL_argvgv),sv); local 4096 S_procself_val(pTHX_ SV *sv, char *arg0) argument 4130 SV *sv; local [all...] |
H A D | pp.c | 81 SV* sv = sv_newmortal(); local 83 sv_setiv(sv, maxarg); 84 PUSHs(sv); 109 SV* sv = Perl_hv_scalar(aTHX_ (HV*)TARG); local 110 SETs(sv); 126 if (SvROK(sv)) { 130 sv = SvRV(sv); 131 if (SvTYPE(sv) == SVt_PVIO) { 134 GvIOp(gv) = (IO *)sv; 290 SV *sv = AvARYLEN(av); local 468 S_refto(pTHX_ SV *sv) argument 502 SV *sv; local 547 SV *sv; local 681 SV *sv; local 735 register SV* sv; local 767 SV *sv; local 2864 SV* sv = POPs; local 2894 SV* sv = POPs; local 2931 SV *sv = TOPs; local 2943 SV *sv; local 3346 SV *sv = TOPs; local 3408 SV *sv = TOPs; local 3464 SV *sv = TOPs; local 3533 SV *sv = TOPs; local 3620 SV *sv = TOPs; local 3730 SV* sv = hv_iterkeysv(entry); local 3763 SV *sv; local 3834 SV *sv = POPs; local 4241 register SV *sv = &PL_sv_undef; local 4271 SV *sv = av_pop(av); local 4282 SV *sv = av_shift(av); local 4296 register SV *sv; local 4395 SV *sv = POPs; local [all...] |
H A D | pp_ctl.c | 84 SV *sv = SvRV(tmpstr); local 85 if(SvMAGICAL(sv)) 86 mg = mg_find(sv, PERL_MAGIC_qr); 241 SV *sv = cx->sb_targ; local 244 if (SvTYPE(sv) < SVt_PVMG) 245 (void)SvUPGRADE(sv, SVt_PVMG); 246 if (!(mg = mg_find(sv, PERL_MAGIC_regex_global))) { 247 sv_magic(sv, Nullsv, PERL_MAGIC_regex_global, Nullch, 0); 248 mg = mg_find(sv, PERL_MAGIC_regex_global); 251 if (DO_UTF8(sv)) 333 register SV *sv = Nullsv; local 1032 register SV *sv; local 1271 SV *sv; local 1440 SV *sv; local 1804 SV *sv; local 1916 SV *sv = Nullsv; local 2114 SV *sv = POPs; local 2314 SV *sv = GvSV(PL_DBsub); local 2532 S_save_lines(pTHX_ AV *array, SV *sv) argument 2628 Perl_sv_compile_2op(pTHX_ SV *sv, OP** startop, char *code, PAD** padp) argument 2656 SV *sv = sv_newmortal(); local 2956 SV *sv; local 3354 SV *sv = sv_newmortal(); local 3557 S_doparseform(pTHX_ SV *sv) argument [all...] |
H A D | pp_sys.c | 350 SV *sv; local 353 sv = NEWSV(56, 79); 354 if (sv_gets(sv, fp, 0) == Nullch) { 355 SvREFCNT_dec(sv); 358 XPUSHs(sv_2mortal(sv)); 359 if (SvLEN(sv) - SvCUR(sv) > 20) { 360 SvLEN_set(sv, SvCUR(sv)+1); 361 Renew(SvPVX(sv), SvLE 521 SV *sv; local 781 SV *sv; local 868 SV *sv = POPs; local 907 SV *sv = POPs; local 931 SV *sv; local 993 register SV *sv; local 1378 SV *sv = sv_newmortal(); local 1437 SV *sv; local 1509 SV *sv; local 1560 SV *sv; local 1766 SV *sv; local 1792 SV *sv; local 2043 SV* sv = sought ? local 2108 SV *sv = POPs; local 2617 SV *sv; local 2698 SV *sv; local 2798 SV* sv = POPs; local 3294 register SV *sv; local 4661 register SV *sv; local 4778 register SV *sv; local 4879 register SV *sv; local 4966 register SV *sv; local 5168 register SV *sv; local 5446 register SV *sv; local [all...] |
H A D | regexec.c | 107 #define CHR_SVLEN(sv) (do_utf8 ? sv_len_utf8(sv) : SvCUR(sv)) 356 /* If SCREAM, then SvPVX(sv) should be compatible with strpos and strend. 357 Otherwise, only SvCUR(sv) is used to get strbeg. */ 359 /* XXXX We assume that strpos is strbeg unless sv. */ 387 Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos, argument 397 int do_utf8 = sv ? SvUTF8(sv) : 0; /* if no sv w 1606 Perl_regexec_flags(pTHX_ register regexp *prog, char *stringarg, register char *strend, char *strbeg, I32 minend, SV *sv, void *data, U32 flags) argument 2867 register SV *sv; local 4394 SV* sv = *av_fetch(av, i, FALSE); local 4562 SV* sv; local 4586 SV* sv; local [all...] |
H A D | utf8.c | 469 SV* sv = sv_2mortal(newSVpv("Malformed UTF-8 character ", 0)); local 474 Perl_sv_catpvf(aTHX_ sv, "(empty string)"); 477 Perl_sv_catpvf(aTHX_ sv, "(unexpected continuation byte 0x%02"UVxf", with no preceding start byte)", uv); 481 Perl_sv_catpvf(aTHX_ sv, "(unexpected non-continuation byte 0x%02"UVxf", immediately after start byte 0x%02"UVxf")", 484 Perl_sv_catpvf(aTHX_ sv, "(unexpected non-continuation byte 0x%02"UVxf", %d byte%s after start byte 0x%02"UVxf", expected %d bytes)", 489 Perl_sv_catpvf(aTHX_ sv, "(byte 0x%02"UVxf")", uv); 492 Perl_sv_catpvf(aTHX_ sv, "(%d byte%s, need %d, after start byte 0x%02"UVxf")", 497 Perl_sv_catpvf(aTHX_ sv, "(overflow at 0x%"UVxf", byte 0x%02x, after start byte 0x%02"UVxf")", 501 Perl_sv_catpvf(aTHX_ sv, "(UTF-16 surrogate 0x%04"UVxf")", uv); 504 Perl_sv_catpvf(aTHX_ sv, "( 1632 Perl_swash_fetch(pTHX_ SV *sv, U8 *ptr, bool do_utf8) argument [all...] |
H A D | doio.c | 637 SV *sv; local 640 sv = *av_fetch(PL_fdpid,fd,TRUE); 641 (void)SvUPGRADE(sv, SVt_IV); 642 pid = SvIVX(sv); 643 SvIVX(sv) = 0; 644 sv = *av_fetch(PL_fdpid,savefd,TRUE); 645 (void)SvUPGRADE(sv, SVt_IV); 646 SvIVX(sv) = pid; 712 register SV *sv; local 746 sv 748 sv_setsv(GvSV(gv),sv); local 801 sv); local 812 PL_oldname, sv, Strerror(errno) ); local 828 PL_oldname, sv, Strerror(errno) ); local 927 Perl_do_pipe(pTHX_ SV *sv, GV *rgv, GV *wgv) argument 1257 Perl_do_print(pTHX_ register SV *sv, PerlIO *fp) argument 1350 SV* sv = POPs; local 1379 SV *sv; local [all...] |
H A D | op.c | 229 SV *sv = NEWSV(0, 0); local 230 av_store(thr->threadsv, key, sv); 242 sv_setpv(sv, "\034"); 243 sv_magic(sv, 0, PERL_MAGIC_sv, name, 1); 259 SvREADONLY_on(sv); 267 sv_magic(sv, 0, PERL_MAGIC_sv, name, 1); 271 sv, (*name < 32) ? "^" : "", 376 pad_free doesn't actually remove the sv that exists in the pad; 627 SV* sv; local 750 sv 1987 SV *sv; local 2835 Perl_newSVOP(pTHX_ I32 type, I32 flags, SV *sv) argument 2852 Perl_newPADOP(pTHX_ I32 type, I32 flags, SV *sv) argument 2904 SV *sv; local 3080 SV *sv; local 3324 SV *sv = ((SVOP*)((LISTOP*)right)->op_last)->op_sv; local 3790 Perl_newFOROP(pTHX_ I32 flags,char *label,line_t forline,OP *sv,OP *expr,OP *block,OP *cont) argument 4037 SV *sv = Nullsv; local 4118 SV *sv = sv_newmortal(); local 4365 SV *sv = NEWSV(0,0); local 4375 hv_store(GvHV(PL_DBsub), SvPVX(tmpstr), SvCUR(tmpstr), sv, 0); local 4459 Perl_newCONSTSUB(pTHX_ HV *stash, char *name, SV *sv) argument 5692 SV* sv = kSVOP->op_sv; local 6510 SV *sv = sv_newmortal(); local 6514 sv); local 6594 SV **svp, **indsvp, *sv; local 6655 SV **svp, **indsvp, *sv; local [all...] |
H A D | perlio.c | 473 SV *sv = newSVpvn("", 0); local 479 Perl_sv_catpvf(aTHX_ sv, "%s:%" IVdf " ", s, 481 Perl_sv_vcatpvf(aTHX_ sv, fmt, &ap); 483 s = SvPV(sv, len); 485 SvREFCNT_dec(sv); 780 perlio_mg_set(pTHX_ SV *sv, MAGIC *mg) argument 782 if (SvROK(sv)) { 783 IO *io = GvIOn((GV *) SvRV(sv)); 786 Perl_warn(aTHX_ "set %" SVf " %p %p %p", sv, io, ifp, ofp); 792 perlio_mg_get(pTHX_ SV *sv, MAGI argument 804 perlio_mg_clear(pTHX_ SV *sv, MAGIC *mg) argument 811 perlio_mg_free(pTHX_ SV *sv, MAGIC *mg) argument 828 SV *sv = SvRV(ST(1)); local 861 SV *sv = sv_bless(newRV_noinc(newSViv(PTR2IV(tab))), stash); local 1393 PerlIO_layer_from_ref(pTHX_ SV *sv) argument 4799 SV *sv = newSVpvn("", 0); local 4854 SV *sv = newSVpv("/tmp/PerlIO_XXXXXX", 0); local [all...] |
H A D | regcomp.c | 242 #define CHR_SVLEN(sv) (UTF ? sv_len_utf8(sv) : SvCUR(sv)) 504 SV * sv = data->last_found; local 506 SvUTF8(sv) && SvMAGICAL(sv) ? mg_find(sv, PERL_MAGIC_utf8) : NULL; 932 SV * sv = data->last_found; local 933 MAGIC *mg = SvUTF8(sv) && SvMAGICAL(sv) 1310 SV * sv = data->last_found; local 2236 SV *sv; local 3346 SV *sv = sv_2mortal(newSVpvn(STRING(ret), oldlen)); local 4191 SV *sv; local 4530 S_dumpuntil(pTHX_ regnode *start, regnode *node, regnode *last, SV* sv, I32 l) argument 4609 SV *sv = sv_newmortal(); local 4704 S_put_byte(pTHX_ SV *sv, int c) argument 4720 Perl_regprop(pTHX_ SV *sv, regnode *o) argument [all...] |
H A D | toke.c | 35 static I32 utf16_textfilter(pTHX_ int idx, SV *sv, int maxlen); 36 static I32 utf16rev_textfilter(pTHX_ int idx, SV *sv, int maxlen); 360 strip_return(SV *sv) argument 362 register char *s = SvPVX(sv); 363 register char *e = s + SvCUR(sv); 375 SvCUR(sv) -= s - d; 382 S_cr_textfilter(pTHX_ int idx, SV *sv, int maxlen) argument 384 I32 count = FILTER_READ(idx+1, sv, maxlen); 386 strip_return(sv); 647 SV *sv local 653 av_store(CopFILEAV(PL_curcop),(I32)CopLINE(PL_curcop),sv); local 827 Perl_str_to_version(pTHX_ SV *sv) argument 904 S_tokeq(pTHX_ SV *sv) argument 987 SV *sv = tokeq(PL_lex_stuff); local 1092 SV *sv = newSVpvn("",0); local 1219 SV *sv = NEWSV(93, send - start); /* sv for the constant */ local 2092 S_filter_gets(pTHX_ register SV *sv, register PerlIO *fp, STRLEN append) argument 2129 SV *sv; local 2374 SV *sv = newSVsv(PL_linestr); local 2495 SV *sv = NEWSV(85,0); local 2501 av_store(CopFILEAV(PL_curcop),(I32)CopLINE(PL_curcop),sv); local 2582 SV *sv = NEWSV(85,0); local 2588 av_store(CopFILEAV(PL_curcop),(I32)CopLINE(PL_curcop),sv); local 3031 SV *sv = newSVpvn(s, len); local 3902 SV *sv; local 4752 SV *sv; local 6055 S_new_constant(pTHX_ char *s, STRLEN len, const char *key, SV *sv, SV *pv, const char *type) argument 6681 SV *sv = NEWSV(88,0); local 6687 av_store(CopFILEAV(PL_curcop), (I32)CopLINE(PL_curcop),sv); local 6925 SV *sv; /* scalar value: string */ local 7152 SV *sv = NEWSV(88,0); local 7158 av_store(CopFILEAV(PL_curcop), (I32)CopLINE(PL_curcop), sv); local 7224 SV *sv = Nullsv; /* place to put the converted number */ local 7956 utf16_textfilter(pTHX_ int idx, SV *sv, int maxlen) argument 7975 utf16rev_textfilter(pTHX_ int idx, SV *sv, int maxlen) argument 8009 Perl_scan_vstring(pTHX_ char *s, SV *sv) argument [all...] |
H A D | util.c | 355 Perl_fbm_compile(pTHX_ SV *sv, U32 flags) argument 365 MAGIC *mg = SvUTF8(sv) && SvMAGICAL(sv) ? mg_find(sv, PERL_MAGIC_utf8) : NULL; 366 sv_catpvn(sv, "\n", 1); /* Taken into account in fbm_instr() */ 370 s = (U8*)SvPV_force(sv, len); 371 (void)SvUPGRADE(sv, SVt_PVBM); 382 Sv_Grow(sv, len + 256 + FBM_TABLE_OFFSET); 383 table = (unsigned char*)(SvPVX(sv) + len + FBM_TABLE_OFFSET); 395 sv_magic(sv, Nulls 818 SV *sv; local 885 SV *sv = mess_alloc(); local 949 SV *sv = mess_alloc(); local 1810 SV *sv; local 1943 SV *sv; local 2436 SV *sv; local 2454 SV *sv; local 2504 register SV *sv; local 2950 Perl_condpair_magic(pTHX_ SV *sv) argument 2991 SV *sv = osv; local 3029 SV *sv; local 3122 SV *sv = newSVsv(*svp); local 3801 Perl_getcwd_sv(pTHX_ register SV *sv) argument 4213 Perl_sv_nosharing(pTHX_ SV *sv) argument 4228 Perl_sv_nolocking(pTHX_ SV *sv) argument 4244 Perl_sv_nounlocking(pTHX_ SV *sv) argument [all...] |
H A D | sv.c | 0 /* sv.c 49 An SV (or AV, HV, etc.) is allocated in two parts: the head (struct sv, 122 SvREFCNT_dec(sv) each remaining SV, possibly 133 Private API to rest of sv.c 180 SV* sv; local 184 uproot_SV(sv); 186 sv = more_sv(); 188 SvANY(sv) = 0; 189 SvREFCNT(sv) = 1; 190 SvFLAGS(sv) 230 SV* sv; local 272 register SV* sv; local 301 register SV* sv; local 323 SV* sv; local 344 do_report_used(pTHX_ SV *sv) argument 372 do_clean_objs(pTHX_ SV *sv) argument 396 do_clean_named_objs(pTHX_ SV *sv) argument 436 do_clean_all(pTHX_ SV *sv) argument 1275 Perl_sv_upgrade(pTHX_ register SV *sv, U32 mt) argument 1563 Perl_sv_backoff(pTHX_ register SV *sv) argument 1588 Perl_sv_grow(pTHX_ register SV *sv, register STRLEN newlen) argument 1659 Perl_sv_setiv(pTHX_ register SV *sv, IV i) argument 1697 Perl_sv_setiv_mg(pTHX_ register SV *sv, IV i) argument 1713 Perl_sv_setuv(pTHX_ register SV *sv, UV u) argument 1741 Perl_sv_setuv_mg(pTHX_ register SV *sv, UV u) argument 1771 Perl_sv_setnv(pTHX_ register SV *sv, NV num) argument 1808 Perl_sv_setnv_mg(pTHX_ register SV *sv, NV num) argument 1819 S_not_a_number(pTHX_ SV *sv) argument 1898 Perl_looks_like_number(pTHX_ SV *sv) argument 1999 S_sv_2iuv_non_preserve(pTHX_ register SV *sv, I32 numtype) argument 2055 Perl_sv_2iv(pTHX_ register SV *sv) argument 2353 Perl_sv_2uv(pTHX_ register SV *sv) argument 2633 Perl_sv_2nv(pTHX_ register SV *sv) argument 2835 S_asIV(pTHX_ SV *sv) argument 2862 S_asUV(pTHX_ SV *sv) argument 2889 Perl_sv_2pv_nolen(pTHX_ register SV *sv) argument 2932 Perl_sv_2pv(pTHX_ register SV *sv, STRLEN *lp) argument 2950 Perl_sv_2pv_flags(pTHX_ register SV *sv, STRLEN *lp, I32 flags) argument 3292 Perl_sv_2pvbyte_nolen(pTHX_ register SV *sv) argument 3311 Perl_sv_2pvbyte(pTHX_ register SV *sv, STRLEN *lp) argument 3329 Perl_sv_2pvutf8_nolen(pTHX_ register SV *sv) argument 3347 Perl_sv_2pvutf8(pTHX_ register SV *sv, STRLEN *lp) argument 3363 Perl_sv_2bool(pTHX_ register SV *sv) argument 3405 Perl_sv_utf8_upgrade(pTHX_ register SV *sv) argument 3437 Perl_sv_utf8_upgrade_flags(pTHX_ register SV *sv, I32 flags) argument 3506 Perl_sv_utf8_downgrade(pTHX_ register SV* sv, bool fail_ok) argument 3545 Perl_sv_utf8_encode(pTHX_ register SV *sv) argument 3568 Perl_sv_utf8_decode(pTHX_ register SV *sv) argument 4115 Perl_sv_setpvn(pTHX_ register SV *sv, register const char *ptr, register STRLEN len) argument 4150 Perl_sv_setpvn_mg(pTHX_ register SV *sv, register const char *ptr, register STRLEN len) argument 4166 Perl_sv_setpv(pTHX_ register SV *sv, register const char *ptr) argument 4194 Perl_sv_setpv_mg(pTHX_ register SV *sv, register const char *ptr) argument 4215 Perl_sv_usepvn(pTHX_ register SV *sv, register char *ptr, register STRLEN len) argument 4244 Perl_sv_usepvn_mg(pTHX_ register SV *sv, register char *ptr, register STRLEN len) argument 4262 Perl_sv_force_normal_flags(pTHX_ register SV *sv, U32 flags) argument 4296 Perl_sv_force_normal(pTHX_ register SV *sv) argument 4315 Perl_sv_chop(pTHX_ register SV *sv, register char *ptr) argument 4402 Perl_sv_catpvn_mg(pTHX_ register SV *sv, register const char *ptr, register STRLEN len) argument 4496 Perl_sv_catpv(pTHX_ register SV *sv, register const char *ptr) argument 4524 Perl_sv_catpv_mg(pTHX_ register SV *sv, register const char *ptr) argument 4543 register SV *sv; local 4572 Perl_sv_magicext(pTHX_ SV* sv, SV* obj, int how, MGVTBL *vtable, const char* name, I32 namlen) argument 4650 Perl_sv_magic(pTHX_ register SV *sv, SV *obj, int how, const char *name, I32 namlen) argument 4819 Perl_sv_unmagic(pTHX_ SV *sv, int type) argument 4867 Perl_sv_rvweaken(pTHX_ SV *sv) argument 4891 S_sv_add_backref(pTHX_ SV *tsv, SV *sv) argument 4924 S_sv_del_backref(pTHX_ SV *sv) argument 5052 Perl_sv_replace(pTHX_ register SV *sv, register SV *nsv) argument 5093 Perl_sv_clear(pTHX_ register SV *sv) argument 5304 Perl_sv_newref(pTHX_ SV *sv) argument 5323 Perl_sv_free(pTHX_ SV *sv) argument 5379 Perl_sv_len(pTHX_ register SV *sv) argument 5410 Perl_sv_len_utf8(pTHX_ register SV *sv) argument 5454 S_utf8_mg_pos_init(pTHX_ SV *sv, MAGIC **mgp, STRLEN **cachep, I32 i, I32 *offsetp, U8 *s, U8 *start) argument 5487 S_utf8_mg_pos(pTHX_ SV *sv, MAGIC **mgp, STRLEN **cachep, I32 i, I32 *offsetp, I32 uoff, U8 **sp, U8 *start, U8 *send) argument 5617 Perl_sv_pos_u2b(pTHX_ register SV *sv, I32* offsetp, I32* lenp) argument 5693 Perl_sv_pos_b2u(pTHX_ register SV* sv, I32* offsetp) argument 6057 Perl_sv_collxfrm(pTHX_ SV *sv, STRLEN *nxp) argument 6112 Perl_sv_gets(pTHX_ register SV *sv, register PerlIO *fp, I32 append) argument 6477 Perl_sv_inc(pTHX_ register SV *sv) argument 6634 Perl_sv_dec(pTHX_ register SV *sv) argument 6753 register SV *sv; local 6777 register SV *sv; local 6797 Perl_sv_2mortal(pTHX_ register SV *sv) argument 6822 register SV *sv; local 6845 register SV *sv; local 6869 register SV *sv; local 6906 register SV *sv; local 6927 register SV *sv; local 6940 register SV *sv; local 6958 register SV *sv; local 6977 register SV *sv; local 6996 register SV *sv; local 7015 register SV *sv; local 7047 register SV *sv; local 7081 register SV *sv; local 7167 Perl_sv_2io(pTHX_ SV *sv) argument 7210 Perl_sv_2cv(pTHX_ SV *sv, HV **st, GV **gvp, I32 lref) argument 7293 Perl_sv_true(pTHX_ register SV *sv) argument 7328 Perl_sv_iv(pTHX_ register SV *sv) argument 7348 Perl_sv_uv(pTHX_ register SV *sv) argument 7368 Perl_sv_nv(pTHX_ register SV *sv) argument 7380 Perl_sv_pv(pTHX_ SV *sv) argument 7404 Perl_sv_pvn(pTHX_ SV *sv, STRLEN *lp) argument 7415 Perl_sv_pvn_nomg(pTHX_ register SV *sv, STRLEN *lp) argument 7429 Perl_sv_pvn_force(pTHX_ SV *sv, STRLEN *lp) argument 7454 Perl_sv_pvn_force_flags(pTHX_ SV *sv, STRLEN *lp, I32 flags) argument 7497 Perl_sv_pvbyte(pTHX_ SV *sv) argument 7518 Perl_sv_pvbyten(pTHX_ SV *sv, STRLEN *lp) argument 7535 Perl_sv_pvbyten_force(pTHX_ SV *sv, STRLEN *lp) argument 7546 Perl_sv_pvutf8(pTHX_ SV *sv) argument 7567 Perl_sv_pvutf8n(pTHX_ SV *sv, STRLEN *lp) argument 7584 Perl_sv_pvutf8n_force(pTHX_ SV *sv, STRLEN *lp) argument 7599 Perl_sv_reftype(pTHX_ SV *sv, int ob) argument 7650 Perl_sv_isobject(pTHX_ SV *sv) argument 7675 Perl_sv_isa(pTHX_ SV *sv, const char *name) argument 7704 SV *sv; local 7860 Perl_sv_bless(pTHX_ SV *sv, HV *stash) argument 7899 S_sv_unglob(pTHX_ SV *sv) argument 7940 Perl_sv_unref_flags(pTHX_ SV *sv, U32 flags) argument 7972 Perl_sv_unref(pTHX_ SV *sv) argument 7985 Perl_sv_taint(pTHX_ SV *sv) argument 7998 Perl_sv_untaint(pTHX_ SV *sv) argument 8015 Perl_sv_tainted(pTHX_ SV *sv) argument 8035 Perl_sv_setpviv(pTHX_ SV *sv, IV iv) argument 8053 Perl_sv_setpviv_mg(pTHX_ SV *sv, IV iv) argument 8071 Perl_sv_setpvf_nocontext(SV *sv, const char* pat, ...) argument 8086 Perl_sv_setpvf_mg_nocontext(SV *sv, const char* pat, ...) argument 8106 Perl_sv_setpvf(pTHX_ SV *sv, const char* pat, ...) argument 8117 Perl_sv_vsetpvf(pTHX_ SV *sv, const char* pat, va_list* args) argument 8131 Perl_sv_setpvf_mg(pTHX_ SV *sv, const char* pat, ...) argument 8142 Perl_sv_vsetpvf_mg(pTHX_ SV *sv, const char* pat, va_list* args) argument 8156 Perl_sv_catpvf_nocontext(SV *sv, const char* pat, ...) argument 8171 Perl_sv_catpvf_mg_nocontext(SV *sv, const char* pat, ...) argument 8195 Perl_sv_catpvf(pTHX_ SV *sv, const char* pat, ...) argument 8206 Perl_sv_vcatpvf(pTHX_ SV *sv, const char* pat, va_list* args) argument 8220 Perl_sv_catpvf_mg(pTHX_ SV *sv, const char* pat, ...) argument 8231 Perl_sv_vcatpvf_mg(pTHX_ SV *sv, const char* pat, va_list* args) argument 8249 Perl_sv_vsetpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV **svargs, I32 svmax, bool *maybe_tainted) argument 8314 Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV **svargs, I32 svmax, bool *maybe_tainted) argument 9613 Perl_ptr_table_fetch(pTHX_ PTR_TBL_t *tbl, void *sv) argument 9747 SV *sv = ¶m->proto_perl->Isv_no; /* just need SvREADONLY-ness */ local 10334 SV *sv; local 11466 Perl_sv_recode_to_utf8(pTHX_ SV *sv, SV *encoding) argument [all...] |
H A D | perl.h | 895 # define fputs(sv,fp) fprintf(fp,"%s",sv) 1767 /* Amdahl's <ksync.h> has struct sv */ 1768 /* SGI's <sys/sema.h> has struct sv */ 1772 # define STRUCT_SV sv 2303 #define FILTER_READ(idx, sv, len) filter_read(idx, sv, len) 2338 #include "sv.h" 2798 #define PERL_MG_UFUNC(name,ix,sv) I32 name(IV ix, SV *sv) 4287 # define sv macro [all...] |
/osnet-11/usr/src/lib/libdisasm/sparc/ |
H A D | dis_sparc_fmt.c | 2369 int32_t sv = (int32_t)val; local 2374 if (sv < 0) { 2375 sv = -sv; 2383 if (sv < 0) { 2384 sv = -sv; 2394 bprintf(dhp, fmtstr, sv);
|
/osnet-11/usr/src/lib/libdiskmgt/common/ |
H A D | drive.c | 196 uchar_t sv : 1; member in struct:conf_feature::features::cd_audio 204 uchar_t sv : 1;
|
/osnet-11/usr/src/lib/libdtrace/common/ |
H A D | dt_printf.c | 504 struct servent *sv, res; local 506 if ((sv = getservbyport_r(port, NULL, &res, buf, sizeof (buf))) != NULL) 507 return (dt_printf(dtp, fp, format, sv->s_name));
|
/osnet-11/usr/src/lib/libsqlite/tool/ |
H A D | lemon.c | 1667 char *sv = 0, *end; local 1718 sv = cp; 1738 *(char**)(op[j].arg) = sv; 1741 (*(void(*)())(op[j].arg))(sv);
|