PAPI_reset.c File Reference

Include dependency graph for PAPI_reset.c:

Go to the source code of this file.

Defines
#define	ERROR_RETURN(retval)   { fprintf(stderr, "Error %d %s:line %d: \n", retval,__FILE__,__LINE__); exit(retval); }
Functions
int	poorly_tuned_function ()
int	main ()

---

Define Documentation

#define ERROR_RETURN

(

retval

)

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

Definition at line 9 of file PAPI_reset.c.

---

Function Documentation

int main

(

)

Definition at line 23 of file PAPI_reset.c.

{
    int EventSet = PAPI_NULL;
    /*must be initialized to PAPI_NULL before calling PAPI_create_event*/
    
    int retval;
    unsigned  int event_code=PAPI_TOT_INS;
    /* By default monitor total instructions */

    char errstring[PAPI_MAX_STR_LEN];
    long long values[1];

   /****************************************************************************
   *  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 )
   {
      printf("Library initialization error! \n");
      exit(1);
   }

   /* Creating the eventset */   
   if ( (retval=PAPI_create_eventset(&EventSet)) != PAPI_OK)   
      ERROR_RETURN(retval);

   /* Add Total Instructions Executed to our EventSet */
   if ((retval=PAPI_add_event(EventSet, event_code)) != PAPI_OK)
      ERROR_RETURN(retval);

      /* Start counting */
   if((retval=PAPI_start(EventSet)) != PAPI_OK)
      ERROR_RETURN(retval);

   poorly_tuned_function();
 
   /* Stop counting */
   if((retval=PAPI_stop(EventSet, values)) != PAPI_OK)
      ERROR_RETURN(retval);


   printf("The first time read value is %lld\n",values[0]);

   /* This zeroes out the counters on the eventset that was created */
   if((retval=PAPI_reset(EventSet)) != PAPI_OK)
      ERROR_RETURN(retval);

      /* Start counting */
   if((retval=PAPI_start(EventSet)) != PAPI_OK)
      ERROR_RETURN(retval);

   poorly_tuned_function();
 
   /* Stop counting */
   if((retval=PAPI_stop(EventSet, values)) != PAPI_OK)
      ERROR_RETURN(retval);

   printf("The second time read value is %lld\n",values[0]);
   
   /* free the resources used by PAPI */
   PAPI_shutdown();

   exit(0);
}

Here is the call graph for this function:

int poorly_tuned_function

(

)

Definition at line 11 of file PAPI_reset.c.

{  
   float tmp;
   int i;

   for(i=1; i<2000; i++)
   {
      tmp=(tmp+100)/i;
   }
   return 0;  
}