reduce gcc -ansi -pedantic noise plus a suggestion

Message-ID: <44527402.8000506@gmail.com>

p4raw-id: //depot/perl@28008

1 files changed, 3 insertions, 1 deletions

diff --git a/perlio.c b/perlio.c
index f65cc1114b..8d8a4ec201 100644
--- a/perlio.c
+++ b/perlio.c
@@ -2301,7 +2301,9 @@ S_more_refcounted_fds(pTHX_ const int new_fd) {
     PL_perlio_fd_refcnt_size = new_max;
     PL_perlio_fd_refcnt = new_array;
 
-    PerlIO_debug("Zeroing %p, %d\n", new_array + old_max, new_max - old_max);
+    PerlIO_debug("Zeroing %p, %d\n",
+		 (void*)(new_array + old_max),
+		 new_max - old_max);
 
     Zero(new_array + old_max, new_max - old_max, int);
 }