1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
/* 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 } } */
|