projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix Trac #2311: creates subdirs for package coverage information
[ghc-hetmet.git]
/
includes
/
RtsFlags.h
diff --git
a/includes/RtsFlags.h
b/includes/RtsFlags.h
index
bc36ebd
..
11133ef
100644
(file)
--- a/
includes/RtsFlags.h
+++ b/
includes/RtsFlags.h
@@
-39,6
+39,8
@@
struct GC_FLAGS {
rtsBool compact; /* True <=> "compact all the time" */
double compactThreshold;
rtsBool compact; /* True <=> "compact all the time" */
double compactThreshold;
+ rtsBool sweep; /* use "mostly mark-sweep" instead of copying
+ * for the oldest generation */
rtsBool ringBell;
rtsBool frontpanel;
rtsBool ringBell;
rtsBool frontpanel;
@@
-301,14
+303,17
@@
struct TICKY_FLAGS {
struct TRACE_FLAGS {
rtsBool sched; /* trace scheduler events for profiling */
struct TRACE_FLAGS {
rtsBool sched; /* trace scheduler events for profiling */
+ rtsBool gc; /* trace GC events */
rtsBool timestamp; /* add timestamps to traces */
};
rtsBool timestamp; /* add timestamps to traces */
};
-/* Put them together: */
-
#ifdef USE_PAPI
#ifdef USE_PAPI
+#define MAX_PAPI_USER_EVENTS 8
+
struct PAPI_FLAGS {
nat eventType; /* The type of events to count */
struct PAPI_FLAGS {
nat eventType; /* The type of events to count */
+ nat numUserEvents;
+ char * userEvents[MAX_PAPI_USER_EVENTS];
};
#define PAPI_FLAG_CACHE_L1 1
};
#define PAPI_FLAG_CACHE_L1 1
@@
-316,9
+321,12
@@
struct PAPI_FLAGS {
#define PAPI_FLAG_BRANCH 3
#define PAPI_FLAG_STALLS 4
#define PAPI_FLAG_CB_EVENTS 5
#define PAPI_FLAG_BRANCH 3
#define PAPI_FLAG_STALLS 4
#define PAPI_FLAG_CB_EVENTS 5
+#define PAPI_USER_EVENTS 6
#endif
#endif
+/* Put them together: */
+
typedef struct _RTS_FLAGS {
/* The first portion of RTS_FLAGS is invariant. */
struct GC_FLAGS GcFlags;
typedef struct _RTS_FLAGS {
/* The first portion of RTS_FLAGS is invariant. */
struct GC_FLAGS GcFlags;