starpu-max/tests/perfmodels/papi_test.c

/*****************************************************************************
* This example shows how to use PAPI_add_event, PAPI_start, PAPI_read,       *
*  PAPI_stop and PAPI_remove_event.                                          *
******************************************************************************/
 
#include <stdio.h>
#include <stdlib.h>
#include "papi.h" /* This needs to be included every time you use PAPI */

#define NUM_EVENTS 2
#define ERROR_RETURN(retval) { fprintf(stderr, "Error %d %s:line %d: \n", retval,__FILE__,__LINE__);  exit(retval); }

int main()
{
   int EventSet = PAPI_NULL;
   int tmp, i;
   /*must be initialized to PAPI_NULL before calling PAPI_create_event*/

   long long values[NUM_EVENTS];
   /*This is where we store the values we read from the eventset */
    
   /* We use number to keep track of the number of events in the EventSet */ 
   int retval, number;
   
   char errstring[PAPI_MAX_STR_LEN];
  
   /*************************************************************************** 
   *  This part initializes the library and compares the version number of the*
   * header file, to the version of the library, if these don't match then it *
   * is likely that PAPI won't work correctly.If there is an error, retval    *
   * keeps track of the version number.                                       *
   ***************************************************************************/


   if((retval = PAPI_library_init(PAPI_VER_CURRENT)) != PAPI_VER_CURRENT )
      ERROR_RETURN(retval);
     
     
   /* Creating the eventset */              
   if ( (retval = PAPI_create_eventset(&EventSet)) != PAPI_OK)
      ERROR_RETURN(retval);
   
   /* Add Total Instructions Executed to the EventSet */
   if ( (retval = PAPI_add_event(EventSet, PAPI_TOT_INS)) != PAPI_OK)
      ERROR_RETURN(retval);
   
   /* Add Total Cycles event to the EventSet */
   if ( (retval = PAPI_add_event(EventSet, PAPI_TOT_CYC)) != PAPI_OK)
      ERROR_RETURN(retval);
   
   /* get the number of events in the event set */
   number = 0;
   if ( (retval = PAPI_list_events(EventSet, NULL, &number)) != PAPI_OK)
      ERROR_RETURN(retval);

   printf("There are %d events in the event set\n", number);

   /* Start counting */

   if ( (retval = PAPI_start(EventSet)) != PAPI_OK)
      ERROR_RETURN(retval);
   
   /* you can replace your code here */
   tmp=0;
   for (i = 0; i < 2000000; i++)
   {
      tmp = i + tmp;
   }

  
   /* read the counter values and store them in the values array */
   if ( (retval=PAPI_read(EventSet, values)) != PAPI_OK)
      ERROR_RETURN(retval);

   printf("The total instructions executed for the first loop are %lld \n", values[0] );
   printf("The total cycles executed for the first loop are %lld \n",values[1]);
  
   /* our slow code again */
   tmp=0;
   for (i = 0; i < 2000000; i++)
   {
      tmp = i + tmp;
   }

   /* Stop counting and store the values into the array */
   if ( (retval = PAPI_stop(EventSet, values)) != PAPI_OK)
      ERROR_RETURN(retval);

   printf("Total instructions executed are %lld \n", values[0] );
   printf("Total cycles executed are %lld \n",values[1]);

   /* Remove event: We are going to take the PAPI_TOT_INS from the eventset */
   if( (retval = PAPI_remove_event(EventSet, PAPI_TOT_INS)) != PAPI_OK)
      ERROR_RETURN(retval);
   printf("Removing PAPI_TOT_INS from the eventset\n"); 

   /* Now we list how many events are left on the event set */
   number = 0;
   if ((retval=PAPI_list_events(EventSet, NULL, &number))!= PAPI_OK)
      ERROR_RETURN(retval);

   printf("There is only %d event left in the eventset now\n", number);

   /* free the resources used by PAPI */
   PAPI_shutdown();
 
   exit(0);
}