Lines Matching defs:mg
1543 Perl_do_magic_dump(pTHX_ I32 level, PerlIO *file, const MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
1547 for (; mg; mg = mg->mg_moremagic) {
1549 " MAGIC = 0x%" UVxf "\n", PTR2UV(mg));
1550 if (mg->mg_virtual) {
1551 const MGVTBL * const v = mg->mg_virtual;
1564 if (mg->mg_private)
1565 Perl_dump_indent(aTHX_ level, file, " MG_PRIVATE = %d\n", mg->mg_private);
1571 if (mg->mg_type == magic_names[n].type) {
1581 " MG_TYPE = UNKNOWN(\\%o)\n", mg->mg_type);
1584 if (mg->mg_flags) {
1585 Perl_dump_indent(aTHX_ level, file, " MG_FLAGS = 0x%02X\n", mg->mg_flags);
1586 if (mg->mg_type == PERL_MAGIC_envelem &&
1587 mg->mg_flags & MGf_TAINTEDDIR)
1589 if (mg->mg_type == PERL_MAGIC_regex_global &&
1590 mg->mg_flags & MGf_MINMATCH)
1592 if (mg->mg_flags & MGf_REFCOUNTED)
1594 if (mg->mg_flags & MGf_GSKIP)
1596 if (mg->mg_flags & MGf_COPY)
1598 if (mg->mg_flags & MGf_DUP)
1600 if (mg->mg_flags & MGf_LOCAL)
1602 if (mg->mg_type == PERL_MAGIC_regex_global &&
1603 mg->mg_flags & MGf_BYTES)
1606 if (mg->mg_obj) {
1608 PTR2UV(mg->mg_obj));
1609 if (mg->mg_type == PERL_MAGIC_qr) {
1610 REGEXP* const re = (REGEXP *)mg->mg_obj;
1622 if (mg->mg_flags & MGf_REFCOUNTED)
1623 do_sv_dump(level+2, file, mg->mg_obj, nest+1, maxnest, dumpops, pvlim); /* MG is already +1 */
1625 if (mg->mg_len)
1626 Perl_dump_indent(aTHX_ level, file, " MG_LEN = %ld\n", (long)mg->mg_len);
1627 if (mg->mg_ptr) {
1628 Perl_dump_indent(aTHX_ level, file, " MG_PTR = 0x%" UVxf, PTR2UV(mg->mg_ptr));
1629 if (mg->mg_len >= 0) {
1630 if (mg->mg_type != PERL_MAGIC_utf8) {
1632 PerlIO_printf(file, " %s", pv_display(sv, mg->mg_ptr, mg->mg_len, 0, pvlim));
1636 else if (mg->mg_len == HEf_SVKEY) {
1638 do_sv_dump(level+2, file, MUTABLE_SV(((mg)->mg_ptr)), nest+1,
1642 else if (mg->mg_len == -1 && mg->mg_type == PERL_MAGIC_utf8);
1651 if (mg->mg_type == PERL_MAGIC_utf8) {
1652 const STRLEN * const cache = (STRLEN *) mg->mg_ptr;
1669 Dumps the contents of the MAGIC C<mg> to C<STDERR>.
1675 Perl_magic_dump(pTHX_ const MAGIC *mg)
1677 do_magic_dump(0, Perl_debug_log, mg, 0, 0, FALSE, 0);
2255 MAGIC * const mg = mg_find(sv, PERL_MAGIC_symtab);
2256 if (mg && mg->mg_obj) {
2257 Perl_dump_indent(aTHX_ level, file, " PMROOT = 0x%" UVxf "\n", PTR2UV(mg->mg_obj));