Searched refs:mg_obj (Results 1 - 15 of 15) sorted by relevance
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
H A D | mg.h | 32 SV* mg_obj; member in struct:magic 55 ((mg)->mg_obj ? (mg)->mg_obj : sv_2mortal(newRV(sv)))
|
H A D | mg.c | 362 (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 D | scope.c | 209 SAVESPTR(mg->mg_obj); 210 mg->mg_obj = osv;
|
H A D | dump.c | 890 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 D | sv.c | 3016 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 D | pp_ctl.c | 89 regexp *re = (regexp *)mg->mg_obj;
|
H A D | regexec.c | 2879 re = (regexp *)mg->mg_obj;
|
H A D | pp_sys.c | 916 if (osv == mg->mg_obj)
|
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Kstat/ |
H A D | Kstat.xs | 768 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 D | Object.xs | 72 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 D | Asmdata.pm | 97 $insn_data{mg_obj} = [71, \&PUT_svindex, "GET_svindex"];
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/ |
H A D | Storable.xs | 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. 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 D | Exacct.xs | 336 av = (AV*)SvRV(mg->mg_obj);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/ |
H A D | Util.xs | 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/ByteLoader/ |
H A D | byterun.c | 560 SvMAGIC(bstate->bs_sv)->mg_obj = arg;
|
Completed in 312 milliseconds