diff options
| author | Takano Akio <aljee@hyper.cx> | 2012-08-15 11:16:40 +0900 |
|---|---|---|
| committer | Paolo Capriotti <p.capriotti@gmail.com> | 2012-08-20 22:19:45 +0100 |
| commit | 4e0a957758af94bc39ff51814bad54faf96a94b9 (patch) | |
| tree | 564d8a2df65192b3f36e1050d89b0ecd9e128f33 /rts/Profiling.c | |
| parent | 3eb6e211dec006f3609dd880cbef83ee2ad719de (diff) | |
| download | haskell-4e0a957758af94bc39ff51814bad54faf96a94b9.tar.gz | |
Profiling: open .prof when -hr<cc> is specified
The code for retainer profiling is used with e.g. +RTS -hc -hrfoo -RTS,
as well as with +RTS -hr -RTS.
Diffstat (limited to 'rts/Profiling.c')
| -rw-r--r-- | rts/Profiling.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/rts/Profiling.c b/rts/Profiling.c index cc4d78e448..2544e00e21 100644 --- a/rts/Profiling.c +++ b/rts/Profiling.c @@ -240,7 +240,8 @@ initProfilingLogFile(void) #endif if (RtsFlags.CcFlags.doCostCentres == 0 && - RtsFlags.ProfFlags.doHeapProfile != HEAP_BY_RETAINER) + RtsFlags.ProfFlags.doHeapProfile != HEAP_BY_RETAINER && + RtsFlags.ProfFlags.retainerSelector == NULL) { /* No need for the <prog>.prof file */ prof_filename = NULL; |