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

/* This checks the availability of the low-level builtins introduced
   for transactional execution.  */

/* { dg-do compile } */
/* { dg-options "-O3 -march=zEC12 -mzarch" } */

#include <stdint.h>
#include <htmintrin.h>

int global = 0;
uint64_t g;
struct __htm_tdb global_tdb;

int
foo (struct __htm_tdb* tdb, int reg, int *mem, uint64_t *mem64)
{

  int cc;
  int n;

  cc = __builtin_tbegin (0);
  cc = __builtin_tbegin (tdb);
  cc = __builtin_tbegin (&global_tdb);

  cc = __builtin_tbegin_nofloat (0);
  cc = __builtin_tbegin_nofloat (&global_tdb);

  cc = __builtin_tbegin_retry (0, 42);
  cc = __builtin_tbegin_retry (0, reg);
  cc = __builtin_tbegin_retry (0, *mem);
  cc = __builtin_tbegin_retry (0, global);
  cc = __builtin_tbegin_retry (tdb, 42);
  cc = __builtin_tbegin_retry (&global_tdb, 42);

  cc = __builtin_tbegin_retry_nofloat (0, 42);
  cc = __builtin_tbegin_retry_nofloat (0, reg);
  cc = __builtin_tbegin_retry_nofloat (0, *mem);
  cc = __builtin_tbegin_retry_nofloat (0, global);
  cc = __builtin_tbegin_retry_nofloat (&global_tdb, 42);

  __builtin_tbeginc ();

  n = __builtin_tx_nesting_depth();

  __builtin_non_tx_store(&g, 23);
  __builtin_non_tx_store(mem64, 23);
  __builtin_non_tx_store(&g, reg);
  __builtin_non_tx_store(&g, *mem);
  __builtin_non_tx_store(&g, global);

  __builtin_tabort (42 + 255);
  __builtin_tabort (reg);
  /* { dg-final { scan-assembler-times "tabort\t255" 1 } } */
  __builtin_tabort (reg + 255);
  __builtin_tabort (*mem);
  __builtin_tabort (global);
  /* Here global + 255 gets reloaded into a reg.  Better would be to
     just reload global or *mem and get the +255 for free as address
     arithmetic.  */
  __builtin_tabort (*mem + 255);
  __builtin_tabort (global + 255);

  __builtin_tend();

  __builtin_tx_assist (23);
  __builtin_tx_assist (reg);
  __builtin_tx_assist (*mem);
  __builtin_tx_assist (global);
}

/* Make sure the tdb NULL argument ends up as immediate value in the
   instruction.  */
/* { dg-final { scan-assembler-times "tbegin\t0," 10 } } */