gcc/testsuite/gcc.target/powerpc/htm-1.c

   1 /* { dg-do run { target { powerpc*-*-* && htm_hw } } } */
   2 /* { dg-require-effective-target powerpc_htm_ok } */
   3 /* { dg-options "-mhtm" } */
   4
   5 /* Program to test PowerPC HTM instructions.  */
   6
   7 #include <stdlib.h>
   8 #include <htmintrin.h>
   9
  10 int
  11 main (void)
  12 {
  13   long i;
  14   unsigned long mask = 0;
  15   unsigned long retry_count = 0;
  16
  17 repeat:
  18   if (__builtin_tbegin (0))
  19     {
  20       mask++;
  21       retry_count = 0;
  22     }
  23   else
  24     {
  25       /* Retry a limited number of times before aborting.  */
  26       if (retry_count++ < 10)
  27         goto repeat;
  28       abort ();
  29     }
  30
  31   if (mask == 1)
  32     {
  33       __builtin_tsuspend ();
  34
  35       if (_HTM_STATE (__builtin_tcheck ()) != _HTM_SUSPENDED)
  36         abort ();
  37
  38       __builtin_tresume ();
  39
  40       if (_HTM_STATE (__builtin_tcheck ()) != _HTM_TRANSACTIONAL)
  41         abort ();
  42     }
  43   else
  44     mask++;
  45
  46   if (_HTM_STATE (__builtin_tendall ()) != _HTM_TRANSACTIONAL)
  47     abort ();
  48
  49   if (mask == 1)
  50     goto repeat;
  51
  52   if (_HTM_STATE (__builtin_tendall ()) != _HTM_NONTRANSACTIONAL)
  53     abort ();
  54
  55   if (mask != 3)
  56     abort ();
  57
  58   return 0;
  59 }