From: simonmar <unknown>
Date: Wed, 18 Jan 2006 11:00:35 +0000 (+0000)
Subject: [project @ 2006-01-18 11:00:35 by simonmar]
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=d5171bf249cd17d7a9e2a8c0396f6f0eb404d28e

[project @ 2006-01-18 11:00:35 by simonmar]
Remove dead code
---

diff --git a/ghc/rts/ProfHeap.c b/ghc/rts/ProfHeap.c
index 362bafe..8c088b7 100644
--- a/ghc/rts/ProfHeap.c
+++ b/ghc/rts/ProfHeap.c
@@ -520,8 +520,6 @@ static void
 fprint_ccs(FILE *fp, CostCentreStack *ccs, nat max_length)
 {
     char buf[max_length+1], *p, *buf_end;
-    nat next_offset = 0;
-    nat written;
 
     // MAIN on its own gets printed as "MAIN", otherwise we ignore MAIN.
     if (ccs == CCS_MAIN) {
@@ -553,8 +551,6 @@ fprint_ccs(FILE *fp, CostCentreStack *ccs, nat max_length)
 	if (p >= buf_end) {
 	    sprintf(buf+max_length-4, "...");
 	    break;
-	} else {
-	    next_offset += written;
 	}
     }
     fprintf(fp, "%s", buf);