Subversion Repositories openrisc

/* { dg-do compile } */

/* { dg-options "-fgnu-tm -fdump-tree-ealias -O" } */

typedef __UINTPTR_TYPE__ ptrcast;

#if (__SIZEOF_POINTER__ == 4)

#define TM_LOAD  __builtin__ITM_RU4

#define TM_STORE __builtin__ITM_WU4

#elif (__SIZEOF_POINTER__ == 8)

#define TM_LOAD __builtin__ITM_RU8

#define TM_STORE __builtin__ITM_WU8

#else

#error Add target support here

#endif

void candy ();

struct mystruct_type {

  ptrcast *ptr;

} *mystruct, *mystruct2;

ptrcast *someptr, **pp;

ptrcast ui;

void tootsie_roll () __attribute__((transaction_wrap (candy)));

void tootsie_roll ()

{

  ui = TM_LOAD  (&mystruct);

  mystruct2 = (struct mystruct_type *) ui;

  pp = &mystruct2->ptr;

}

void foo()

{

  candy();

}

/* { dg-final { scan-tree-dump-times "ui\..* = .*same as mystruct" 1 "ealias" } } */

/* { dg-final { scan-tree-dump-times "mystruct.*ESCAPED" 1 "ealias" } } */

/* { dg-final { scan-tree-dump-times "pp = .*same as mystruct" 1 "ealias" } } */

/* { dg-final { cleanup-tree-dump "ealias" } } */