X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRtsStartup.c;h=0ce17fe16f10265fb5f4de7ab89da7cf2122af31;hb=f7963d3f11e67375b8c6ecbd71e56f0d0ac262dd;hp=4f42823d4ae5f7dc946022b877b896c5118c6835;hpb=50c4d03919a9d5c37c14004e964083251f655e93;p=ghc-hetmet.git

diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c
index 4f42823..0ce17fe 100644
--- a/rts/RtsStartup.c
+++ b/rts/RtsStartup.c
@@ -499,7 +499,7 @@ hs_exit_(rtsBool wait_foreign)
     // Originally, this was in report_ccs_profiling().  Now, retainer
     // profiling might tack some extra stuff on to the end of this file
     // during endProfiling().
-    fclose(prof_file);
+    if (prof_file != NULL) fclose(prof_file);
 #endif
 
 #if defined(TICKY_TICKY)