Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/dump.c

Lines Matching defs:mg
813 Perl_do_magic_dump(pTHX_ I32 level, PerlIO *file, MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
815     for (; mg; mg = mg->mg_moremagic) {
817 			 "  MAGIC = 0x%"UVxf"\n", PTR2UV(mg));
818  	if (mg->mg_virtual) {
819             MGVTBL *v = mg->mg_virtual;
857 	if (mg->mg_private)
858 	    Perl_dump_indent(aTHX_ level, file, "    MG_PRIVATE = %d\n", mg->mg_private);
864 		if (mg->mg_type == magic_names[n].type) {
874 				"    MG_TYPE = UNKNOWN(\\%o)\n", mg->mg_type);
877         if (mg->mg_flags) {
878             Perl_dump_indent(aTHX_ level, file, "    MG_FLAGS = 0x%02X\n", mg->mg_flags);
879 	    if (mg->mg_type == PERL_MAGIC_envelem &&
880 		mg->mg_flags & MGf_TAINTEDDIR)
882 	    if (mg->mg_flags & MGf_REFCOUNTED)
884             if (mg->mg_flags & MGf_GSKIP)
886 	    if (mg->mg_type == PERL_MAGIC_regex_global &&
887 		mg->mg_flags & MGf_MINMATCH)
890 	if (mg->mg_obj) {
891 	    Perl_dump_indent(aTHX_ level, file, "    MG_OBJ = 0x%"UVxf"\n", PTR2UV(mg->mg_obj));
892 	    if (mg->mg_flags & MGf_REFCOUNTED)
893 		do_sv_dump(level+2, file, mg->mg_obj, nest+1, maxnest, dumpops, pvlim); /* MG is already +1 */
895         if (mg->mg_len)
896 	    Perl_dump_indent(aTHX_ level, file, "    MG_LEN = %ld\n", (long)mg->mg_len);
897         if (mg->mg_ptr) {
898 	    Perl_dump_indent(aTHX_ level, file, "    MG_PTR = 0x%"UVxf, PTR2UV(mg->mg_ptr));
899 	    if (mg->mg_len >= 0) {
900 		 if (mg->mg_type != PERL_MAGIC_utf8) {
902 		      PerlIO_printf(file, " %s", pv_display(sv, mg->mg_ptr, mg->mg_len, 0, pvlim));
906 	    else if (mg->mg_len == HEf_SVKEY) {
908 		do_sv_dump(level+2, file, (SV*)((mg)->mg_ptr), nest+1, maxnest, dumpops, pvlim); /* MG is already +1 */
915 	if (mg->mg_type == PERL_MAGIC_utf8) {
916 	     STRLEN *cache = (STRLEN *) mg->mg_ptr;
931 Perl_magic_dump(pTHX_ MAGIC *mg)
933     do_magic_dump(0, Perl_debug_log, mg, 0, 0, 0, 0);