Make -DP work (and readable)

	Message-Id: <m3hg0k973h.fsf@furu.g.aas.no>

p4raw-id: //depot/perl@1490

diff --git a/run.c b/run.c
index d7133c7..144ba6b 100644 (file)
--- a/run.c
+++ b/run.c
@@ -117,7 +117,7 @@ debprof(OP *o)
 {
 #ifdef DEBUGGING
     if (!profiledata)
-       New(000, profiledata, MAXO, U32);
+       Newz(000, profiledata, MAXO, U32);
     ++profiledata[o->op_type];
 #endif /* DEBUGGING */
 }
@@ -132,7 +132,8 @@ debprofdump(void)
     for (i = 0; i < MAXO; i++) {
        if (profiledata[i])
            PerlIO_printf(Perl_debug_log,
-                         "%u\t%lu\n", i, (unsigned long)profiledata[i]);
+                         "%5lu %s\n", (unsigned long)profiledata[i],
+                                       op_name[i]);
     }
 #endif /* DEBUGGING */
 }