PAPI_add_remove_event.c File Reference

Include dependency graph for PAPI_add_remove_event.c:

Go to the source code of this file.

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

Functions
int	main ()

Macro Definition Documentation

ERROR_RETURN

#define ERROR_RETURN

(

retval

)

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

Definition at line 11 of file PAPI_add_remove_event.c.

NUM_EVENTS

#define NUM_EVENTS   2

Definition at line 10 of file PAPI_add_remove_event.c.

Function Documentation

main()

int main

(

)

Definition at line 13 of file PAPI_add_remove_event.c.

{
   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);
}