/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
H A D | taint.c | 73 MAGIC* mg; local 101 if ((mg = mg_find(*svp, PERL_MAGIC_envelem)) && MgTAINTEDDIR(mg)) { 116 if ((mg = mg_find(*svp, PERL_MAGIC_envelem)) && MgTAINTEDDIR(mg)) {
|
H A D | av.c | 64 MAGIC *mg; local 65 if ((mg = SvTIED_mg((SV*)av, PERL_MAGIC_tied))) { 72 PUSHs(SvTIED_obj((SV*)av, mg)); 334 MAGIC* mg = SvMAGIC(av); local 335 sv_magic(val, (SV*)av, toLOWER(mg->mg_type), 0, key); 524 MAGIC *mg; local 530 if ((mg = SvTIED_mg((SV*)av, PERL_MAGIC_tied))) { 535 PUSHs(SvTIED_obj((SV*)av, mg)); 560 MAGIC* mg; local 566 if ((mg 606 MAGIC* mg; local 676 MAGIC* mg; local 737 MAGIC *mg; local 886 MAGIC *mg; local [all...] |
H A D | dump.c | 813 Perl_do_magic_dump(pTHX_ I32 level, PerlIO *file, MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim) argument 815 for (; mg; mg = mg->mg_moremagic) { 817 " MAGIC = 0x%"UVxf"\n", PTR2UV(mg)); 818 if (mg->mg_virtual) { 819 MGVTBL *v = mg->mg_virtual; 857 if (mg->mg_private) 858 Perl_dump_indent(aTHX_ level, file, " MG_PRIVATE = %d\n", mg->mg_private); 864 if (mg 931 Perl_magic_dump(pTHX_ MAGIC *mg) argument [all...] |
H A D | pp_hot.c | 543 MAGIC *mg; local 551 && (mg = SvTIED_mg((SV*)io, PERL_MAGIC_tiedscalar))) 564 *MARK = SvTIED_obj((SV*)io, mg); 577 && (mg = SvTIED_mg((SV*)io, PERL_MAGIC_tiedscalar))) 1281 MAGIC* mg = mg_find(TARG, PERL_MAGIC_regex_global); local 1282 if (mg && mg->mg_len >= 0) { 1284 rx->endp[0] = rx->startp[0] = mg->mg_len; 1287 rx->endp[0] = rx->startp[0] = mg->mg_len; 1289 minmatch = (mg 1370 MAGIC* mg = 0; local 1398 MAGIC* mg = 0; local 1462 MAGIC* mg = mg_find(TARG, PERL_MAGIC_regex_global); local 1484 MAGIC *mg; local 1711 MAGIC *mg; local 2677 MAGIC *mg; local [all...] |
H A D | scope.c | 204 MAGIC* mg; local 208 (mg = mg_find(osv, PERL_MAGIC_taint))) { 209 SAVESPTR(mg->mg_obj); 210 mg->mg_obj = osv;
|
H A D | hv.c | 785 MAGIC *mg = SvMAGIC(hv); local 788 while (mg) { 789 if (isUPPER(mg->mg_type)) { 791 switch (mg->mg_type) { 797 mg = mg->mg_moremagic; 812 MAGIC *mg; local 815 if ((SvRMAGICAL(hv) && (mg = mg_find((SV*)hv, PERL_MAGIC_tied)))) { 816 sv = magic_scalarpack(hv, mg); 1695 MAGIC* mg; local [all...] |
H A D | mg.c | 5 /* mg.c 107 MAGIC* mg; local 108 for (mg = SvMAGIC(sv); mg; mg = mg->mg_moremagic) { 109 MGVTBL* vtbl = mg->mg_virtual; 111 if (vtbl->svt_get && !(mg->mg_flags & MGf_GSKIP)) 133 MAGIC *newmg, *head, *cur, *mg; local 138 /* We must call svt_get(sv, mg) fo 147 CALL_FPTR(vtbl->svt_get)(aTHX_ sv, mg); local 199 MAGIC* mg; local 213 CALL_FPTR(vtbl->svt_set)(aTHX_ sv, mg); local 231 MAGIC* mg; local 261 MAGIC* mg; local 303 MAGIC* mg; local 313 CALL_FPTR(vtbl->svt_clear)(aTHX_ sv, mg); local 331 MAGIC* mg; local 353 MAGIC* mg; local 382 MAGIC* mg; local 388 CALL_FPTR(vtbl->svt_free)(aTHX_ sv, mg); local 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 743 MAGIC* mg = SvMAGIC(sv); local 932 Perl_magic_getuvar(pTHX_ SV *sv, MAGIC *mg) argument 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 1583 Perl_magic_scalarpack(pTHX_ HV *hv, 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 1906 MAGIC *mg; local 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 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 [all...] |
H A D | perl.c | 1040 MAGIC* mg; local 1042 for (mg = SvMAGIC(PL_mess_sv); mg; mg = moremagic) { 1043 moremagic = mg->mg_moremagic; 1044 if (mg->mg_ptr && mg->mg_type != PERL_MAGIC_regex_global 1045 && mg->mg_len >= 0) 1046 Safefree(mg->mg_ptr); 1047 Safefree(mg); [all...] |
H A D | pp.c | 320 MAGIC* mg; local 323 mg = mg_find(sv, PERL_MAGIC_regex_global); 324 if (mg && mg->mg_len >= 0) { 325 I32 i = mg->mg_len; 3872 MAGIC *mg; local 3876 ((mg = mg_find((SV*)hv, PERL_MAGIC_tied)) 3880 && (stash = SvSTASH(SvRV(SvTIED_obj((SV*)hv, mg)))) 4045 MAGIC *mg; local 4047 if ((mg 4242 MAGIC *mg; local 4298 MAGIC *mg; local 4416 MAGIC *mg = (MAGIC *) NULL; local 4708 MAGIC *mg = mg_find((SV*)svv, PERL_MAGIC_mutex); local [all...] |
H A D | pp_ctl.c | 73 MAGIC *mg = Null(MAGIC*); local 86 mg = mg_find(sv, PERL_MAGIC_qr); 88 if (mg) { 89 regexp *re = (regexp *)mg->mg_obj; 242 MAGIC *mg; local 246 if (!(mg = mg_find(sv, PERL_MAGIC_regex_global))) { 248 mg = mg_find(sv, PERL_MAGIC_regex_global); 253 mg->mg_len = i;
|
H A D | pp_sys.c | 525 MAGIC *mg; local 534 if (io && (mg = SvTIED_mg((SV*)io, PERL_MAGIC_tiedscalar))) { 537 *MARK-- = SvTIED_obj((SV*)io, mg); 571 MAGIC *mg; local 579 && (mg = SvTIED_mg((SV*)io, PERL_MAGIC_tiedscalar))) 582 XPUSHs(SvTIED_obj((SV*)io, mg)); 657 MAGIC *mg; local 664 && (mg = SvTIED_mg((SV*)io, PERL_MAGIC_tiedscalar))) 667 XPUSHs(SvTIED_obj((SV*)io, mg)); 720 MAGIC *mg; local 867 MAGIC *mg; local 906 MAGIC *mg; local 1190 MAGIC *mg; local 1438 MAGIC *mg; local 1547 MAGIC *mg; local 1785 MAGIC *mg; local 1922 MAGIC *mg; local 1969 MAGIC *mg; local 2013 MAGIC *mg; local [all...] |
H A D | regexec.c | 1682 MAGIC *mg; local 1688 && (mg = mg_find(sv, PERL_MAGIC_regex_global)) 1689 && mg->mg_len >= 0) { 1690 PL_reg_ganch = strbeg + mg->mg_len; /* Defined pos() */ 2079 MAGIC *mg; local 2103 && (mg = mg_find(PL_reg_sv, PERL_MAGIC_regex_global)))) { 2107 mg = mg_find(PL_reg_sv, PERL_MAGIC_regex_global); 2108 mg->mg_len = -1; 2110 PL_reg_magic = mg; 2111 PL_reg_oldpos = mg 2863 MAGIC *mg = Null(MAGIC*); local [all...] |
H A D | perlio.c | 780 perlio_mg_set(pTHX_ SV *sv, MAGIC *mg) argument 792 perlio_mg_get(pTHX_ SV *sv, MAGIC *mg) argument 804 perlio_mg_clear(pTHX_ SV *sv, MAGIC *mg) argument 811 perlio_mg_free(pTHX_ SV *sv, MAGIC *mg) argument 830 MAGIC *mg; local 835 mg = mg_find(sv, PERL_MAGIC_ext); 836 mg->mg_virtual = &perlio_vtab;
|
H A D | regcomp.c | 505 MAGIC *mg = local 507 if (mg && mg->mg_len > 0) 508 mg->mg_len = 0; 933 MAGIC *mg = SvUTF8(sv) && SvMAGICAL(sv) ? local 935 if (mg && mg->mg_len >= 0) 936 mg->mg_len += utf8_length((U8*)STRING(scan), 1311 MAGIC *mg = local 1314 if (mg [all...] |
H A D | util.c | 365 MAGIC *mg = SvUTF8(sv) && SvMAGICAL(sv) ? mg_find(sv, PERL_MAGIC_utf8) : NULL; local 367 if (mg && mg->mg_len >= 0) 368 mg->mg_len++; 991 MAGIC *mg; local 995 && (mg = SvTIED_mg((SV*)io, PERL_MAGIC_tiedscalar))) 1009 PUSHs(SvTIED_obj((SV*)io, mg)); 2952 MAGIC *mg; local 2955 mg = mg_find(sv, PERL_MAGIC_mutex); 2956 if (!mg) { 2990 MAGIC *mg; local [all...] |
H A D | sv.c | 3008 MAGIC *mg; local 3015 && (mg = mg_find(sv, PERL_MAGIC_qr))) { 3016 regexp *re = (regexp *)mg->mg_obj; 3018 if (!mg->mg_ptr) { 3041 mg->mg_len = re->prelen + 4 + left; 3068 mg->mg_len++; /* save space for it */ 3075 New(616, mg->mg_ptr, mg->mg_len + 1 + left, char); 3076 Copy("(?", mg->mg_ptr, 2, char); 3077 Copy(reflags, mg 4575 MAGIC* mg; local 4652 MAGIC* mg; local 4821 MAGIC* mg; local 4831 CALL_FPTR(vtbl->svt_free)(aTHX_ sv, mg); local 4894 MAGIC *mg; local 4930 MAGIC *mg = NULL; local 5421 MAGIC *mg = SvMAGICAL(sv) ? mg_find(sv, PERL_MAGIC_utf8) : 0; local 5632 MAGIC *mg = 0; local 5706 MAGIC* mg = NULL; local 6059 MAGIC *mg; local 8001 MAGIC *mg = mg_find(sv, PERL_MAGIC_taint); local 8018 MAGIC *mg = mg_find(sv, PERL_MAGIC_taint); local 9522 Perl_mg_dup(pTHX_ MAGIC *mg, CLONE_PARAMS* param) argument [all...] |
/osnet-11/usr/src/lib/fm/topo/modules/sun4v/platform-mem/common/ |
H A D | mem_mdesc.c | 62 mem_grp_t *mg; local 144 mg = topo_mod_zalloc(mod, sizeof (mem_grp_t)); 145 seg->sm_grp = mg; 146 mem->mem_group = mg; 159 bm->bm_grp = mg->mg_bank; 160 mg->mg_bank = bm; 204 mem_grp_t *mg; local 209 for (mg = mem->mem_group; mg != NULL; mg 235 mem_grp_t *mg; local [all...] |