This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make -DP work (and readable)
authorGisle Aas <gisle@aas.no>
Tue, 14 Jul 1998 10:20:34 +0000 (12:20 +0200)
committerGurusamy Sarathy <gsar@cpan.org>
Tue, 14 Jul 1998 08:31:13 +0000 (08:31 +0000)
Message-Id: <m3hg0k973h.fsf@furu.g.aas.no>

p4raw-id: //depot/perl@1490

run.c

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