Searched refs:mg_obj (Results 1 - 15 of 15) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dmg.h32 SV* mg_obj; member in struct:magic
55 ((mg)->mg_obj ? (mg)->mg_obj : sv_2mortal(newRV(sv)))
H A Dmg.c362 (mg->mg_type == PERL_MAGIC_regdata && mg->mg_obj)
363 ? sv : mg->mg_obj,
396 SvREFCNT_dec(mg->mg_obj);
411 if (mg->mg_obj) /* @+ */
437 if (mg->mg_obj) /* @+ */
720 * Pre-threads, this was paren = atoi(GvENAME((GV*)mg->mg_obj));
1643 sv_setiv(sv, AvFILL((AV*)mg->mg_obj) + PL_curcop->cop_arybase);
1650 av_fill((AV*)mg->mg_obj, SvIV(sv) - PL_curcop->cop_arybase);
1811 ((mg->mg_len & 2) && mg->mg_obj == sv)); /* kludge */
1857 if (mg->mg_obj) {
[all...]
H A Dscope.c209 SAVESPTR(mg->mg_obj);
210 mg->mg_obj = osv;
H A Ddump.c890 if (mg->mg_obj) {
891 Perl_dump_indent(aTHX_ level, file, " MG_OBJ = 0x%"UVxf"\n", PTR2UV(mg->mg_obj));
893 do_sv_dump(level+2, file, mg->mg_obj, nest+1, maxnest, dumpops, pvlim); /* MG is already +1 */
H A Dsv.c3016 regexp *re = (regexp *)mg->mg_obj;
4601 mg->mg_obj = obj;
4604 mg->mg_obj = SvREFCNT_inc(obj);
4609 using mg_obj directly, use the SvTIED_obj macro to produce a
4841 SvREFCNT_dec(mg->mg_obj);
4896 av = (AV*)mg->mg_obj;
4933 av = (AV *)mg->mg_obj;
8019 if (mg && ((mg->mg_len & 1) || ((mg->mg_len & 2) && mg->mg_obj == sv)))
9545 nmg->mg_obj = (SV*)re_dup((REGEXP*)mg->mg_obj, para
[all...]
H A Dpp_ctl.c89 regexp *re = (regexp *)mg->mg_obj;
H A Dregexec.c2879 re = (regexp *)mg->mg_obj;
H A Dpp_sys.c916 if (osv == mg->mg_obj)
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Kstat/
H A DKstat.xs768 tie = (HV *)SvRV(mg->mg_obj);
823 if (! cb((HV *)SvRV(mg->mg_obj), arg)) {
843 ((KstatInfo_t *)SvPVX(mg->mg_obj))->valid = (int)arg;
897 tie = (HV *)SvRV(mg->mg_obj);
904 (SV *)mg->mg_obj))->valid == FALSE) {
1072 kip = (KstatInfo_t *)SvPVX(mg->mg_obj);
1249 kc = *(kstat_ctl_t **)SvPVX(mg->mg_obj);
1368 kip = (KstatInfo_t *)SvPVX(mg->mg_obj);
1416 kc = *(kstat_ctl_t **)SvPVX(mg->mg_obj);
1576 kip = (KstatInfo_t *)SvPVX(mg->mg_obj);
[all...]
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/Object/
H A DObject.xs72 src_av = (AV *)SvRV(mg->mg_obj);
305 av = (AV *)SvRV(mg->mg_obj);
541 av = (AV *)SvRV(mg->mg_obj);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/
H A DAsmdata.pm97 $insn_data{mg_obj} = [71, \&PUT_svindex, "GET_svindex"];
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/
H A DStorable.xs2621 * 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.
2632 /* [#17040] mg_obj is NULL for scalar self-ties. AMS 20030416 */
2633 obj = mg->mg_obj ? mg->mg_obj : newSV(0);
2671 TRACEME(("store_tied_item: storing OBJ 0x%"UVxf, PTR2UV(mg->mg_obj)));
2673 if ((ret = store(aTHX_ cxt, mg->mg_obj))) /* Extra () for -Wall, grr... */
2685 TRACEME(("store_tied_item: storing OBJ 0x%"UVxf, PTR2UV(mg->mg_obj)));
2687 if ((ret = store(aTHX_ cxt, mg->mg_obj))) /* Idem, for -Wall */
3106 PTR2UV(mg->mg_obj), PTR2U
[all...]
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/
H A DExacct.xs336 av = (AV*)SvRV(mg->mg_obj);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/
H A DUtil.xs70 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/ByteLoader/
H A Dbyterun.c560 SvMAGIC(bstate->bs_sv)->mg_obj = arg;

Completed in 312 milliseconds