- dump_indent(level, file, " GP = 0x%lx\n", (long)GvGP(sv));
- dump_indent(level, file, " SV = 0x%lx\n", (long)GvSV(sv));
- dump_indent(level, file, " REFCNT = %ld\n", (long)GvREFCNT(sv));
- dump_indent(level, file, " IO = 0x%lx\n", (long)GvIOp(sv));
- dump_indent(level, file, " FORM = 0x%lx\n", (long)GvFORM(sv));
- dump_indent(level, file, " AV = 0x%lx\n", (long)GvAV(sv));
- dump_indent(level, file, " HV = 0x%lx\n", (long)GvHV(sv));
- dump_indent(level, file, " CV = 0x%lx\n", (long)GvCV(sv));
- dump_indent(level, file, " CVGEN = 0x%lx\n", (long)GvCVGEN(sv));
- dump_indent(level, file, " LASTEXPR = %ld\n", (long)GvLASTEXPR(sv));
- dump_indent(level, file, " LINE = %ld\n", (long)GvLINE(sv));
- dump_indent(level, file, " FLAGS = 0x%x\n", (int)GvFLAGS(sv));
- do_gv_dump (level, file, " FILEGV", GvFILEGV(sv));
+ Perl_dump_indent(aTHX_ level, file, " GP = 0x%"UVxf"\n", PTR2UV(GvGP(sv)));
+ if (!GvGP(sv))
+ break;
+ Perl_dump_indent(aTHX_ level, file, " SV = 0x%"UVxf"\n", PTR2UV(GvSV(sv)));
+ Perl_dump_indent(aTHX_ level, file, " REFCNT = %"IVdf"\n", (IV)GvREFCNT(sv));
+ Perl_dump_indent(aTHX_ level, file, " IO = 0x%"UVxf"\n", PTR2UV(GvIOp(sv)));
+ Perl_dump_indent(aTHX_ level, file, " FORM = 0x%"UVxf" \n", PTR2UV(GvFORM(sv)));
+ Perl_dump_indent(aTHX_ level, file, " AV = 0x%"UVxf"\n", PTR2UV(GvAV(sv)));
+ Perl_dump_indent(aTHX_ level, file, " HV = 0x%"UVxf"\n", PTR2UV(GvHV(sv)));
+ Perl_dump_indent(aTHX_ level, file, " CV = 0x%"UVxf"\n", PTR2UV(GvCV(sv)));
+ Perl_dump_indent(aTHX_ level, file, " CVGEN = 0x%"UVxf"\n", (UV)GvCVGEN(sv));
+ Perl_dump_indent(aTHX_ level, file, " GPFLAGS = 0x%"UVxf"\n", (UV)GvGPFLAGS(sv));
+ Perl_dump_indent(aTHX_ level, file, " LINE = %"IVdf"\n", (IV)GvLINE(sv));
+ Perl_dump_indent(aTHX_ level, file, " FILE = \"%s\"\n", GvFILE(sv));
+ Perl_dump_indent(aTHX_ level, file, " FLAGS = 0x%"UVxf"\n", (UV)GvFLAGS(sv));