projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Implement try10Times in Makefile
[ghc-hetmet.git]
/
rts
/
Trace.h
diff --git
a/rts/Trace.h
b/rts/Trace.h
index
f8b6ad4
..
69ea3d3
100644
(file)
--- a/
rts/Trace.h
+++ b/
rts/Trace.h
@@
-135,6
+135,15
@@
void traceUserMsg(Capability *cap, char *msg);
#define debugTrace(class, str, ...) /* nothing */
#endif
#define debugTrace(class, str, ...) /* nothing */
#endif
+#ifdef DEBUG
+#define debugTraceCap(class, cap, msg, ...) \
+ if (RTS_UNLIKELY(class)) { \
+ traceCap_(cap, msg, ##__VA_ARGS__); \
+ }
+#else
+#define debugTraceCap(class, cap, str, ...) /* nothing */
+#endif
+
/*
* Emit a message/event describing the state of a thread
*/
/*
* Emit a message/event describing the state of a thread
*/
@@
-152,6
+161,7
@@
void traceThreadStatus_ (StgTSO *tso);
#define traceCap(class, cap, msg, ...) /* nothing */
#define trace(class, msg, ...) /* nothing */
#define debugTrace(class, str, ...) /* nothing */
#define traceCap(class, cap, msg, ...) /* nothing */
#define trace(class, msg, ...) /* nothing */
#define debugTrace(class, str, ...) /* nothing */
+#define debugTraceCap(class, cap, str, ...) /* nothing */
#define traceThreadStatus(class, tso) /* nothing */
#endif /* TRACING */
#define traceThreadStatus(class, tso) /* nothing */
#endif /* TRACING */