gcc/testsuite/gcc.dg/tm/20100615.c

   1 /* { dg-do compile } */
   2 /* { dg-options "-fgnu-tm -O" } */
   3
   4 /* Since the non TM version of new_node() gets optimized away, it
   5    shouldn't appear in the clone table either.  */
   6 /* { dg-final { scan-assembler-not "tm_clone_table" { target { ! *-*-darwin*  } } } } */
   7 /* { dg-final { scan-assembler-not "__DATA,__tm_clone_table" { target *-*-darwin*  } } } */
   8
   9 #define NULL 0
  10 extern void *malloc (__SIZE_TYPE__);
  11
  12 __attribute__((transaction_pure))
  13 void exit(int status);
  14
  15 typedef struct node {
  16 } node_t;
  17
  18 __attribute__((transaction_safe))
  19 static node_t *new_node(node_t *next)
  20 {
  21   node_t *node;
  22   node = (node_t *)malloc(sizeof(node_t));
  23   if (node == NULL) {
  24     exit(1);
  25   }
  26   return NULL;
  27 }
  28
  29 static node_t *set_new()
  30 {
  31   node_t *min, *max;
  32   __transaction_atomic {
  33     max = new_node(NULL);
  34     min = new_node(max);
  35   }
  36   return min;
  37 }
  38
  39 int main(int argc, char **argv)
  40 {
  41   set_new();
  42   return 0;
  43 }