summaryrefslogtreecommitdiff
path: root/rts/Hpc.c
diff options
context:
space:
mode:
authorbenl@cse.unsw.edu.au <unknown>2010-02-03 02:31:24 +0000
committerbenl@cse.unsw.edu.au <unknown>2010-02-03 02:31:24 +0000
commitb0beadabbe180e3bc729e27a5de79f9f1fc3bd0a (patch)
treedaf2cb2cf9a9bbe376dda7308f3bddb183b4af37 /rts/Hpc.c
parentb482880da3b1a849ac8b6157ab693159cdc24998 (diff)
downloadhaskell-b0beadabbe180e3bc729e27a5de79f9f1fc3bd0a.tar.gz
Stifle warning about printf format strings
Diffstat (limited to 'rts/Hpc.c')
-rw-r--r--rts/Hpc.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Hpc.c b/rts/Hpc.c
index cf75a05847..dd67227b23 100644
--- a/rts/Hpc.c
+++ b/rts/Hpc.c
@@ -200,7 +200,7 @@ static void hpc_init(void) {
/* 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);
+ sprintf(tixFilename,"%s/%s-%d.tix",hpc_tixdir,prog_name,(int)hpc_pid);
} else {
tixFilename = (char *) malloc(strlen(prog_name) + 6);
sprintf(tixFilename, "%s.tix", prog_name);