From 0e2dedf3f51a2e05934c34e6c069a0edbee74b34 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Tue, 25 Nov 1997 11:19:14 +0000
Subject: [PATCH] [project @ 1997-11-25 11:19:14 by simonm] Don't arbitrarily
truncate function names.
Reasoning:
* If the function names are long, it just reduces the size of
the graph, no information is lost.
* If the user wants shorter cost center names, explicit cost
centres can be inserted.
---
ghc/runtime/profiling/HeapProfile.lc | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/ghc/runtime/profiling/HeapProfile.lc b/ghc/runtime/profiling/HeapProfile.lc
index 374b4f357287..960fe7d48e08 100644
--- a/ghc/runtime/profiling/HeapProfile.lc
+++ b/ghc/runtime/profiling/HeapProfile.lc
@@ -632,7 +632,7 @@ heap_profile_done(STG_NO_ARGS) /* called at end of heap profile */
case HEAP_BY_CC:
for (ind = 0; ind < max; ind++) {
if ((cc = index_cc_table[ind]) != 0 && ! cc_to_ignore(cc)) {
- fprintf(heap_file, " %0.11s:%0.16s %ld\n", cc->module, cc->label, resid[ind] * sizeof(W_));
+ fprintf(heap_file, " %s:%s %ld\n", cc->module, cc->label, resid[ind] * sizeof(W_));
}
resid[ind] = 0;
}
@@ -641,7 +641,7 @@ heap_profile_done(STG_NO_ARGS) /* called at end of heap profile */
case HEAP_BY_MOD:
for (ind = 0; ind < max; ind++) {
if ((cc = index_mod_table[ind]) != 0 && ! cc_to_ignore(cc)) {
- fprintf(heap_file, " %0.11s %ld\n", cc->module, resid[ind] * sizeof(W_));
+ fprintf(heap_file, " %s %ld\n", cc->module, resid[ind] * sizeof(W_));
}
resid[ind] = 0;
}
--
GitLab