diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-06-08 13:01:01 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-06-08 13:01:01 +0000 |
| commit | d2847b0578d5c143bb325ca66c948d1a1cb08354 (patch) | |
| tree | 529905a53d9f754bab7a24465e11caa8d7e566be /includes/RtsFlags.h | |
| parent | 04a046e8fcf175cd00d3ac87510b0b594c8f91e1 (diff) | |
| download | haskell-d2847b0578d5c143bb325ca66c948d1a1cb08354.tar.gz | |
Add new RTS flags for tracing:
-vs Trace scheduler events (see also -Ds with -debug)
-vt Time-stamp trace messages
the intention is that we will pipe the -vs output into a
profile-generating tool. This commit includes the flags only,
functionality to follow.
Diffstat (limited to 'includes/RtsFlags.h')
| -rw-r--r-- | includes/RtsFlags.h | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/includes/RtsFlags.h b/includes/RtsFlags.h index 11d9dbca80..ccf170f0f7 100644 --- a/includes/RtsFlags.h +++ b/includes/RtsFlags.h @@ -289,6 +289,10 @@ struct TICKY_FLAGS { FILE *tickyFile; }; +struct TRACE_FLAGS { + rtsBool sched; /* trace scheduler events for profiling */ + rtsBool timestamp; /* add timestamps to traces */ +}; /* Put them together: */ @@ -300,6 +304,7 @@ typedef struct _RTS_FLAGS { struct COST_CENTRE_FLAGS CcFlags; struct PROFILING_FLAGS ProfFlags; struct TICKY_FLAGS TickyFlags; + struct TRACE_FLAGS TraceFlags; #if defined(THREADED_RTS) || defined(PAR) struct PAR_FLAGS ParFlags; |