diff options
author | Austin Seipp <austin@well-typed.com> | 2014-07-21 20:31:53 -0500 |
---|---|---|
committer | Austin Seipp <austin@well-typed.com> | 2014-07-28 09:29:16 -0500 |
commit | ad36b1ad09be7eb7276850ff02e69484672ea3eb (patch) | |
tree | bba693e74b1a35929371f6599510ac61de5c5d8d | |
parent | 42f3bdf3267c2cb3f741de1550507c88c860673f (diff) | |
download | haskell-ad36b1ad09be7eb7276850ff02e69484672ea3eb.tar.gz |
rts: delint Papi.c
Signed-off-by: Austin Seipp <austin@well-typed.com>
-rw-r--r-- | rts/Papi.c | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/rts/Papi.c b/rts/Papi.c index 3da612ed79..a36157f4c1 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); |