Subversion Repositories openrisc

/* { dg-do compile } */

/* { dg-options "-fgnu-tm -fopenmp" } */

/* { dg-require-effective-target pthread } */

__attribute__ ((transaction_pure))

unsigned long rdtsc();

typedef struct ENTER_EXIT_TIMES

{

  unsigned long enter;

} times_t;

void ParClassify()

{

  void * Parent;

#pragma omp parallel private(Parent)

  {

    times_t inside;

    __transaction_atomic {

       inside.enter = rdtsc();

    }

  }

}