projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add obtainTerm1 to the GHC api
[ghc-hetmet.git]
/
includes
/
RtsFlags.h
diff --git
a/includes/RtsFlags.h
b/includes/RtsFlags.h
index
fbdc64e
..
d2236b4
100644
(file)
--- a/
includes/RtsFlags.h
+++ b/
includes/RtsFlags.h
@@
-97,6
+97,8
@@
struct PROFILING_FLAGS {
nat maxRetainerSetSize;
nat maxRetainerSetSize;
+ nat ccsLength;
+
char* modSelector;
char* descrSelector;
char* typeSelector;
char* modSelector;
char* descrSelector;
char* typeSelector;
@@
-300,6
+302,18
@@
struct TRACE_FLAGS {
/* Put them together: */
/* Put them together: */
+#ifdef USE_PAPI
+struct PAPI_FLAGS {
+ nat eventType; /* The type of events to count */
+};
+
+#define PAPI_FLAG_CACHE_L1 1
+#define PAPI_FLAG_CACHE_L2 2
+#define PAPI_FLAG_BRANCH 3
+#define PAPI_FLAG_STALLS 4
+
+#endif
+
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;
@@
-317,6
+331,9
@@
typedef struct _RTS_FLAGS {
#ifdef GRAN
struct GRAN_FLAGS GranFlags;
#endif
#ifdef GRAN
struct GRAN_FLAGS GranFlags;
#endif
+#ifdef USE_PAPI
+ struct PAPI_FLAGS PapiFlags;
+#endif
} RTS_FLAGS;
#ifdef COMPILING_RTS_MAIN
} RTS_FLAGS;
#ifdef COMPILING_RTS_MAIN