Home
last modified time | relevance | path

Searched refs:mg_flags (Results 1 – 22 of 22) sorted by relevance

/openbsd/src/gnu/usr.bin/perl/
Dmg.h28 U8 mg_flags; member
45 #define MgTAINTEDDIR(mg) (mg->mg_flags & MGf_TAINTEDDIR)
46 #define MgTAINTEDDIR_on(mg) (mg->mg_flags |= MGf_TAINTEDDIR)
47 #define MgTAINTEDDIR_off(mg) (mg->mg_flags &= ~MGf_TAINTEDDIR)
78 ? (mg)->mg_len = (off), (mg)->mg_flags |= MGf_BYTES \
82 (mg)->mg_flags &= ~MGf_BYTES))
Dmg.c143 if (vtbl->svt_get && !(mg->mg_flags & MGf_GSKIP)) in Perl_mg_magical()
187 if (!(mg->mg_flags & MGf_GSKIP) && vtbl && vtbl->svt_get) { in Perl_mg_get()
209 if (mg->mg_flags & MGf_GSKIP) in Perl_mg_get()
220 && !(mg2->mg_flags & MGf_GSKIP) in Perl_mg_get()
285 if (mg->mg_flags & MGf_GSKIP) { in Perl_mg_set()
286 mg->mg_flags &= ~MGf_GSKIP; /* setting requires another read */ in Perl_mg_set()
445 if ((mg->mg_flags & MGf_COPY) && vtbl->svt_copy){ in Perl_mg_copy()
493 if ((mg->mg_flags & MGf_LOCAL) && vtbl->svt_local) in Perl_mg_localize()
526 if (mg->mg_flags & MGf_REFCOUNTED) in S_mg_free_struct()
2196 mg->mg_flags |= MGf_GSKIP; in Perl_magic_getpack()
[all …]
Ddump.c1584 if (mg->mg_flags) { in Perl_do_magic_dump()
1585 Perl_dump_indent(aTHX_ level, file, " MG_FLAGS = 0x%02X\n", mg->mg_flags); in Perl_do_magic_dump()
1587 mg->mg_flags & MGf_TAINTEDDIR) in Perl_do_magic_dump()
1590 mg->mg_flags & MGf_MINMATCH) in Perl_do_magic_dump()
1592 if (mg->mg_flags & MGf_REFCOUNTED) in Perl_do_magic_dump()
1594 if (mg->mg_flags & MGf_GSKIP) in Perl_do_magic_dump()
1596 if (mg->mg_flags & MGf_COPY) in Perl_do_magic_dump()
1598 if (mg->mg_flags & MGf_DUP) in Perl_do_magic_dump()
1600 if (mg->mg_flags & MGf_LOCAL) in Perl_do_magic_dump()
1603 mg->mg_flags & MGf_BYTES) in Perl_do_magic_dump()
[all …]
Dav.c1218 mg->mg_flags |= MGf_REFCOUNTED; in S_get_aux_mg()
Dpp.c329 assert( mg_av->mg_flags & MGf_REFCOUNTED); in PP()
330 assert(!(mg_al->mg_flags & MGf_REFCOUNTED)); in PP()
331 mg_av->mg_flags &= ~MGf_REFCOUNTED; in PP()
332 mg_al->mg_flags |= MGf_REFCOUNTED; in PP()
365 if (mg->mg_flags & MGf_BYTES && DO_UTF8(sv)) in PP()
7464 mg->mg_flags |= MGf_PERSIST;
Dinline.h330 if (mg->mg_flags & MGf_BYTES || !DO_UTF8(sv)) in S_MgBYTEPOS()
3538 && !(mg->mg_flags & MGf_GSKIP) in Perl_sv_only_taint_gmagic()
Dsv.c3589 mg->mg_flags &= ~MGf_BYTES; in Perl_sv_utf8_upgrade_flags_grow()
3634 U32 mg_flags = flags & SV_GMAGIC; in Perl_sv_utf8_downgrade_flags() local
3642 if (mg && mg->mg_len > 0 && mg->mg_flags & MGf_BYTES) { in Perl_sv_utf8_downgrade_flags()
3644 mg_flags|SV_CONST_RETURN); in Perl_sv_utf8_downgrade_flags()
3645 mg_flags = 0; /* sv_pos_b2u does get magic */ in Perl_sv_utf8_downgrade_flags()
3651 s = (U8 *) SvPV_flags(sv, len, mg_flags); in Perl_sv_utf8_downgrade_flags()
5868 mg->mg_flags |= MGf_REFCOUNTED;
6018 if (mg->mg_flags & MGf_REFCOUNTED)
6231 mg->mg_flags |= MGf_REFCOUNTED;
14216 nmg->mg_obj = (nmg->mg_flags & MGf_REFCOUNTED)
[all …]
Dpp_hot.c3798 if (mg->mg_flags & MGf_MINMATCH) in PP()
3854 mg->mg_flags |= MGf_MINMATCH; in PP()
3856 mg->mg_flags &= ~MGf_MINMATCH; in PP()
Dop.c14757 *ckflags_p = (callmg->mg_flags | gflags) & MGf_REQUIRE_GV; in Perl_cv_get_call_checker_flags()
14842 if (callmg->mg_flags & MGf_REFCOUNTED) { in Perl_cv_set_call_checker_flags()
14844 callmg->mg_flags &= ~MGf_REFCOUNTED; in Perl_cv_set_call_checker_flags()
14850 callmg->mg_flags |= MGf_REFCOUNTED; in Perl_cv_set_call_checker_flags()
14852 callmg->mg_flags = (callmg->mg_flags &~ MGf_REQUIRE_GV) in Perl_cv_set_call_checker_flags()
Ddoio.c1557 mg->mg_flags |= MGf_DUP; in Perl_nextargv()
Dregexec.c11245 eval_state->pos_flags = mg->mg_flags; in S_setup_eval_state()
11322 eval_state->pos_magic->mg_flags = in S_cleanup_regmatch_info_aux()
11323 (eval_state->pos_magic->mg_flags & ~MGf_BYTES) in S_cleanup_regmatch_info_aux()
Dpp_ctl.c6692 mg->mg_flags |= MGf_REFCOUNTED; in S_doparseform()
/openbsd/src/gnu/usr.bin/perl/dist/threads-shared/
Dshared.xs502 mg->mg_flags |= (MGf_COPY|MGf_DUP); in Perl_sharedsv_associate()
519 mg->mg_flags |= (MGf_DUP in Perl_sharedsv_associate()
927 nmg->mg_flags = mg->mg_flags; in sharedsv_scalar_mg_local()
1091 assert(mg->mg_flags & MGf_DUP); in sharedsv_elem_mg_dup()
1194 nmg->mg_flags |= MGf_DUP; in sharedsv_array_mg_copy()
1205 assert(mg->mg_flags & MGf_DUP); in sharedsv_array_mg_dup()
/openbsd/src/gnu/usr.bin/perl/cpan/Digest-MD5/
DMD5.xs157 mg->mg_flags |= MGf_DUP; in new_md5_ctx()
/openbsd/src/gnu/usr.bin/perl/cpan/Scalar-List-Utils/
DListUtil.xs2057 if (mg->mg_flags & MGf_REFCOUNTED)
2059 mg->mg_flags |= MGf_REFCOUNTED;
/openbsd/src/gnu/usr.bin/perl/dist/Devel-PPPort/parts/inc/
Dmagic236 if (mg->mg_flags & MGf_REFCOUNTED)
/openbsd/src/sys/dev/pv/
Dif_xnf.c142 uint8_t mg_flags; member
/openbsd/src/gnu/usr.bin/perl/dist/threads/
Dthreads.xs735 mg->mg_flags |= MGf_DUP; in S_ithread_to_SV()
/openbsd/src/gnu/usr.bin/perl/ext/B/
DB.xs1819 mPUSHu(mg->mg_flags);
/openbsd/src/gnu/usr.bin/perl/cpan/Term-ReadKey/
Dppport.h16395 if (mg->mg_flags & MGf_REFCOUNTED) in DPPP_()
/openbsd/src/gnu/usr.bin/perl/ext/XS-APItest/
DAPItest.xs5067 mg->mg_flags = MGf_COPY;
/openbsd/src/gnu/usr.bin/perl/pod/
Dperlguts.pod1355 U8 mg_flags;
1484 C<MGf_COPY>, C<MGf_DUP>, or C<MGf_LOCAL> is set in mg_flags.