Searched refs:mg (Results 1 - 25 of 47) sorted by relevance

12

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dmg.h0 /* 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,
22 int (CPERLscope(*svt_dup)) (pTHX_ MAGIC *mg, CLONE_PARAMS *param);
44 #define MgTAINTEDDIR(mg) (mg
[all...]
H A Dmg.c5 /* 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 Dtaint.c73 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 Dcc_runtime.h26 !((mg=mg_find(left, PERL_MAGIC_taint)) && mg->mg_len & 1)))\
H A Dav.c64 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 Ddump.c813 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 Dthread.h415 #define MgMUTEXP(mg) (&((condpair_t *)(mg->mg_ptr))->mutex)
416 #define MgOWNERCONDP(mg) (&((condpair_t *)(mg->mg_ptr))->owner_cond)
417 #define MgCONDP(mg) (&((condpair_t *)(mg->mg_ptr))->cond)
418 #define MgOWNER(mg) ((condpair_t *)(mg->mg_ptr))->owner
H A Dsv.c3008 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...]
H A Dgv.c1276 Perl_magic_freeovrld(pTHX_ SV *sv, MAGIC *mg)
1278 AMT *amtp = (AMT*)mg->mg_ptr;
1299 MAGIC* mg=mg_find((SV*)stash, PERL_MAGIC_overload_table);
1300 AMT *amtp = (mg) ? (AMT*)mg->mg_ptr: (AMT *) NULL;
1303 if (mg && amtp->was_ok_am == PL_amagic_generation
1416 MAGIC *mg;
1422 mg = mg_find((SV*)stash, PERL_MAGIC_overload_table);
1423 if (!mg) {
1426 mg
[all...]
H A Dproto.h368 PERL_CALLCONV int Perl_magic_clearenv(pTHX_ SV* sv, MAGIC* mg);
369 PERL_CALLCONV int Perl_magic_clear_all_env(pTHX_ SV* sv, MAGIC* mg);
370 PERL_CALLCONV int Perl_magic_clearpack(pTHX_ SV* sv, MAGIC* mg);
371 PERL_CALLCONV int Perl_magic_clearsig(pTHX_ SV* sv, MAGIC* mg);
372 PERL_CALLCONV int Perl_magic_existspack(pTHX_ SV* sv, MAGIC* mg);
373 PERL_CALLCONV int Perl_magic_freeregexp(pTHX_ SV* sv, MAGIC* mg);
374 PERL_CALLCONV int Perl_magic_freeovrld(pTHX_ SV* sv, MAGIC* mg);
375 PERL_CALLCONV int Perl_magic_get(pTHX_ SV* sv, MAGIC* mg);
376 PERL_CALLCONV int Perl_magic_getarylen(pTHX_ SV* sv, MAGIC* mg);
377 PERL_CALLCONV int Perl_magic_getdefelem(pTHX_ SV* sv, MAGIC* mg);
[all...]
H A Dpp_hot.c543 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 Dpp_sys.c525 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 Dpp.c320 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 Dhv.c785 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 Dutil.c365 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...]
/osnet-11/usr/src/lib/fm/topo/modules/sun4v/platform-mem/common/
H A Dmem_mdesc.c62 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...]
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Kstat/
H A DKstat.xs764 MAGIC *mg;
766 mg = mg_find((SV *)hash, 'P');
767 PERL_ASSERTMSG(mg != 0, "get_tie: lost P magic");
768 tie = (HV *)SvRV(mg->mg_obj);
813 MAGIC *mg;
818 mg = mg_find((SV *)hash4, 'P');
819 PERL_ASSERTMSG(mg != 0,
823 if (! cb((HV *)SvRV(mg->mg_obj), arg)) {
839 MAGIC *mg;
841 mg
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Dutf8_heavy.pl180 $list =~ s/\tXXXX$/\t$hextra/mg;
185 while ($list =~ /^([0-9a-fA-F]+)(?:[\t]([0-9a-fA-F]+)?)(?:[ \t]([0-9a-fA-F]+))?/mg) {
202 while ($x =~ /^([^0-9a-fA-F\n])(.*)/mg) {
262 while (/^([0-9a-fA-F]+)(?:[ \t]([0-9a-fA-F]+)?)?(?:[ \t]([0-9a-fA-F]+))?/mg) {
300 while (/^([0-9a-fA-F]+)(?:[ \t]+([0-9a-fA-F]+))?/mg) {
318 while ($x =~ /^([-+!])(.*)/mg) {
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/Object/
H A DObject.xs60 MAGIC *mg;
70 mg = mg_find(SvRV(src->perl_obj), 'P');
71 PERL_ASSERT(mg != NULL);
72 src_av = (AV *)SvRV(mg->mg_obj);
298 MAGIC *mg;
303 mg = mg_find(SvRV(self->perl_obj), 'P');
304 PERL_ASSERT(mg != NULL);
305 av = (AV *)SvRV(mg->mg_obj);
526 MAGIC *mg;
539 mg
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/ByteLoader/
H A Dbytecode.h125 #define BSET_mg_name(mg, arg) mg->mg_ptr = arg; mg->mg_len = bstate->bs_pv.xpv_cur
126 #define BSET_mg_namex(mg, arg) \
127 (mg->mg_ptr = (char*)SvREFCNT_inc((SV*)arg), \
128 mg->mg_len = HEf_SVKEY)
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/
H A DRefHash.t208 s/ at .+ line \d+\.$//mg;
209 s/ at .+ line \d+, at .*//mg;
210 s/ at .+ line \d+, near .*//mg;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/
H A DUtil.xs69 MAGIC *mg = mg_find(sv, 't');
70 if (mg && ((mg->mg_len & 1) || (mg->mg_len & 2) && mg->mg_obj == sv))
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/
H A DB.xs234 make_mg_object(pTHX_ SV *arg, MAGIC *mg)
236 sv_setiv(newSVrv(arg, "B::MAGIC"), PTR2IV(mg));
1210 MAGIC * mg = NO_INIT
1212 for (mg = SvMAGIC(sv); mg; mg = mg->mg_moremagic)
1213 XPUSHs(make_mg_object(aTHX_ sv_newmortal(), mg));
1221 #define MgMOREMAGIC(mg) mg
[all...]
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/
H A DExacct.xs327 MAGIC *mg;
334 mg = mg_find(SvRV(xs_obj->perl_obj), 'P');
335 PERL_ASSERT(mg != NULL);
336 av = (AV*)SvRV(mg->mg_obj);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/
H A DStorable.xs2585 MAGIC *mg;
2615 if (!(mg = mg_find(sv, mtype)))
2621 * The mg->mg_obj found by mg_find() above actually points to the
2623 * original SV was that of a tied array, then mg->mg_obj is an AV.
2633 obj = mg->mg_obj ? mg->mg_obj : newSV(0);
2656 MAGIC *mg;
2661 if (!(mg = mg_find(sv, 'p')))
2668 if (mg->mg_ptr) {
2671 TRACEME(("store_tied_item: storing OBJ 0x%"UVxf, PTR2UV(mg
[all...]

Completed in 105 milliseconds

12