diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-05-12 10:40:20 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-05-12 10:40:20 +0000 |
| commit | 9ac03f0b59ea5a6274309c6915666f4a79c0cb09 (patch) | |
| tree | c08a42784813f76dfae120aaff2c99377a8f3d70 /rts/RtsStartup.c | |
| parent | dcf739bd7fb7de140be3bafb4ce211e2e5c7bba9 (diff) | |
| download | haskell-9ac03f0b59ea5a6274309c6915666f4a79c0cb09.tar.gz | |
FIX #2234: don't generate <prog>.prof unless we're going to put something in it
Diffstat (limited to 'rts/RtsStartup.c')
| -rw-r--r-- | rts/RtsStartup.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c index 4f42823d4a..0ce17fe16f 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) |