From 8ef97aa30a33fb3b536252b2c0459cdf0fd5236f Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 3 Oct 2008 15:07:45 +0000 Subject: [PATCH] Fix #1955 for heap profiles generated by +RTS -hT --- rts/ProfHeap.c | 21 +++++++++++++++++++-- 1 file changed, 19 insertions(+), 2 deletions(-) diff --git a/rts/ProfHeap.c b/rts/ProfHeap.c index 9aca5a9..9cb47a1 100644 --- a/rts/ProfHeap.c +++ b/rts/ProfHeap.c @@ -397,10 +397,25 @@ void freeProfiling1 (void) void initProfiling2 (void) { + char *prog; + + prog = stgMallocBytes(strlen(prog_name) + 1, "initProfiling2"); + strcpy(prog, prog_name); +#ifdef mingw32_HOST_OS + // on Windows, drop the .exe suffix if there is one + { + char *suff; + suff = strrchr(prog,'.'); + if (suff != NULL && !strcmp(suff,".exe")) { + *suff = '\0'; + } + } +#endif + if (RtsFlags.ProfFlags.doHeapProfile) { /* Initialise the log file name */ - hp_filename = stgMallocBytes(strlen(prog_name) + 6, "hpFileName"); - sprintf(hp_filename, "%s.hp", prog_name); + hp_filename = stgMallocBytes(strlen(prog) + 6, "hpFileName"); + sprintf(hp_filename, "%s.hp", prog); /* open the log file */ if ((hp_file = fopen(hp_filename, "w")) == NULL) { @@ -411,6 +426,8 @@ void initProfiling2 (void) } } + stgFree(prog); + initHeapProfiling(); } -- 1.7.10.4