[commit: ghc] master: rts: delint Papi.c (ad36b1a)
git at git.haskell.org
git at git.haskell.org
Mon Jul 28 14:37:05 UTC 2014
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/ad36b1ad09be7eb7276850ff02e69484672ea3eb/ghc
>---------------------------------------------------------------
commit ad36b1ad09be7eb7276850ff02e69484672ea3eb
Author: Austin Seipp <austin at well-typed.com>
Date: Mon Jul 21 20:31:53 2014 -0500
rts: delint Papi.c
Signed-off-by: Austin Seipp <austin at well-typed.com>
>---------------------------------------------------------------
ad36b1ad09be7eb7276850ff02e69484672ea3eb
rts/Papi.c | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/rts/Papi.c b/rts/Papi.c
index 3da612e..a36157f 100644
--- a/rts/Papi.c
+++ b/rts/Papi.c
@@ -61,9 +61,10 @@ struct _papi_events {
#define BIG_STRING_LEN 512
-#define PAPI_CHECK(CALL) \
- if((papi_error=(CALL)) != PAPI_OK) { \
- debugBelch("PAPI function failed in module %s at line %d with error code %d\n", \
+#define PAPI_CHECK(CALL) \
+ if((papi_error=(CALL)) != PAPI_OK) { \
+ debugBelch("PAPI function failed in module %s at line %d " \
+ "with error code %d\n", \
__FILE__,__LINE__,papi_error); \
}
@@ -132,7 +133,8 @@ init_countable_events(void)
if (RtsFlags.PapiFlags.eventType==PAPI_FLAG_BRANCH) {
PAPI_ADD_EVENT(FR_BR);
PAPI_ADD_EVENT(FR_BR_MIS);
- /* Docs are wrong? Opteron does not count indirect branch misses exclusively */
+ // Docs are wrong? Opteron does not count indirect branch
+ // misses exclusively
PAPI_ADD_EVENT(FR_BR_MISCOMPARE);
} else if (RtsFlags.PapiFlags.eventType==PAPI_FLAG_STALLS) {
PAPI_ADD_EVENT(FR_DISPATCH_STALLS);
More information about the ghc-commits
mailing list