X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FHpc.c;h=81c802cea23991855faeaa3a7b42ab5634e1ff1e;hb=8625c675de45bdb8bcfa795572ce7c47687c147c;hp=00b5a3d6c0f9e0ed05d40623fe2fddbc7c3f0109;hpb=998ec04a2ccd903399c0c34124f9e37aafb290c4;p=ghc-hetmet.git

diff --git a/rts/Hpc.c b/rts/Hpc.c
index 00b5a3d..81c802c 100644
--- a/rts/Hpc.c
+++ b/rts/Hpc.c
@@ -51,7 +51,7 @@ failure(char *msg) {
   } else {
     fprintf(stderr,"(perhaps remove .tix file?)\n");
   }
-  exit(-1);
+  stg_exit(1);
 }
 
 static int init_open(FILE *file) {
@@ -235,7 +235,7 @@ hs_hpc_module(char *modName,
 	fprintf(stderr,"in module '%s'\n",tmpModule->modName);
 	failure("module mismatch with .tix/.mix file hash number");
 	fprintf(stderr,"(perhaps remove %s ?)\n",tixFilename);
-	exit(-1);
+	stg_exit(1);
 
       }
       for(i=0;i < modCount;i++) {