[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