Home
last modified time | relevance | path

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

/openbsd/gnu/usr.bin/perl/
H A Dmg.h27 char mg_type; member
76 assert_((mg)->mg_type == PERL_MAGIC_regex_global) \
H A Dmg.c190 if (mg->mg_type != PERL_MAGIC_taint) { in Perl_mg_get()
449 const char type = mg->mg_type; in Perl_mg_copy()
490 if (PERL_MAGIC_TYPE_IS_VALUE_MAGIC(mg->mg_type)) in Perl_mg_localize()
572 if (mg->mg_type == how) { in Perl_mg_free_type()
1525 return sv_unmagic(sv, mg->mg_type); in Perl_magic_clearsig()
1898 return sv_unmagic(sv, mg->mg_type); in Perl_magic_clearhook()
2167 else if (mg->mg_type == PERL_MAGIC_tiedelem) { in S_magic_methcall1()
2195 if (mg->mg_type == PERL_MAGIC_tiedelem) in Perl_magic_getpack()
2791 const char type = mg->mg_type; in Perl_magic_setregexp()
2831 assert(mg->mg_type == PERL_MAGIC_collxfrm); in Perl_magic_freecollxfrm()
[all …]
H A Dav.c434 if (!isUPPER(mg->mg_type)) continue; in Perl_av_store()
436 sv_magic(val, MUTABLE_SV(av), toLOWER(mg->mg_type), 0, key); in Perl_av_store()
438 if (PL_delaymagic && mg->mg_type == PERL_MAGIC_isa) { in Perl_av_store()
654 if (PL_delaymagic && mg && mg->mg_type == PERL_MAGIC_isa) in Perl_av_clear()
H A Ddump.c1571 if (mg->mg_type == magic_names[n].type) { in Perl_do_magic_dump()
1581 " MG_TYPE = UNKNOWN(\\%o)\n", mg->mg_type); in Perl_do_magic_dump()
1586 if (mg->mg_type == PERL_MAGIC_envelem && in Perl_do_magic_dump()
1589 if (mg->mg_type == PERL_MAGIC_regex_global && in Perl_do_magic_dump()
1602 if (mg->mg_type == PERL_MAGIC_regex_global && in Perl_do_magic_dump()
1609 if (mg->mg_type == PERL_MAGIC_qr) { in Perl_do_magic_dump()
1630 if (mg->mg_type != PERL_MAGIC_utf8) { in Perl_do_magic_dump()
1642 else if (mg->mg_len == -1 && mg->mg_type == PERL_MAGIC_utf8); in Perl_do_magic_dump()
1651 if (mg->mg_type == PERL_MAGIC_utf8) { in Perl_do_magic_dump()
H A Dinline.h328 assert(mg->mg_type == PERL_MAGIC_regex_global); in S_MgBYTEPOS()
3537 if (mg->mg_type != PERL_MAGIC_taint in Perl_sv_only_taint_gmagic()
H A Dsv.c5885 mg->mg_type = how;
6006 if (mg->mg_type == type && (!flags || virt == vtbl)) {
6010 if (mg->mg_ptr && mg->mg_type != PERL_MAGIC_regex_global) {
6015 else if (mg->mg_type == PERL_MAGIC_utf8)
14194 && mg->mg_type == PERL_MAGIC_backref)
14217 ? nmg->mg_type == PERL_MAGIC_backref
14223 : (nmg->mg_type == PERL_MAGIC_regdatum ||
14224 nmg->mg_type == PERL_MAGIC_regdata)
14228 if (nmg->mg_ptr && nmg->mg_type != PERL_MAGIC_regex_global) {
14231 if (nmg->mg_type == PERL_MAGIC_overload_table &&
H A Dhv.c1083 if (isUPPER(mg->mg_type)) { in S_hv_magic_check()
1085 if (mg->mg_type == PERL_MAGIC_tied) { in S_hv_magic_check()
H A Dsv.h1325 && (SvMAGIC(_svvalid)->mg_type == PERL_MAGIC_bm \
H A Dgv.c4359 if (mg->mg_type != PERL_MAGIC_backref) in Perl_gv_try_downgrade()
H A Dperl.c1537 if (mg->mg_ptr && mg->mg_type != PERL_MAGIC_regex_global in perl_destruct()
H A Dpp_hot.c5906 assert(PERL_MAGIC_TYPE_IS_VALUE_MAGIC(mg->mg_type)); in Perl_leave_adjust_stacks()
H A Dpp_ctl.c2542 assert(SvMAGIC(sv)->mg_type == PERL_MAGIC_lvref); in PP()
/openbsd/gnu/usr.bin/perl/cpan/Digest-MD5/
H A DMD5.xs70 mg->mg_type = type; in THX_sv_magicext()
131 if (mg->mg_type == PERL_MAGIC_ext in get_md5_ctx()
/openbsd/gnu/usr.bin/perl/dist/Devel-PPPort/parts/inc/
H A Dmagic199 if (mg->mg_type == type && mg->mg_virtual == vtbl)
224 if (mg->mg_type == type && virt == vtbl) {
228 if (mg->mg_ptr && mg->mg_type != PERL_MAGIC_regex_global) {
233 else if (mg->mg_type == PERL_MAGIC_utf8)
/openbsd/gnu/usr.bin/perl/ext/Hash-Util-FieldHash/
H A DFieldHash.xs78 if ((mg->mg_type == PERL_MAGIC_ext) && in HUF_obj_id()
332 if ((mg->mg_type == PERL_MAGIC_ext) && in HUF_fix_objects()
/openbsd/gnu/usr.bin/perl/dist/threads-shared/
H A Dshared.xs411 if ((mg->mg_type == PERL_MAGIC_ext) && in S_get_userlock()
925 nmg = sv_magicext(nsv, mg->mg_obj, mg->mg_type, mg->mg_virtual, in sharedsv_scalar_mg_local()
1191 toLOWER(mg->mg_type),&sharedsv_elem_vtbl, in sharedsv_array_mg_copy()
/openbsd/gnu/usr.bin/perl/ext/B/
H A DB.xs1816 PUSHs(newSVpvn_flags(&(mg->mg_type), 1, SVs_TEMP));
1839 if(mg->mg_type == PERL_MAGIC_qr) {
1846 if (mg->mg_type == PERL_MAGIC_qr) {
/openbsd/sys/dev/pv/
H A Dif_xnf.c139 uint8_t mg_type; member
/openbsd/gnu/usr.bin/perl/cpan/Term-ReadKey/
H A Dppport.h16344 if (mg->mg_type == type && mg->mg_virtual == vtbl) in DPPP_()
16383 if (mg->mg_type == type && virt == vtbl) { in DPPP_()
16387 if (mg->mg_ptr && mg->mg_type != PERL_MAGIC_regex_global) { in DPPP_()
16392 else if (mg->mg_type == PERL_MAGIC_utf8) in DPPP_()
/openbsd/gnu/usr.bin/perl/cpan/Scalar-List-Utils/
H A DListUtil.xs2053 mg->mg_type = PERL_MAGIC_ext;
/openbsd/gnu/usr.bin/perl/pod/
H A Dperlguts.pod1354 char mg_type;
1391 stored in the C<mg_type> field. The value of
1472 to an C<mg_type> of C<PERL_MAGIC_sv>) contains:
1503 mg_type
1731 This routine checks to see what types of magic C<sv> has. If the mg_type
1733 the mg_type field is changed to be the lowercase letter.
/openbsd/gnu/usr.bin/perl/dist/Storable/
H A DStorable.xs467 mg->mg_type = type; in THX_sv_magicext()