diff options
| author | Gisle Aas <gisle@aas.no> | 1998-07-14 12:20:34 +0200 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-14 08:31:13 +0000 |
| commit | d7f63761d678aaab033d0df636b0ec3c47e250a7 (patch) | |
| tree | 4c3397a088ac51d88c3c5ffcdb87dcc6d830b5f8 | |
| parent | 74e13ce44e4508bd9e7db3e72533836d36277ca3 (diff) | |
| download | perl-d7f63761d678aaab033d0df636b0ec3c47e250a7.tar.gz | |
Make -DP work (and readable)
Message-Id: <m3hg0k973h.fsf@furu.g.aas.no>
p4raw-id: //depot/perl@1490
| -rw-r--r-- | run.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -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 */ } |