| /mirbsd/src/gnu/usr.bin/perl/ |
| D | mg.h | 32 SV* mg_obj; member
61 ((mg)->mg_obj ? (mg)->mg_obj : sv_2mortal(newRV(sv)))
|
| D | mg.c | 381 : (type == PERL_MAGIC_regdata && mg->mg_obj) in Perl_mg_copy()
383 : mg->mg_obj, in Perl_mg_copy()
417 SvREFCNT_dec(mg->mg_obj); in Perl_mg_free()
433 if (mg->mg_obj) /* @+ */ in Perl_magic_regdata_cnt()
458 if (mg->mg_obj) /* @+ */ in Perl_magic_regdatum_get()
1667 AV *obj = (AV*)mg->mg_obj; in Perl_magic_getarylen()
1679 AV *obj = (AV*)mg->mg_obj; in Perl_magic_setarylen()
1852 ((mg->mg_len & 2) && mg->mg_obj == sv)); /* kludge */ in Perl_magic_gettaint()
1901 if (mg->mg_obj) { in Perl_magic_getdefelem()
1904 HE * const he = hv_fetch_ent((HV*)ahv, mg->mg_obj, FALSE, 0); in Perl_magic_getdefelem()
[all …]
|
| D | bytecode.pl | 427 mg_obj SvMAGIC(bstate->bs_sv)->mg_obj svindex
|
| D | scope.c | 215 SAVESPTR(mg->mg_obj); in S_save_scalar_at()
216 mg->mg_obj = osv; in S_save_scalar_at()
943 mg->mg_obj = 0; in Perl_leave_scope()
|
| D | sv.c | 3062 const regexp *re = (regexp *)mg->mg_obj; in Perl_sv_2pv_flags()
4651 mg->mg_obj = obj; in Perl_sv_magicext()
4654 mg->mg_obj = SvREFCNT_inc(obj); in Perl_sv_magicext()
4903 SvREFCNT_dec(mg->mg_obj); in Perl_sv_unmagic()
4958 av = (AV*)mg->mg_obj; in S_sv_add_backref()
4986 av = (AV *)mg->mg_obj; in S_sv_del_backref()
8146 if (mg && ((mg->mg_len & 1) || ((mg->mg_len & 2) && mg->mg_obj == sv))) in Perl_sv_tainted()
9760 nmg->mg_obj = (SV*)re_dup((REGEXP*)mg->mg_obj, param); in Perl_mg_dup()
9763 const AV * const av = (AV*) mg->mg_obj; in Perl_mg_dup()
9766 (void)SvREFCNT_inc(nmg->mg_obj = (SV*)newAV()); in Perl_mg_dup()
[all …]
|
| D | dump.c | 896 if (mg->mg_obj) { in Perl_do_magic_dump()
897 Perl_dump_indent(aTHX_ level, file, " MG_OBJ = 0x%"UVxf"\n", PTR2UV(mg->mg_obj)); in Perl_do_magic_dump()
899 do_sv_dump(level+2, file, mg->mg_obj, nest+1, maxnest, dumpops, pvlim); /* MG is already +1 */ in Perl_do_magic_dump()
|
| D | av.c | 515 mg->mg_obj = 0; in Perl_av_undef()
|
| D | pp_ctl.c | 98 regexp * const re = (regexp *)mg->mg_obj; in PP()
|
| D | regexec.c | 2932 re = (regexp *)mg->mg_obj; in S_regmatch()
|
| D | pp_sys.c | 937 if (osv == mg->mg_obj) in PP()
|
| D | Changes5.8.1 | 9800 [#17040] Storable now handles self-tied scalars with NULL mg_obj.
|
| /mirbsd/src/gnu/usr.bin/perl/ext/Thread/ |
| D | typemap | 15 $var = ($type) SvPVX(mg->mg_obj);
|
| D | Thread.xs | 637 SvMAGIC(sv)->mg_obj = SvREFCNT_inc(t->oursv);
|
| /mirbsd/src/gnu/usr.bin/perl/ext/threads/shared/ |
| D | shared.xs | 623 shared_sv *shared = SV_to_sharedsv(aTHX_ mg->mg_obj); in sharedsv_elem_mg_FETCH()
674 shared_sv *shared = SV_to_sharedsv(aTHX_ mg->mg_obj); in sharedsv_elem_mg_STORE()
710 shared_sv *shared = SV_to_sharedsv(aTHX_ mg->mg_obj); in sharedsv_elem_mg_DELETE()
736 Perl_sharedsv_free(aTHX_ SV_to_sharedsv(aTHX_ mg->mg_obj)); in sharedsv_elem_mg_free()
743 shared_sv *shared = SV_to_sharedsv(aTHX_ mg->mg_obj); in sharedsv_elem_mg_dup()
809 MAGIC *nmg = sv_magicext(nsv,mg->mg_obj, in sharedsv_array_mg_copy()
|
| /mirbsd/src/gnu/usr.bin/perl/ext/Devel/Peek/ |
| D | Changes | 30 By Gisle Aas: format SvPVX, print magic (but not unrefcounted mg_obj);
|
| /mirbsd/src/gnu/usr.bin/perl/ext/B/B/ |
| D | Asmdata.pm | 98 $insn_data{mg_obj} = [71, \&PUT_svindex, "GET_svindex"];
|
| /mirbsd/src/gnu/usr.bin/perl/ext/Storable/ |
| D | Storable.xs | 2730 obj = mg->mg_obj ? mg->mg_obj : newSV(0); in store_tied()
2768 TRACEME(("store_tied_item: storing OBJ 0x%"UVxf, PTR2UV(mg->mg_obj))); in store_tied_item()
2770 if ((ret = store(aTHX_ cxt, mg->mg_obj))) /* Extra () for -Wall, grr... */ in store_tied_item()
2782 TRACEME(("store_tied_item: storing OBJ 0x%"UVxf, PTR2UV(mg->mg_obj))); in store_tied_item()
2784 if ((ret = store(aTHX_ cxt, mg->mg_obj))) /* Idem, for -Wall */ in store_tied_item()
3238 PTR2UV(mg->mg_obj), PTR2UV(sv))); in store_hook()
3244 if ((ret = store(aTHX_ cxt, mg->mg_obj))) /* Extra () for -Wall, grr... */ in store_hook()
|
| /mirbsd/src/gnu/usr.bin/perl/ext/B/ |
| D | B.xs | 1272 #define MgOBJ(mg) mg->mg_obj
1274 #define MgREGEX(mg) PTR2IV(mg->mg_obj)
1325 REGEXP* rx = (REGEXP*)mg->mg_obj;
|
| /mirbsd/src/gnu/usr.bin/perl/ext/List/Util/ |
| D | Util.xs | 73 if (mg && ((mg->mg_len & 1) || (mg->mg_len & 2) && mg->mg_obj == sv)) in sv_tainted()
|
| /mirbsd/src/gnu/usr.bin/perl/ext/ByteLoader/ |
| D | byterun.c | 561 SvMAGIC(bstate->bs_sv)->mg_obj = arg; in byterun()
|
| /mirbsd/src/gnu/usr.bin/perl/pod/ |
| D | perlguts.pod | 904 SV* mg_obj;
944 The C<obj> argument is stored in the C<mg_obj> field of the C<MAGIC>
1122 field is an uppercase letter, then the mg_obj is copied to C<nsv>, but
|