/openbsd/gnu/usr.bin/perl/ |
H A D | mg.h | 27 char mg_type; member 76 assert_((mg)->mg_type == PERL_MAGIC_regex_global) \
|
H A D | mg.c | 190 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 D | av.c | 434 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 D | dump.c | 1571 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 D | inline.h | 328 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 D | sv.c | 5885 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 D | hv.c | 1083 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 D | sv.h | 1325 && (SvMAGIC(_svvalid)->mg_type == PERL_MAGIC_bm \
|
H A D | gv.c | 4359 if (mg->mg_type != PERL_MAGIC_backref) in Perl_gv_try_downgrade()
|
H A D | perl.c | 1537 if (mg->mg_ptr && mg->mg_type != PERL_MAGIC_regex_global in perl_destruct()
|
H A D | pp_hot.c | 5906 assert(PERL_MAGIC_TYPE_IS_VALUE_MAGIC(mg->mg_type)); in Perl_leave_adjust_stacks()
|
H A D | pp_ctl.c | 2542 assert(SvMAGIC(sv)->mg_type == PERL_MAGIC_lvref); in PP()
|
/openbsd/gnu/usr.bin/perl/cpan/Digest-MD5/ |
H A D | MD5.xs | 70 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 D | magic | 199 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 D | FieldHash.xs | 78 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 D | shared.xs | 411 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 D | B.xs | 1816 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 D | if_xnf.c | 139 uint8_t mg_type; member
|
/openbsd/gnu/usr.bin/perl/cpan/Term-ReadKey/ |
H A D | ppport.h | 16344 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 D | ListUtil.xs | 2053 mg->mg_type = PERL_MAGIC_ext;
|
/openbsd/gnu/usr.bin/perl/pod/ |
H A D | perlguts.pod | 1354 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 D | Storable.xs | 467 mg->mg_type = type; in THX_sv_magicext()
|