Получение retval, cleanup, destroy не удалось с помощью Papi

Я пытаюсь проверить с помощью папи, но я получаю некоторые ошибки, которые я не понимаю, почему они происходят. Я ничего не мог найти в Интернете для них. Код ниже

Я использую PAPI и C.

#include <stdlib.h>
#include <stdio.h>
#include <unistd.h>
#include <errno.h>
#include <sys/types.h>
#include <memory.h>
#include <malloc.h>
#include "papi.h"

#define INDEX 100

static void test_fail(char *file, int line, char *call, int retval);

int main(int argc, char **argv) {
    extern void dummy(void *);
    float matrixa[INDEX][INDEX], matrixb[INDEX][INDEX], mresult[INDEX]    [INDEX];
    float real_time, proc_time, mflops;
    long long flpins;
    int retval, status = 0;
    int i,j,k;
    long_long values[1];

    FILE *file; 
    file = fopen("output.txt","w"); 

    retval = PAPI_library_init(PAPI_VER_CURRENT);
    int EventSet = PAPI_NULL;
    PAPI_create_eventset(&EventSet);
    if(PAPI_add_event(EventSet, PAPI_LD_INS) != PAPI_OK)
    {
        fprintf(file,"PAPI failed to add Load/Store instructions\n");
    }

    if (PAPI_state(EventSet, &status) != PAPI_OK)
        fprintf(file,"state fail\n");

    fprintf(file, "State is now %d\n", status);
    if (PAPI_start(EventSet) != PAPI_OK)
        fprintf(file,"start fail\n");

    if (PAPI_state(EventSet, &status) != PAPI_OK)
        fprintf(file,"state2 fail\n");

    fprintf(file, "State is now %d\n", status);

    /* Initialize the Matrix arrays */
    for ( i=0; i<INDEX; i++ ){
        mresult[0][i] = 0.0;
        matrixa[0][i] = matrixb[0][i] = rand()*(float)1.1; }

    if((retval=PAPI_flops( &real_time, &proc_time, &flpins, &mflops))<PAPI_OK)
        fprintf(file,"retval failed\n");

    for (i=0;i<INDEX;i++)
    {
        for(j=0;j<INDEX;j++)
        {
            for(k=0;k<INDEX;k++)
            {
                mresult[i][j]=mresult[i][j] + matrixa[i][k]*matrixb[k][j];
            }
        }
    }

    if((retval=PAPI_flops( &real_time, &proc_time, &flpins, &mflops))        <PAPI_OK)
    {
        fprintf(infile,"ret2 failed\n");
    }

    fprintf(file,"Real_time:\t%f\nProc_time:\t%f\nTotal flpins:\t%lld \nMFLOPS:\t\t%f\n",
            real_time, proc_time, flpins, mflops); 
    fflush(file);
    fprintf(file,"%s\tPASSED\n", __FILE__);
    fflush(file);

    if (PAPI_read(EventSet, values) != PAPI_OK)
      {fprintf(file,"read fail\n");}

      if (PAPI_stop(EventSet, values) != PAPI_OK)
      {fprintf(file,"stop fail\n");}

    if (PAPI_cleanup_eventset(&EventSet) != PAPI_OK)
      {fprintf(file,"cleanup fail\n");}

    if (PAPI_destroy_eventset(&EventSet) != PAPI_OK)
      {fprintf(file,"destroy fail\n");}


      fprintf(file,"\nValues is %f\n", values[0]);
      fflush(file);
      fclose(file);

      PAPI_shutdown();
      exit(0);
    }

В выходном файле я вижу только следующее:

    State is now 1
    State is now 2
    retval failed
    ret2 failed
    Real_time:      0.000000
    Proc_time:      0.000000
    Total flpins:   99
    MFLOPS:         0.000000
    PAPI_flops.c    PASSED
    cleanup fail
    destroy fail

Я не понимаю, почему не удалось выполнить ret, ret2, cleanup и destroy. Почему?


c papi
person user4352158    schedule 10.03.2015    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Вы можете использовать функции PAPI_perror или PAPI_strerror, чтобы получить сообщение об ошибке, связанное с возвращаемым значением ошибки. Это может помочь отследить, почему, например, PAPI_flops не работает. (Возможно, ваша система не поддерживает необходимые события.)

Причина, по которой PAPI_cleanup_eventset не работает, заключается в том, что она принимает только целое число EventSet, а не указатель на него.

Я бы настоятельно рекомендовал генерировать строки возвращаемого значения ошибки, а также компилировать с включенными предупреждениями — последнее, скорее всего, обнаружило бы проблему с неправильным типом параметра.

person halfflat    schedule 10.03.2015
comment
Я использовал test_fail и получил вывод Error in retval: EventSet is currently counting после строки retval=PAPI_flops( &real_time, &proc_time, &flpins, &mflops))<PAPI_OK - person user4352158; 12.03.2015
comment
PAPI_flops хочет быть тем, кто запускает интересующие его счетчики, согласно справочной странице. Использование этой процедуры высокого уровня одновременно с использованием явных наборов событий может оказаться невозможным. - person halfflat; 12.03.2015