From: Ravi Nanavati <ravi@bluespec.com>
Date: Fri, 29 Sep 2006 22:53:24 +0000 (+0000)
Subject: hp_slash_fix
X-Git-Tag: 2006-12-16~161
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=3cdb0ada5aecbcbe940bacf577c02c41bc65c629

hp_slash_fix

Fix output of cost-centre stacks so that the slashes appear in the correct place

Please include this patch in the 6.6 branch as well as HEAD
---

diff --git a/rts/ProfHeap.c b/rts/ProfHeap.c
index 0ee53f3..1878d90 100644
--- a/rts/ProfHeap.c
+++ b/rts/ProfHeap.c
@@ -541,10 +541,10 @@ fprint_ccs(FILE *fp, CostCentreStack *ccs, nat max_length)
 	    p += buf_append(p, ccs->cc->module, buf_end);
 	    p += buf_append(p, ".CAF", buf_end);
 	} else {
+	    p += buf_append(p, ccs->cc->label, buf_end);
 	    if (ccs->prevStack != NULL && ccs->prevStack != CCS_MAIN) {
 		p += buf_append(p, "/", buf_end);
 	    }
-	    p += buf_append(p, ccs->cc->label, buf_end);
 	}
 	
 	if (p >= buf_end) {