diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2002-04-21 22:32:29 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2002-04-21 22:32:29 +0000 |
| commit | 91f3b821ca3eaa8b7d74bb338729ba51b7b68a90 (patch) | |
| tree | 07c31a8443cfe72d822b821516a5f4ef90099af5 /dump.c | |
| parent | 11ef8fddd64f78304dc923b07dffddd7a4f28074 (diff) | |
| download | perl-91f3b821ca3eaa8b7d74bb338729ba51b7b68a90.tar.gz | |
squelch some more type mismatch warnings
SvREFCNT_dec(x ? y : z) did not typecast the right thing due to
missing parens in macro definition
p4raw-id: //depot/perl@16055
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -75,8 +75,8 @@ Perl_dump_sub(pTHX_ GV *gv) gv_fullname3(sv, gv, Nullch); Perl_dump_indent(aTHX_ 0, Perl_debug_log, "\nSUB %s = ", SvPVX(sv)); if (CvXSUB(GvCV(gv))) - Perl_dump_indent(aTHX_ 0, Perl_debug_log, "(xsub 0x%lx %d)\n", - (long)CvXSUB(GvCV(gv)), + Perl_dump_indent(aTHX_ 0, Perl_debug_log, "(xsub 0x%"UVxf" %d)\n", + PTR2UV(CvXSUB(GvCV(gv))), (int)CvXSUBANY(GvCV(gv)).any_i32); else if (CvROOT(GvCV(gv))) op_dump(CvROOT(GvCV(gv))); |