X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fruntime%2Fprofiling%2FHeapProfile.lc;h=960fe7d48e08cce94e73b4c0f468d8e685e69f14;hb=3f9b5688990aa7c1170c8d995df69087b43dabeb;hp=373e9ffc7159e26117c1dba179ddd868f164d569;hpb=769ce8e72ae626356ce57162b7ff448c0ef7e700;p=ghc-hetmet.git

diff --git a/ghc/runtime/profiling/HeapProfile.lc b/ghc/runtime/profiling/HeapProfile.lc
index 373e9ff..960fe7d 100644
--- a/ghc/runtime/profiling/HeapProfile.lc
+++ b/ghc/runtime/profiling/HeapProfile.lc
@@ -309,7 +309,7 @@ heap_profile_init(argv)
 	fprintf(heap_file, "}");
     }
     if (type_select_no) {
-	fprintf(heap_file, " -t{%s", type_select_strs[0]);
+	fprintf(heap_file, " -y{%s", type_select_strs[0]);
 	for (count = 1; count < type_select_no; count++)
 	    fprintf(heap_file, ",%s", type_select_strs[count]);
 	fprintf(heap_file, "}");
@@ -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;
 	}