diff options
| author | andy@galois.com <unknown> | 2007-02-13 18:44:02 +0000 |
|---|---|---|
| committer | andy@galois.com <unknown> | 2007-02-13 18:44:02 +0000 |
| commit | ebf733111484edc973797025418cba8f096246f6 (patch) | |
| tree | 7667f660a7f51073dbc631f58d1f2b334e21b735 /rts/RtsFlags.c | |
| parent | cac2aca1e1874e936f3ef15ca2a81a32c7863750 (diff) | |
| download | haskell-ebf733111484edc973797025418cba8f096246f6.tar.gz | |
Using RTS debug tracing support inside Hpc.c
Diffstat (limited to 'rts/RtsFlags.c')
| -rw-r--r-- | rts/RtsFlags.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/rts/RtsFlags.c b/rts/RtsFlags.c index d818e774cb..a3d1d83603 100644 --- a/rts/RtsFlags.c +++ b/rts/RtsFlags.c @@ -165,6 +165,7 @@ void initRtsFlagsDefaults(void) RtsFlags.DebugFlags.par = rtsFalse; RtsFlags.DebugFlags.linker = rtsFalse; RtsFlags.DebugFlags.squeeze = rtsFalse; + RtsFlags.DebugFlags.hpc = rtsFalse; #endif #if defined(PROFILING) || defined(PAR) @@ -427,6 +428,7 @@ usage_text[] = { " -Dl DEBUG: linker", " -Dm DEBUG: stm", " -Dz DEBUG: stack squezing", +" -Dc DEBUG: program coverage", "", #endif /* DEBUG */ #if defined(THREADED_RTS) && !defined(NOSMP) @@ -759,6 +761,9 @@ error = rtsTrue; case 'z': RtsFlags.DebugFlags.squeeze = rtsTrue; break; + case 'c': + RtsFlags.DebugFlags.hpc = rtsTrue; + break; default: bad_option( rts_argv[arg] ); } |