From cc52f604e67ad4b45ce449e7b957379f7a85855f Mon Sep 17 00:00:00 2001 From: "andy@galois.com" Date: Tue, 8 Apr 2008 23:24:50 +0000 Subject: [PATCH 1/1] Adding environment variable HPCTIXDIR, a directory to place tix results. --- rts/Hpc.c | 26 +++++++++++++++++++++++--- 1 file changed, 23 insertions(+), 3 deletions(-) diff --git a/rts/Hpc.c b/rts/Hpc.c index 014319c..3c725f4 100644 --- a/rts/Hpc.c +++ b/rts/Hpc.c @@ -12,6 +12,14 @@ #include "Hpc.h" #include "Trace.h" +#ifdef HAVE_SYS_TYPES_H +#include +#endif + +#ifdef HAVE_SYS_STAT_H +#include +#endif + #ifdef HAVE_UNISTD_H #include #endif @@ -165,14 +173,26 @@ readTix(void) { } static void hpc_init(void) { + char *hpc_tixdir; if (hpc_inited != 0) { return; } hpc_inited = 1; hpc_pid = getpid(); - - tixFilename = (char *) malloc(strlen(prog_name) + 6); - sprintf(tixFilename, "%s.tix", prog_name); + hpc_tixdir = getenv("HPCTIXDIR"); + + if (hpc_tixdir != NULL) { + /* Make sure the directory is present + */ + mkdir(hpc_tixdir,0777); + /* Then, try open the file + */ + tixFilename = (char *) malloc(strlen(hpc_tixdir) + strlen(prog_name) + 12); + sprintf(tixFilename,"%s/%s-%d.tix",hpc_tixdir,prog_name,hpc_pid); + } else { + tixFilename = (char *) malloc(strlen(prog_name) + 6); + sprintf(tixFilename, "%s.tix", prog_name); + } if (init_open(fopen(tixFilename,"r"))) { readTix(); -- 1.7.10.4