/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
H A D | sv.h | 0 /* sv.h 19 An enum of flags for Perl types. These are found in the file B<sv.h> 67 struct STRUCT_SV { /* struct sv { */ 106 =for apidoc Am|U32|SvREFCNT|SV* sv 109 =for apidoc Am|SV*|SvREFCNT_inc|SV* sv 112 =for apidoc Am|void|SvREFCNT_dec|SV* sv 115 =for apidoc Am|svtype|SvTYPE|SV* sv 118 =for apidoc Am|void|SvUPGRADE|SV* sv|svtype type 125 #define SvANY(sv) (sv) [all...] |
H A D | mg.h | 15 int (CPERLscope(*svt_get)) (pTHX_ SV *sv, MAGIC* mg); 16 int (CPERLscope(*svt_set)) (pTHX_ SV *sv, MAGIC* mg); 17 U32 (CPERLscope(*svt_len)) (pTHX_ SV *sv, MAGIC* mg); 18 int (CPERLscope(*svt_clear))(pTHX_ SV *sv, MAGIC* mg); 19 int (CPERLscope(*svt_free)) (pTHX_ SV *sv, MAGIC* mg); 20 int (CPERLscope(*svt_copy)) (pTHX_ SV *sv, MAGIC* mg, 52 #define SvTIED_mg(sv,how) \ 53 (SvRMAGICAL(sv) ? mg_find((sv),(how)) : Null(MAGIC*)) 54 #define SvTIED_obj(sv,m [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 | xsutils.c | 57 modify_SV_attributes(pTHX_ SV *sv, SV **retlist, SV **attrlist, int numattrs) argument 71 switch (SvTYPE(sv)) { 80 CvFLAGS((CV*)sv) &= ~CVf_LVALUE; 82 CvFLAGS((CV*)sv) |= CVf_LVALUE; 88 CvFLAGS((CV*)sv) &= ~CVf_LOCKED; 90 CvFLAGS((CV*)sv) |= CVf_LOCKED; 97 CvFLAGS((CV*)sv) &= ~CVf_METHOD; 99 CvFLAGS((CV*)sv) |= CVf_METHOD; 115 SvSHARE(sv); 121 if (SvTYPE(sv) 166 SV *rv, *sv; local 187 SV *rv, *sv; local 230 SV *rv, *sv; local 288 SV *rv, *sv; 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 | dump.c | 74 SV *sv = sv_newmortal(); local 76 gv_fullname3(sv, gv, Nullch); 77 Perl_dump_indent(aTHX_ 0, Perl_debug_log, "\nSUB %s = ", SvPVX(sv)); 91 SV *sv = sv_newmortal(); local 93 gv_fullname3(sv, gv, Nullch); 94 Perl_dump_indent(aTHX_ 0, Perl_debug_log, "\nFORMAT %s = ", SvPVX(sv)); 145 Perl_sv_peek(pTHX_ SV *sv) argument 153 if (!sv) { 157 else if (sv == (SV*)0x55555555 || SvTYPE(sv) 745 SV *sv; local 901 SV *sv = newSVpvn("", 0); local 937 Perl_do_hv_dump(pTHX_ I32 level, PerlIO *file, char *name, HV *sv) argument 947 Perl_do_gv_dump(pTHX_ I32 level, PerlIO *file, char *name, GV *sv) argument 957 Perl_do_gvgv_dump(pTHX_ I32 level, PerlIO *file, char *name, GV *sv) argument 971 Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim) argument 1407 Perl_sv_dump(pTHX_ SV *sv) argument 1453 SV *sv; local [all...] |
H A D | universal.c | 61 SV* sv; local 63 if (svp && (sv = *svp) != (SV*)&PL_sv_undef) { 66 return sv; 100 SV* sv = *svp++; local 101 HV* basestash = gv_stashsv(sv, FALSE); 106 sv, HvNAME(stash)); local 134 Perl_sv_derived_from(pTHX_ SV *sv, const char *name) argument 143 if (SvGMAGICAL(sv)) 144 mg_get(sv) ; 146 if (SvROK(sv)) { 219 SV *sv; local 244 SV *sv; local 290 SV *sv; local 385 SV * sv = ST(0); local 402 SV * sv = ST(0); local 421 SV * sv = ST(0); local 434 SV * sv = ST(0); local 450 SV * sv = ST(0); local 466 SV * sv = ST(0); local 510 SV *sv = SvRV(ST(0)); local 534 SV *sv = SvRV(ST(0)); local 567 SV * sv; local [all...] |
H A D | cv.h | 12 * in sv.h */ 59 #define CvSTASH(sv) ((XPVCV*)SvANY(sv))->xcv_stash 60 #define CvSTART(sv) ((XPVCV*)SvANY(sv))->xcv_start 61 #define CvROOT(sv) ((XPVCV*)SvANY(sv))->xcv_root 62 #define CvXSUB(sv) ((XPVCV*)SvANY(sv))->xcv_xsub 63 #define CvXSUBANY(sv) ((XPVC [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 | pad.c | 284 SV* sv = AvARRAY(padlist)[ix--]; local 285 if (!sv) 287 if (sv == (SV*)PL_comppad_name) 289 else if (sv == (SV*)PL_comppad) { 293 SvREFCNT_dec(sv); 395 SV *sv; local 406 sv = *av_fetch(PL_comppad, AvFILLp(PL_comppad) + 1, TRUE); 407 } while (SvPADBUSY(sv)); /* need a fresh one */ 419 /* HVDS why copy to sv here? we don't seem to use it */ 421 (sv 449 Perl_pad_add_anon(pTHX_ SV* sv, OPCODE op_type) argument 494 SV **svp, *sv; local 564 SV *sv; local 640 SV *sv; local 851 Perl_pad_setsv(pTHX_ PADOFFSET po, SV* sv) argument 911 SV *sv; local 954 SV *sv; local 964 "%"SVf" never introduced", sv); local 1381 SV* sv; local 1401 SV* sv = NEWSV(0, 0); local 1504 SV* sv; local [all...] |
H A D | cc_runtime.h | 24 #define MAYBE_TAINT_SASSIGN_SRC(sv) \ 29 #define PP_PREINC(sv) do { \ 30 if (SvIOK(sv)) { \ 31 ++SvIVX(sv); \ 32 SvFLAGS(sv) &= ~(SVf_NOK|SVf_POK|SVp_NOK|SVp_POK); \ 35 sv_inc(sv); \ 36 SvSETMAGIC(sv); \
|
/osnet-11/usr/src/lib/libsocket/socket/ |
H A D | socketpair.c | 59 _socketpair(int family, int type, int protocol, int sv[2]) argument 61 return (_socketpair_create(family, type, protocol, sv, SOV_DEFAULT)); 68 _socketpair_bsd(int family, int type, int protocol, int sv[2]) argument 70 return (_socketpair_create(family, type, protocol, sv, SOV_SOCKBSD)); 74 _socketpair_svr4(int family, int type, int protocol, int sv[2]) argument 76 return (_socketpair_create(family, type, protocol, sv, 81 __xnet_socketpair(int family, int type, int protocol, int sv[2]) argument 83 return (_socketpair_create(family, type, protocol, sv, 88 _socketpair_create(int family, int type, int protocol, int sv[2], int version) argument 108 sv[ [all...] |
/osnet-11/usr/src/lib/libresolv2/common/irs/ |
H A D | gen_sv.c | 71 struct irs_sv *sv; local 74 if (!(sv = memget(sizeof *sv))) { 78 memset(sv, 0x5e, sizeof *sv); 80 memput(sv, sizeof *sv); 87 sv->private = pvt; 88 sv->close = sv_close; 89 sv 113 struct irs_sv *sv; local 136 struct irs_sv *sv; local 153 struct irs_sv *sv; local 168 struct irs_sv *sv; local 183 struct irs_sv *sv = rule->inst->sv; local 222 struct irs_sv *sv = rule->inst->sv; local [all...] |
H A D | irp_sv.c | 70 static void free_service(struct servent *sv); 83 struct irs_sv *sv; local 86 if ((sv = memget(sizeof *sv)) == NULL) { 90 memset(sv, 0x0, sizeof *sv); 93 memput(sv, sizeof *sv); 100 sv->private = pvt; 101 sv 138 struct servent *sv = &pvt->service; local 183 struct servent *sv = &pvt->service; local 234 struct servent *sv = &pvt->service; local 324 free_service(struct servent *sv) argument [all...] |
H A D | getservent.c | 89 struct irs_sv *sv; local 91 if (!net_data || !(sv = net_data->sv)) 93 net_data->sv_last = (*sv->next)(sv); 100 struct irs_sv *sv; local 103 if (!net_data || !(sv = net_data->sv)) 114 net_data->sv_last = (*sv->byname)(sv, nam 122 struct irs_sv *sv; local 137 struct irs_sv *sv; local 149 struct irs_sv *sv; local [all...] |
H A D | lcl_sv.c | 96 struct lcl_sv sv; member in struct:pvt 123 struct irs_sv *sv; local 128 if ((sv = memget(sizeof *sv)) == NULL) { 132 memset(sv, 0x5e, sizeof *sv); 134 memput(sv, sizeof *sv); 139 sv->private = pvt; 140 sv 335 irs_lclsv_fnxt(struct lcl_sv *sv) argument 385 sv_db_rec(struct lcl_sv *sv, DBT *key, DBT *data) argument [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/ |
H A D | Debug.pm | 91 printf "\top_sv\t\t0x%x\n", ${$op->sv}; 92 $op->sv->debug; 108 my ($sv) = @_; 109 if ($$sv == ${sv_undef()}) { 112 printf "NULL (0x%x)\n", $$sv; 117 my ($sv) = @_; 118 if (!$$sv) { 119 print class($sv), " = NULL\n"; 122 printf <<'EOT', class($sv), $$sv, [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/ |
H A D | Util.xs | 31 # define SvUOK(sv) SvIOK_UV(sv) 50 # define slu_sv_value(sv) (SvIOK(sv)) ? (SvIOK_UV(sv)) ? (NV)(SvUVX(sv)) : (NV)(SvIVX(sv)) : (SvNV(sv)) 52 # define slu_sv_value(sv) (SvIOK(sv)) [all...] |
/osnet-11/usr/src/lib/libsmbfs/common/ |
H A D | smbfs_negprot.c | 100 struct smb_sopt *sv = &ctx->ct_sopt; local 152 sv = &ctx->ct_sopt; 153 bzero(sv, sizeof (struct smb_sopt)); 200 sv->sv_proto = dp->d_id; 211 smbfs_md_get_uint8(mbp, &sv->sv_sm); /* SecurityMode */ 212 smbfs_md_get_uint16le(mbp, &sv->sv_maxmux); /* MaxMpxCount */ 213 smbfs_md_get_uint16le(mbp, &sv->sv_maxvcs); /* MaxCountVCs */ 214 smbfs_md_get_uint32le(mbp, &sv->sv_maxtx); /* MaxBufferSize */ 215 smbfs_md_get_uint32le(mbp, &sv->sv_maxraw); /* MaxRawSize */ 216 smbfs_md_get_uint32le(mbp, &sv [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/t/ |
H A D | isvstring.t | 37 $sv = "1.0"; 38 print "not " if isvstring($sv);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/ByteLoader/ |
H A D | bytecode.h | 94 #define BSET_ldspecsv(sv, arg) sv = specialsv_list[arg] 95 #define BSET_ldspecsvx(sv, arg) STMT_START { \ 96 BSET_ldspecsv(sv, arg); \ 97 BSET_OBJ_STOREX(sv); \ 107 #define BSET_gp_share(sv, arg) STMT_START { \ 108 gp_free((GV*)sv); \ 109 GvGP(sv) = GvGP(arg); \ 112 #define BSET_gv_fetchpv(sv, arg) sv [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Filter/Util/Call/ |
H A D | Call.xs | 26 #define BUF_OFFSET(sv) IoPAGE_LEN(sv) 27 #define CODE_REF(sv) IoPAGE(sv) 29 #define SET_LEN(sv,len) \ 30 do { SvPVX(sv)[len] = '\0'; SvCUR_set(sv, len); } while (0) 219 SV * sv = newSV(1) ; 221 (void)SvPOK_only(sv) ; 222 filter_add(filter_call, sv) ; [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/ |
H A D | Storable.xs | 61 #define newRV_noinc(sv) ((Sv = newRV(sv)), --SvREFCNT(SvRV(Sv)), Sv) 266 #define SvUTF8(sv) 0 954 * i should be true iff sv is immortal (ie PL_sv_yes, PL_sv_no or PL_sv_undef) 1013 static int store(pTHX_ stcxt_t *cxt, SV *sv); 1020 static int store_ref(pTHX_ stcxt_t *cxt, SV *sv); 1021 static int store_scalar(pTHX_ stcxt_t *cxt, SV *sv); 1024 static int store_tied(pTHX_ stcxt_t *cxt, SV *sv); 1025 static int store_tied_item(pTHX_ stcxt_t *cxt, SV *sv); 1027 static int store_other(pTHX_ stcxt_t *cxt, SV *sv); [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Sys/Hostname/ |
H A D | Hostname.xs | 31 SV *sv; 38 sv = newSVpvn(tmps, strlen(tmps)); 58 sv = newSVpvn(tmps, strlen(tmps)); 66 sv = newSVpvn(u.nodename, strlen(u.nodename)); 78 PUSHs(sv_2mortal(sv));
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Devel/Peek/ |
H A D | Peek.xs | 25 SV* sv; 32 for (sv = sva + 1; sv < svend; ++sv) { 33 if (SvTYPE(sv) == SVt_PVCV) { 34 CV *cv = (CV*)sv; 42 if (CvXSUB(sv)) { 45 if (!CvGV(sv)) { 52 do_gvgv_dump(0, Perl_debug_log, "GVGV::GV", CvGV(sv)); 163 fill_mstats(SV *sv, in [all...] |