From: Gisle Aas <gisle@aas.no>
Date: Tue, 14 Jul 1998 10:20:34 +0000 (+0200)
Subject: Make -DP work (and readable)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d7f63761d678aaab033d0df636b0ec3c47e250a7;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 */
 }