From: andy@galois.com <unknown>
Date: Wed, 25 Oct 2006 20:12:29 +0000 (+0000)
Subject: Changing Main.tix to <prog_name>.tix in the Hpc RTS
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=0df7dbb1b98d08521f177ade22615861752f8981

Changing Main.tix to <prog_name>.tix in the Hpc RTS
---

diff --git a/rts/Hpc.c b/rts/Hpc.c
index 8e67ffc..b1b2608 100644
--- a/rts/Hpc.c
+++ b/rts/Hpc.c
@@ -10,6 +10,7 @@
 #include <string.h>
 #include <assert.h>
 #include "HsFFI.h"
+#include "Rts.h"
 #include "Hpc.h"
 
 /* This is the runtime support for the Haskell Program Coverage (hpc) toolkit,
@@ -38,7 +39,7 @@ int totalTixes = 0;		// total number of tix boxes.
 
 
 
-static char *tixFilename = "Main.tix";
+static char *tixFilename;
 
 static void failure(char *msg) {
   printf("Hpc failure: %s\n",msg);
@@ -104,6 +105,10 @@ static void hpc_init(void) {
   }
   hpc_inited = 1;
   
+
+  tixFilename = (char *) malloc(strlen(prog_name) + 6);
+  sprintf(tixFilename, "%s.tix", prog_name);
+
   if (init_open(tixFilename)) { 
     totalTixes = 0;