From 0df7dbb1b98d08521f177ade22615861752f8981 Mon Sep 17 00:00:00 2001 From: "andy@galois.com" Date: Wed, 25 Oct 2006 20:12:29 +0000 Subject: [PATCH] Changing Main.tix to .tix in the Hpc RTS --- rts/Hpc.c | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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 #include #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; -- 1.7.10.4